问题标题：
VB操作题.设计一个程序,将从键盘输入的四位数逆序输出.依次取出四位整数每个位置上的数字,假定该数为x,则千位数字：a=int（x/1000）百位数字：b=int（（x-1000*a）/100）十位数字：c=int（（x-100
问题描述：
VB操作题.设计一个程序,将从键盘输入的四位数逆序输出.
依次取出四位整数每个位置上的数字,假定该数为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
季安回答：
PrivateSubCommand1_Click()
Dimdata(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)
'第二种直接输出
Fori=0To3
Text3.Text=Text3.Text&data(3-i)
Nexti
EndSub
点击显示
其它推荐