1樓：老牛帶你看奇聞
在窗體上有兩個控制元件，command1和text1
程式執行時在文字框中輸入四位數字，如果不是四位提示請輸入四位。
**如下：private sub command1_click()
dim a(4) as integer
dim i as integer
if len( <4 then '如果輸入的不是四位數要求重新輸入。
msgbox "請輸入一個四位數", vbokonly + vbinformation, "提示"
exit sub
elsefor i = 1 to 4
a(i) =val(mid(, i, 1)) 將四位數的每一位分別賦給陣列a的四個元素。
a(i) =a(i) +7) mod 10 '將每一位與7和，與10取模。
next i
msgbox "加密後的數字是提示"
end if
end sub
private sub form_load()= 加密"
end sub
2樓：vb妮可
2個文字框， text1輸入數字， text2顯示加密後的數字。
1個按鈕， =加密"
private sub command1_click()
if len(text1) =4 then
dim a%, b%, c%, d%
a = val(mid(text1, 1, 1)) 7) mod 10
b = val(mid(text1, 2, 1)) 7) mod 10
c = val(mid(text1, 3, 1)) 7) mod 10
d = val(mid(text1, 4, 1)) 7) mod 10
text2 = c & d & a & b
end if
end sub
vb中如何編寫一個加密程式?
3樓：匿名使用者
還可以用api函式來呼叫出來加密！有個加密的演算法 在裡面！
4樓：匿名使用者
如把a加上一個值可以變成b一樣的加密方法！
VB程式設計問題，VB程式設計中的迴圈問題
有個 自己去看吧，都是考試的。編一個求圓周長的程式。輸入半徑，得到周長和麵積。試試看。建議你不要光學vb,畢竟它有太多缺點，很多事做不了 如果是對basic語言感興趣的話，到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大 freebasic甚至可以寫作業系...
VB中如何把數字轉換成字母,VB如何將26個把字母變為數字
chr 65 在vb中.可以使用asc a 來得到字元的asc碼,也可以反過來使用chr 65 將asc碼轉回到字元 暈chr 65 就會輸出a asc a 就會輸出65 兩者的轉換 private sub mand1 click msgbox chr 65 end sub private sub ...
求一vb程式設計，編寫陣列，將資料系列最後元素移動到位置，其餘元素依次後移
把最後一個放到一個臨時變數，然後運用迴圈將倒數第二個賦給倒數第一個，倒數第三個賦給倒數第二個，最後把臨時變數賦給第一個元素。如果要我給出原始碼來就沒意思了。private sub form load 建立一個陣列 dim a 9 as integer 初始化陣列 dim i as integer f...