例题1:通过键盘输入两个整数分别存放到变量A和B之中,然后交换两个变量的值,并在窗体上打印出交换之前和交换之后的值。
Private Sub Form_Click()
DimA As Integer
Dim B As Integer
Dim T As Integer
A= InputBox("请输入变量A的值")
B = InputBox("请输入变量B的值")
Print "交换之前:A=",A, "B=", B
T = A
A = B
B = T
Print"交换之后:A=",A, "B=", B
End Sub
例题2: 输入一个3位整数,将它逆序显示出来。例如,输入123,则逆序显示为321
Private Sub Form_Click()
Dimx As Integer, y As Integer
Dim a As Integer, b As Integer, c As Integer
x = InputBox("请输入一个三位整数")
a = x \ 100
b = (x - 100 * a) \ 10
c = x - 100 * a - 10 * b
y = 100 * c + 10 * b + a
Print "输入的数是:",x
Print "输出的数是:",y
End Sub