1樓：匿名使用者
'圖上的控制元件,你就照著擺上去,然後再把以下**拷進去,就ok了dim lg as integer
'加密private sub command1_click()text2 = ""
dim a(), b() as stringlg = len(text1)
redim a(lg), b(lg)
for i = 1 to lg
a(i) = mid(text1, i, 1)b(i) = ascw(a(i)) xor 4text2 = text2 & chrw(b(i))next
end sub
'解密private sub command2_click()text3 = ""
dim a(), b() as stringlg = len(text2)
redim a(lg), b(lg)
for i = 1 to lg
a(i) = mid(text2, i, 1)b(i) = ascw(a(i)) xor 4text3 = text3 & chrw(b(i))next
end sub
2樓：匿名使用者
private function x2n(oteout) ' 加密
oteout = replace(oteout,
小弟麻煩大家(用vb)幫忙編寫一個加密解密小程式 20
3樓：匿名使用者
就像a~z等字元，你可以錯開幾個字元，如a-b，b-c。。。。z-a，這樣就是簡單的加密了，解密就是反過來就可以了，，
用vb怎麼編簡單的打字軟體，用vb怎麼編一個簡單的打字軟體,
最簡單的，做個文字框，所有功能都是文字框提供的啊，預設就行除了把文字框設定為 multiline 設定為 true 有text1,text2和label1 text1拿來顯示文章,text2打字,label1顯示正確率dim i,p as integer private sub text1 chan...
用VB編寫程式，用VB編寫一個程式
樓上的，不許要引用吧 option explicit private declare function getdrivetype lib kernel32 alias getdrivetypea byval ndrive as string as long private declare funct...
求編vb程式任意輸入數,找出其中的最大值
dim max i t a t inputbox 請輸來入三個數源,中間 bai用空格 du隔開zhi a split t,for i 0 to ubound a if a i max then max a i next msgbox t 中最大值是dao vbcrlf max max val in...