. Private Sub Command-Click( ) 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)如果輸入的十進制數(shù)為62,則對應(yīng)的“5421BCD”碼為
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=