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

Question

依次取出四位整数每个位置上的数字，假定该数为x，则
千位数字：a=int（x/1000）
百位数字：b=int（（x-1000*a）/100）
十位数字：c=int（（x-1000*a-100*b）/10）
个位数字：d=x-1000*a-100*b-10*c

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 Sub

Answer 2

Private Sub Command1_Click()
{
Dim x As Integer,a As Integer,b As Integer,c As Integer,d As Integer
x=Int(Text1.Text)
a=x\1000
b=x\100 Mod 10
c=x\10 Mod 10
d=x Mod 10
Print d;c;b;a
}

Private Sub Command2_Click()
{
Dim i As Integer
For i=Len(Text1.Text)-1 To 0 Step -1
Print Mid(Text1.Text,i,1);
Next i
}

希望回答对你有帮助

追问

你的VB是不是很好哦，可不可以说下你的QQ哦，以后方便问你哈

追答

并非每个人都依赖于QQ的哦
所以有什么问题发站内信就可以了

追问

x=Int(Text1.Text)
被显示为不正确

Answer 3

搞个数组，用一个整形变量当下标，每次加1，顺序存放，然后将变量每次减1
反过来输出到0结束就可以了。也就是像堆栈一样访问。

Answer 4

aakk25588

SDNFKJSNDFKSNDKFNSDKGNJSK
nxcksndfksndflksmdlfsdf
ZXNFIEFOSNDFOSKFMEKOWE