'text2 對應的反序的字符串
'command1 對應的 分離並反序按鈕
'command2 對應的清除按鈕
'其中 a 對應的 ascii 碼 為97 z 對應的 ascii 碼 為122
'A 對應的 ascii 碼 為65 Z 對應的 ascii 碼 為90
Private Sub Command1_Click()
''計算反碼
If Text1.Text <> "" Then
For i = 0 To Len(Text1.Text) - 1
c = Mid(Text1.Text, Len(Text1.Text) - i, 1)
If Asc(c) > 65 And Asc(c) < 90 Or Asc(c) > 97 And Asc(c) < 122 Then
''是字母,則輸出顯示
Text2.Text = Text2.Text & c
Else
End If
Next
End If
End Sub
Private Sub Command2_Click()
''清除
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub