能用vb的知识回答: . 编写程序:设计一个窗体，输入一个三位整数，将它反向输出。例如输入246，输出642。

Answer 1

a=inputbox("请输入一个数")
for i=1 to len(a)
b=mid(a,i,1)+b
next i
print b
这个不管是几位数都可以判断

Answer 2

aa=inputbox"请输入"
bb=100*(aa mod 10)+10*(int(aa/10) mod 10)+int(aa/100)

追问

能完整点吗，vb基本一点不会，。。。。

追答

OK，窗体放两个textbox, 一个command,text1用于输入三位整数，text2用于反向输出
完整代码如下
Private Sub command1_click()
Dim aa As Integer, bb As Integer
On Error GoTo err
If Len(Text1.Text) 3 Then GoTo err
aa = CInt(Text1.Text)
bb = 100 * (aa Mod 10) + 10 * (Int(aa / 10) Mod 10) + Int(aa / 100)
Text2.Text = bb
Exit Sub
err:
MsgBox "请输入三位整数"
End Sub

程序运行：先在text1中输入三位整数，然后点击command1，text2中会显示反向的三位数

追问

请问能帮我回答一下其他的关于vb的题吗