Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = codeText(TextBox2.Text, TextBox1.Text)
End Sub
Function codeText(ByVal oldText As String, ByVal n...
Private Sub Form_Click()s = "I Love This Computer Game!"n = 4t = ""Print "原明文："; sPrint "n = "; nFor i = 1 To Len(s)
k = Mid(s, i, 1)
If k >= "a" And k <= "z"...
