Question

怎样用VB编写四个数字的反向输出

Answer 1

新建一工程，添加一个按钮与一个标签控件，在代码框时粘上以下代码即可。

Option Explicit

Private Sub Command1_Click()
Dim A1, A2
A1 = 1234
A2 = Mid(A1, 4, 1) * 1000 + Mid(A1, 3, 1) * 100 + Mid(A1, 2, 1) * 10 + Mid(A1, 1, 1)
Label1.Caption = A2
End Sub

运行结果，将1234输出为4321。在label1标签里显示。

Answer 2

Private Sub Command1_Click()
Dim m As String
m = Text1.Text
Print StrReverse(m)
End Sub

你在文本框中输入几个数字都可以按命令按钮即可反向输出