Dim num As Integer
loo:
num = InputBox("请输入一个4位整数")
If num < 1000 Or num > 9999 Then GoTo loo
Print "千位数"; Mid(Trim(Str(num)), 1, 1); 'num转为字符串时前面有个空格，苏所以用Trim函数去掉空格
Print "百位数"; Mid(Trim(Str(num)), 2, 1);
Print "十位数"; Mid(Trim(Str(num)), 3, 1);
Print "个位数"; Mid(Trim(Str(num)), 4, 1);
End Sub
Private Sub Command1_Click()
Dim num As Long
num = Val(InputBox("请输入一个整数"))
Print "千位数=" & num \ 1000 Mod 10
Print "百位数=" & num \ 100 Mod 10
Print "十位数=" & num \ 10 Mod 10
Print "个位数=" & num Mod 10
End Sub追问
Print "千位数=" & num \ 1000 Mod 10
千位数 还要除10取余吗？？？
如果不足4位或者超过4位，这么做就有意义了！
本回答被提问者采纳百位：x.substring(1,1);
十位：x.substring(2,1);
个位：x.substring(3,1);
q=a\1000;
b=(a\100)%10;
s=(a\10)%10;
g=a%10;
VB编程 输入四位正整数,分别输出其个位、十位、百位、千位的数值。
int(x\/100) mod 10 '百位 int(x\/1000) '千位
怎么用VB做四位数的数字分解?
Dim N As Integer N = Val(InputBox("请输入一个4位正整数:"))If N > 9999 Or N < 1000 Then Print "出错": Exit Sub Print N & "的千位数字是:" & N \\ 1000 1234 \\1000得1 Print N & "的百位数字是:" & N \\ 100 Mod 10 1234 \\100得12 ,再用10求余数,余2 P...
VB中如何能把个位、十位和百位,千位的数字提取出来
msgbox "个位：" & mid(num,len(num)-1,1)msgbox "百位：" & mid(num,len(num)-2,1)msgbox "千位：" & mid(num,len(num)-3,1)msgbox "万位：" & mid(num,len(num)-4,1)
怎么用VB做四位数的数字分解?
c(5)As Stringc(0)= "个位":c(1)= "十位":c(2)= "百位"c(3)= "千位":c(4)= "万位":c(5)= "十万位"a = InputBox("请输入数",,1234)For b = 1 To Len(a)Print a & c(b - 1)& "位数是:"& Mid(a,b,1)Next bEnd Sub ...
,四位数中,千位>百位>十位>个位的数有多少
166个 下面是VB代码：Private Sub Command1_Click()Dim ge, shi, bai, qian As Integer Dim t As Integer t = 0 For i = 1000 To 9999 qian = CInt(i \/ 1000)bai = CInt((i - qian * 1000) \/ 100)shi = CInt((i Mod 100) \/ 10)ge = CInt(1 Mod 10)If qian > bai And...
vb四位数的千位百位十位个位的四次方相加等于原数
Private Sub Command1_Click()For i = 10 To 99If i ^ 2 \\ 1000 = (i ^ 2 Mod 1000) \\ 100 And (i ^ 2 Mod 100) \\ 10 = (i ^ 2 Mod 10) Then Print i ^ 2NextEnd Sub
VB操作题。设计一个程序,将从键盘输入的四位数逆序输出。
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 ...
vb获取个位数,十位数,千位数,等方法
获取个位数： x mod 10 获取十位数： int(x * 0.1) mod 10 获取百位数： int(x * 0.01) mod 10 获取千位数： int(x * 0.001) mod 10 ……
vb!! 输入一个四位数,求四个数字之和,判断和是不是质数
private sub disPartNum (inte as integer)'分解所输入的四位数的函数 dim th as integer '千位数 dim hu as integer '百位数 dim te as integer'十位 dim si as integer'个位 dim sum as integer'用来求和的 dim des as integer'用来去位的 th = fix(inte\/1000)des = inte - th *1000...
vb 将任意一个四位数的个位与千位对换,十位与百位对换,怎么做?只要...
四位数的个位与千位对换，十位与百位对换，其实相当于把这个数反过来而已。例如1234按要求对换后就是4321。用StrReverse函数来反转便可。假设这个四位数存于变量a，则：a=StrReverse(a)便可。
