數字加密VB程式設計,VB中如何編寫一個加密程式

2023-05-07 05:00:17 字數 1177 閱讀 6630

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...