( x?。?/div>函數(shù)對a中字符完成加密處理.算法:用變量s保存輸入的明文,變量ans保存加密產(chǎn)生的密文.
(1)為了使文本框Text1、Text2在程序開始運行時不顯示任何值,應(yīng)該修改文本框控件的
text
text
屬性值,為了把按鈕的標(biāo)題改成“生成密文”,應(yīng)該修改按鈕控件的
caption
caption
屬性值.具體程序?qū)崿F(xiàn)
Private Sub Command1_Click ( )
Dim s As String,a As String,d As String,ans As String,i As Integer
s=Text1.Text
ans=““
For i=1To Len(s)
a=
mid(s,i,1)①
mid(s,i,1)①
'從s中取出第i個字符存入變量a
d=Chr(Asc(a)-10)'對i個字符進行加密處理,結(jié)果存入d
②ans=ans & d 或ans=ans+d
②ans=ans & d 或ans=ans+d
'將第i個加密后的字符添加到變量ans的末尾
Next i
Text2.Text=ans
End Sub
(2)程序①處應(yīng)填寫的代碼為
mid(s,i,1)
mid(s,i,1)
;程序②處應(yīng)填寫的代碼是
ans=ans & d或ans=ans+d
ans=ans & d或ans=ans+d
.