1樓：匿名使用者
private sub command1_click()k = ""
for i = 1 to len(text1)if m <> 90 and m <> 122 thenm = asc(mid(text1, i, 1)) + 1else
m = m - 25
end if
k = k & chr(m)
next i
text2 = k
end sub
2樓：
const normal = "abcdefghijklmnopqrstuvwxyz"
const encode = "bcdefghijklmnopqrstuvwxyza"
sub a(s as string)
for i = 1 to len(s)
p = p & mid(encode, lcase(instr(1, normal, mid(s, i, 1))), 1)
next i
msgbox p
end sub
sub b(s as string)
for i = 1 to len(s)
p = p & mid(normal, lcase(instr(1, encode, mid(s, i, 1))), 1)
next i
msgbox p '可以改成你需要的text2=p
end sub
private sub form_load()
a "asdjer" 'command1_click
b "skeorw" 'command2_click
'可以改成你需要的 a text1
end sub
3樓：北方金魚
command2**：
k = ""
for i = 1 to len(text2)if m <> 90 and m <> 122 thenm = asc(mid(text2, i, 1)) - 1else
m = m - 25
end if
k = k & chr(m)
next i
text1.text = k
4樓：牛a和牛c間徘徊
準備兩個陣列,存放密文對應值,加密挨個查詢,然後替換...
在vb中如何用frame來改變文字框中字型的大小和型別
改變文字框中字型的大小和型別用 text1.fontname 黑體 text1.fontsize 12 和frame沒有任何關係。vb中如何改變文字框中字型的型別 先新增bai乙個叫 dumicrosoft common dialog control 6.0的控制項zhi，然dao後 如 版下 權 ...
用人名編詩怎麼編，如何用名字寫詩
黃鶯出谷音清妙，永生不忘美人語。雅歌沁心人稱奇，怡然自樂萬無憂。黃鶯的聲音是如此的清妙，如同美人的話語讓人永生不忘。清雅的歌聲沁人心脾讓人感到神奇，使人怡然自得的享受生活萬般無憂。何承發寫一首鼓勵的詩 七言絕句 袁門溫酒會三英 山海聯盟結拜情 好馬追風騰赤兔 讚歌嘹亮伴君行 嚴格按照詩詞格律寫作，合...
如何用VB呼叫外部程式（非Shell）
定義常量 以後見到 synchronize 就相當於填寫了 h100000 即 phnd openprocess synchronize,0,pid 等於 const synchronize h100000 const infinite hffffffff 引用系統 api openprocess ...