vb有一个5位数的数字n,如何提取出各个位数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/06/06 20:46:06
vb有一个5位数的数字n,如何提取出各个位数
好像是用 MOD / \之类的做.我不太懂.
用a b c d e 分别表示个十百千万
如输入12345.则a=5 b=4 c=3 d=2 e=1
好像是用 MOD / \之类的做.我不太懂.
用a b c d e 分别表示个十百千万
如输入12345.则a=5 b=4 c=3 d=2 e=1
方法多种,介绍几种简单的
‘一
Private Sub Form_Load()
Dim num As Long,str As String
num = 12345
str = CStr(num) '将长整型转为字符串
MsgBox Mid(str,1,1) 'mid是从字符串里取出字符,第一个参数是从哪个字符串中取,第二个参数是取出的位置,第三个是取出的个数,例如:(str,1,1) 是 1,(str,2,1) 是 2 ,(str,1,2) 是 12
End Sub
’二
Private Sub Form_Load()
Dim a As Long,b As Long,c As Long,d As Long,e As Long,num As Long
num = 12345
a = num \ 10000
num = num - a * 10000
b = num \ 1000
num = num - b * 1000
c = num \ 100
num = num - c * 100
d = num \ 10
num = num - d * 10
e = num
MsgBox "a:" & a & " b:" & b & " c:" & c & " d:" & d & " e:" & e
End Sub
'三 mod
Private Sub Form_Load()
Dim a As Long,b As Long,c As Long,d As Long,e As Long,num As Long
num = 12345
a = num \ 10000
num = num Mod 10000
b = num \ 1000
num = num Mod 1000
c = num \ 100
num = num Mod 100
d = num \ 10
num = num Mod 10
e = num
MsgBox "a:" & a & " b:" & b & " c:" & c & " d:" & d & " e:" & e
End Su
‘一
Private Sub Form_Load()
Dim num As Long,str As String
num = 12345
str = CStr(num) '将长整型转为字符串
MsgBox Mid(str,1,1) 'mid是从字符串里取出字符,第一个参数是从哪个字符串中取,第二个参数是取出的位置,第三个是取出的个数,例如:(str,1,1) 是 1,(str,2,1) 是 2 ,(str,1,2) 是 12
End Sub
’二
Private Sub Form_Load()
Dim a As Long,b As Long,c As Long,d As Long,e As Long,num As Long
num = 12345
a = num \ 10000
num = num - a * 10000
b = num \ 1000
num = num - b * 1000
c = num \ 100
num = num - c * 100
d = num \ 10
num = num - d * 10
e = num
MsgBox "a:" & a & " b:" & b & " c:" & c & " d:" & d & " e:" & e
End Sub
'三 mod
Private Sub Form_Load()
Dim a As Long,b As Long,c As Long,d As Long,e As Long,num As Long
num = 12345
a = num \ 10000
num = num Mod 10000
b = num \ 1000
num = num Mod 1000
c = num \ 100
num = num Mod 100
d = num \ 10
num = num Mod 10
e = num
MsgBox "a:" & a & " b:" & b & " c:" & c & " d:" & d & " e:" & e
End Su
vb,如何提取一个四位数的四个数字?
在vb中输入一个任意整数,如何实现将各个位数上的数字提取出来
有一个3位数,各个数位上的数字的和等于10,这样的3位数中是5的倍数的有几个?
有一个二百二十五位数,它的各个位数的数字都是,这个数除以7,余数是多少?
用2012减去一个四位数的差,正好等于将这个四位数各个数位数字相加的和,那么有几个这样的四位数?
有一个四位数,各数位上的数字之和为15,如果把这个数加上5,侧新的四位数各个数位上的数字之和为2.原来的这个四位数是多少
对于一个四位数,其各个位数的数字至多有两个不同,试求共有多少个这种四位数?
有一个1115位数,各个数位上的数字都是5,这个数除以6余数是几
一个四位数各个数位上的数字都增加5 得到一个新四位数 新四位数比原四位数的4倍还多5 那么原四位数是___.
将一个四位数各个数位上的数字都增加3,得到一个新四位数,新四位数比原四位数的3倍还多1.
有一个六位数,后三位数字相同,前三位数是三个从小到大排列的连续自然数.已知这六位数各个数位之和
有两个整数一个是个三位数,另一个数是个六位数,他们各个数位的数字从左到右越来越大,其中六位数是另一