96年國際藝競賽VB術科
你尚未開啟知識+檔案
會員登出, 會員中心
.
服務首頁|服務說明|Yahoo!奇摩.知識+ 首頁
知識分類
電腦網路
科學常識
醫療保健
煩惱心事
生活資訊
手機通訊
休閒嗜好
視聽娛樂
運動體育
社會人文
商業金融
教育學習 .如何做
煩惱
主題知識
.我要發問 發表 我要發問 ..熱門： 黑心食品 秋颱 黃色小鴨 兄弟象 丟鞋 主題 注意！小心勞農保黃牛在您身邊出沒 用手機上知識+ .知識搜尋 ....知識+ 首頁> 教育學習> 認證檢定> 電腦 加入追蹤 轉寄朋友 友善列印 看另一則問題 .知識問題|
96年國際藝競賽VB術科. 發問者： .... ( 初學者 5 級)
發問時間： 2009-08-17 21:35:40
解決時間： 2009-08-19 16:51:41
解答贈點： 15 ( 共有 0 人贊助 )
回答： 1 評論： 0 意見： 1
[ 檢舉 ]
網友正面評價
0%
.共有 0 人評價.不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]
在密碼學裡面有一種很簡單的加密方式，就是把原始資料的每個字元通通加上某一個整數K而得到密碼的字元（原始資料及密碼字元一定都在ASCII碼中可列印的範圍內）。例如若K=2，那麼apple經過加密後就變成crrng了；解密則是反過來做。
輸入說明：第一列為加密的K值，第二列為要解密的列數，第三列及以後就是需要解密的字串。(請參照輸入範例)
輸入範例：test7.txt
7
3
1JKJ'pz'{ol'{yhklthyr'vm'{ol'Jvu{yvs'Kh{h'Jvywvyh{pvu5
1PIT'pz'h'{yhklthyr'vm'{ol'Pu{lyuh{pvuhs'I|zpulzz'Thjopul'Jvywvyh{pvu5
1KLJ'pz'{ol'{yhklthyr'vm'{ol'Kpnp{hs'Lx|pwtlu{'Jvywvyh{pvu5
輸出說明：對每一測試資料，請輸出解密後的原始資料。(請參照輸出範例)
輸出範例：result7.txt
*CDC is the trademark of the Control Data Corporation.
*IBM is a trademark of the International Business Machine Corporation.
*DEC is the trademark of the Digital Equipment Corporation. 最佳解答發問者自選
.. 回答者： 三八 ( 初學者 2 級 )
回答時間： 2009-08-19 07:18:26
[ 檢舉 ] .不當內容由分類板主暫時隱藏
[ 點此以瀏覽 ]
他這個題目是要用ascii碼來做
k就是我們要的增減值
程式碼如下：
(因為比賽是讀檔的，所以我用讀檔的方式來寫)
(另外我是全國技藝競賽的選手)
Private Sub Form_Load()
ifile = App.Path & "\test.txt"
ofile = App.Path & "\result.txt"
Open ifile For Input As #1
Open ofile For Output As #2
Do Until EOF(1)
Input #1, k, x
For i = 1 To x
Line Input #1, y
str1 = ""
For j = 1 To Len(y)
str1 = str1 + Chr(Asc(Mid(y, j, 1)) - k)
Next j
Print #2, str1
Next i
Loop
Close
End
End Sub
不懂再問吧!!!
參考資料
我 相關詞：
vb程式設計,vb教學,vb 6 0主程式下載,vb程式碼,vb下載,vb計算機,vb程式下載,vb陣列,vb迴圈,vb亂數
VB,vm,pz,quot,Mid,Next,ASCII,競賽,For Input As #1 Open ofile For Output As #2 Do Until EOF,Kh
留言列表
