Question

VB操作题.设计一个程序,将从键盘输入的四位数逆序输出.

Answer 1

Private Sub Command1_Click()

Dim data(3)

data(0) = Mid(Text1.Text, 1, 1) '取第一位数据

data(1) = Mid(Text1.Text, 2, 1) '取第二位数据

data(2) = Mid(Text1.Text, 3, 1) '取第三位数据

data(3) = Mid(Text1.Text, 4, 1) '取第四位数据

'提供两种显示方法：

'第一种算出结果

Text2.Text = data(3) * 1000 + data(2) * 100 + data(1) * 10 + data(0)

'第二种直接输出

For i = 0 To 3

Text3.Text = Text3.Text & data(3 - i)

Next i

End Su