Question

vb程序的功能为，在文本框1中输入一串数字，单击“加密”按钮，在文本框2中显示加密后的一串数字。

1、vb程序的功能为，在文本框1中输入一串数字，单击“加密”按钮，在文本框2中显示加密后的一串数字。比如在文本框1中输入“12698”，则在文本框2中显示“34810”，如图所示。加密规则为每位数加2取其个位数。

Answer 1

Private Sub Command1_Click()
   Dim s As String
   For i = 1 To Len(Text1.Text)
      s = s & (Val(Mid(Text1.Text, i, 1)) + 2) Mod 10
   Next i
   Text2.Text = s
End Sub