求编一个VB程序？输入一个三位整数，然后将它反向输出？

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

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

最简单的方案，试验通过。
代码：
Dim a, b As String
Private Sub Command1_Click()
a = Text1.Text
b = StrReverse(a) '反向字符串
Text2.Text = b
End Sub

可以参考下面的代码：

private sub command1_click()

x=inputbox("输入一个三位数")

X1=X\100 'x1=三位数 的百位

X2=(X-X1*100)\10 '十位

X3=X-X1*100-X2*10 '个位

msgbox X3&X2&X1

end sub

扩展资料：

VB基本函数

CBool 函数： 返回已被转换为 Boolean 子类型的变体的表达式。 

CByte 函数： 返回已被转换为字节子类型的变体的表达式。 

CCur 函数 ：返回已被转换为货币子类型的变体的表达式。 

CDate 函数： 返回已被转换为日期子类型的变体的表达式。 

CDbl 函数： 返回已被转换为双精度子类型的变体的表达式。 

参考资料来源：百度百科-Visual Basic

第一点：5分直接的个答案分够了，想学点知识就不够
第二点：输入一个三位整数，然后将它反向输出？有三个方法
a)最简单的就是使用StrReverse函数
Private Sub CommandButton1_Click()
x = InputBox("Please input x:")
MsgBox StrReverse(x)
End Sub
b)还可以使用字符截取函数rignt, left, mid
Private Sub CommandButton2_Click()
x = InputBox("Please input x:")
MsgBox Right(x, 1) & Mid(x, 2, 1) & Left(x, 1)
End Sub
c)然后就是你那个思路
Private Sub CommandButton3_Click()
Dim a As Integer, b As Integer, c As Integer
x = InputBox("Please input x:")
c = x Mod 10
b = (x - c) / 10 Mod 10
a = (x - 10 * b - c) / 100
MsgBox c & b & a
End Sub

楼上的算法虽然没错，不过没有考虑到如果个位是0的情况，所以应该将3个数都转为字符然后再输出，当然，我不知道楼主是否是想要的这样的结果

private sub command1_click()
x=inputbox("输入一个三位数")
X1=X\100 'x1=三位数 的百位
X2=(X-X1*100)\10 '十位
X3=X-X1*100-X2*10 '个位
msgbox X3&X2&X1
end sub

msgbox strreverse(inputbox("请输入三位整数"))

private sub command1_click()
x=inputbox("输入一个三位数")
X1=X\100.'x1=三位数 的百位
X2=(X-X1*100)\10.'十位
X3=X-X1*100-X2*10.‘个位
print x3*100+x2*10+x1
end sub

---

求编一个VB程序？输入一个三位整数，然后将它反向输出？视频