友情提示:同学您好,此页面仅供预览,在此页面学习不会被统计哦! 请进入学习空间后选择课程学习。

   例题1:通过键盘输入两个整数分别存放到变量AB之中,然后交换两个变量的值,并在窗体上打印出交换之前和交换之后的值。

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