作业帮 > 数学 > 作业

求一个四位数每一位上的数字,最好用vb语言回答,谢谢了

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/09 17:56:57
求一个四位数每一位上的数字,最好用vb语言回答,谢谢了
Dim x As Integer
Dim a, b, c, d
x = 1234
a = x \ 1000 Mod 10
b = x \ 100 Mod 10
c = x \ 10 Mod 10
d = x Mod 10
Print a, b, c, d
与楼上相比,允许原始数字大于或小于4位,得到的结果是数字类型,可以直接运算.