Question

如何设计一个vb程序，将从键盘输入的四位整数逆序输出

Answer 1

Private Sub Form_Click()

Dim a%, q%, b%, s%, g%

a = Val(InputBox("请输入一个四位数", "输入"))

q = a \ 1000

b = (a - q * 1000) \ 100

s = (a - q * 1000 - b * 100) \ 10

g = a - q * 1000 - b * 100 - s * 10

Print "你输入的数为:" & a

Print "倒序后为：" & g & s & b & q

End Sub

Answer 2

不知道你是不是这样意思，假如你在文本框中依次输入1,2,3,4，最后文本框中显示的是4321。如果是这样，代码如下：

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.SelStart = 0
End Sub
这段代码很简单，鼠标光标在任何位置输入都能自动回到首位。。。

Answer 3

你是事先输入存储在TEXTBOX里还是直接用键盘输入存储在变量里?
最后输出在什么地方?