vb输入一个四位数，输出个位与千位交换后的数的程序是什么？
答案:2 悬赏:30 手机版
解决时间 2021-03-17 15:00
- 提问者网友：最美的风景
- 2021-03-16 20:26
vb输入一个四位数，输出个位与千位交换后的数的程序是什么？
最佳答案
- 五星知识达人网友：患得患失的劫
- 2021-03-16 20:57
Private Sub Command1_Click()
x = CInt(InputBox("输入一个四位数:"))
a = x 1000
b = (x - a * 1000) 10
c = x Mod 10
y = c * 1000 + b * 10 + a
Print x; "==>"; y
End Sub
x = CInt(InputBox("输入一个四位数:"))
a = x 1000
b = (x - a * 1000) 10
c = x Mod 10
y = c * 1000 + b * 10 + a
Print x; "==>"; y
End Sub
全部回答
- 1楼网友：長槍戰八方
- 2021-03-16 22:09
dim a as string
a=inputbox("请输入4位数")
a=rihgt(a,1) & mid(a,2,2) & left (a,1)
print a
a=inputbox("请输入4位数")
a=rihgt(a,1) & mid(a,2,2) & left (a,1)
print a
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯