. Private Sub Command-Click( ?。?br />Dim x As Long,y As String,a As Integer Dim al As Integer,a2 As Integer,a3 As Integer,a4 As Integer x=Val(Text1.Text) y='''' Do While
a=x Mod 10 x=x\10 a1=a\5:a=aMod5 a2=a\4:a=aMod4 a3=a\2:a=aMod2 a4=a y=
Loop Text2.Text=y End Sub (3)如果輸入的十進(jìn)制數(shù)為62,則對(duì)應(yīng)的“5421BCD”碼為
。 (2)根據(jù)上述加密算法,小高設(shè)計(jì)了一個(gè)字符串加密程序,運(yùn)行界面如圖b所示,請(qǐng)?jiān)跈M線處填入合適的代碼。 Private Sub Command1_Click ( ?。?br />Dim s As String,ss As String,mw As String,C As String Dim n As Integer,i As Integer,j As Integer s=Text1.Text:n=Len(s) For i=1 To n C=Mid(s,i,1) If iszm(c)Then ss=
'① Else ss=ss+C End If Next i i=1:j=n\2+1 If n Mod 2=1 Then j=j+1 Do While i<=n\2 mw=
'② i=i+1:j=j+1 Loop If n Mod 2=1 Then mw=
'③ Text2.Text=mw End Sub Function iszm(c As String)As Boolean iszm=False If c>=“a“And c<=“z“Or c>=“A“And c<=“Z“Then iszm=True End Function Function movec(x As String,w As Integer)As String If x>=“a“And c<=“z“Then movec=Chr((Asc(x)-97+w)Mod 26+65) Else movec=