1樓：匿名使用者
''該方法可能造蔽此隱成不能解密。
function funencode(byval encodestring as string) as string
dim str1, str2 as stringstr1 = encodestring
str2 = ucase(right(str1, 1)) lcase(mid(str1, 2, len(str1) -2)) lcase(left(str1, 1))
if len(str1) mod 2 = 0 thenelsestr2 = left(str2, len(str2) /扒塌。
'至於末尾、、自己看著辦。巨集廳yz後面兩位沒字母了。
end if
funencode = str2
end function
vb求助 文字加密。英文為例，先將輸入的明文字母一律轉換為大寫，在進行加密轉換，字母 以外的字元則保留
2樓：涐吢銥舊囿儚
這個很簡單呀，就是一種「凱撒密碼」嘛。
就給你寫加密的，另外兩個按鈕的不用我寫吧。
private sub command1_click()' 加密。
dim stext as string
dim i&, v&
stext =
if (stext = "") then
msgbox "請輸入明文。", vbinformationexit sub
end if
stext = ucase$(stext)for i = 1 to len(stext)v = asc(mid$(stext, i, 1))if (v > 64 and v < 91) thenif (v < 85) then
mid$(stext, i, 1) = chr$(v + 6)else
mid$(stext, i, 1) = chr$(v - 20)end if
end if
next stext
end sub
編寫乙個小程式,可以對輸入的一段英文字串進行加密和解密,加密演算法中需要使
3樓：隨意剋制
用vb編的。
option explicit
加密private sub command1_click()text2 = ""
dim i as long
for i = 1 to len(text1)text2 = text2 & chr(asc(mid(text1, i, 1)) 300)
nexttext1 = ""
end sub
解密private sub command2_click()text1 = ""
dim i as long
for i = 1 to len(text2)text1 = text1 & chr(asc(mid(text2, i, 1)) 300)
nextend sub
原字串。private sub form_load()text1 = "中華人民共和國"
text2 = ""
end sub
vb程式設計常用英文單詞？
4樓：網友
vb函式大全可以滿足你，你這種學習方法不對，vb中有自動完成功能，不需要刻意去記憶，推薦一本書，清華大學出版的vb程式設計基礎。
5樓：網友
我正學vb程式設計，但我不清楚英文，誰能告訴我vb程式設計時常遇到的英文，比如屬性、控制項名稱，以及一些常用的語句，越多越好！ msgbox "aaa" 開啟對話方塊 on ,
用vb程式設計:輸入英文單詞,按a到z排列
6樓：情義天晴
'畫兩個文字，乙個按鍵，名字取預設，轉換，我字母是按ascii 編碼排列大小，如有大寫的改成小寫的，或者你把**改下，，有點忘了，該**經測試可以了，private sub command1_click()dim a as integer
dim b(100) as string
a = len(
dim x as integer
for x = 1 to a
b(x) = qz(, x)
next x
--冒泡排列---
dim k as integer
dim temp as string
for l = 1 to a - 1
for k = 1 to a - 1
if asc(b(k)) asc(b(k + 1)) thentemp = b(k)
b(k) = b(k + 1)
b(k + 1) = temp
end if
next k
next l
for l = 1 to a
b(l)next l
end sub
public function qz(kk as string, bb as integer) as string '自已定義的提取字元函式。
dim a as string
a = left(kk, bb)
qz = right(a, 1)
end function
private sub form_load()= "請輸入你要排列的單詞"
排列"end sub'
7樓：狂族魔帝
是說執行時讓使用者輸入一組單詞，把它們按首字母排序輸出？
在輸入英文單詞的時候如何讓英文單詞變成大寫快捷鍵是什麼
shift f3快捷鍵可以轉換 選中要改變的內容 ctrl shift x 恢復是選中要改變的內容 ctrl shift y 按向上的箭頭，就可以變成大寫啦。有需要輸入較長英文句子按capslock，單個英按住shift 英文較為方便，請採納！輸入時 按capslock鍵 求採納 搜狗拼音輸入法在輸...
英文單詞的縮寫，英文單詞縮寫
abbreviation jan.一月 fer.二月 mar.三月 apr.四月 may.五月 jun.六月 jul.七月 aug.八月 sep.九月 oct.十月 nov.十一月 dec.十二月 英文單詞縮寫 最低0.27元開通文庫會員，檢視完整內 原發布者 luyuyanluo 常用英文縮寫vi...
奮鬥的英文單詞，奮鬥，拼搏的英文單詞是？
努力，奮鬥，勤奮,加油,玩命,賺錢,絕不做老二.efforts,struggle,diligence,cheer,hard,earn money,never be second.奮鬥，拼搏的英文單詞是？三個單詞都可以，但意境各有不同。struggle 這個單詞中國人常常翻譯為 掙扎 這是奮鬥的一種很...