求VB程序：显示出全部的7位数，前面的3位数是123，后面的4个数位每个数位的数字由0-9组成
答案:4 悬赏:50 手机版
解决时间 2021-03-23 12:26
- 提问者网友：精神病院里
- 2021-03-22 21:31
求VB程序：显示出全部的7位数，前面的3位数是123，后面的4个数位每个数位的数字由0-9组成
最佳答案
- 五星知识达人网友：深街酒徒
- 2021-03-22 22:10
显示全部的嘛
既然是后4为由0-9组成，也就是从0000到9999
因此一个循环就够了
dim front as long
front=1230000
dim i as Integer
dim num as long
for i = 0 to 9999 step 1
num=front+i
Print num
next i
既然是后4为由0-9组成，也就是从0000到9999
因此一个循环就够了
dim front as long
front=1230000
dim i as Integer
dim num as long
for i = 0 to 9999 step 1
num=front+i
Print num
next i
全部回答
- 1楼网友：孤老序
- 2021-03-23 00:04
按你的说法，下面的算法还算简便
Randomize
For i = 1 To 4
lfnum = lfnum & Int(Rnd * 10)
Next i
Me.Print 123 & lfnum
Randomize
For i = 1 To 4
lfnum = lfnum & Int(Rnd * 10)
Next i
Me.Print 123 & lfnum
- 2楼网友：一叶十三刺
- 2021-03-22 23:21
后面四个数字每个都有10种可能（0～9）一共就有1E4=10000种可能，而要全部显示出来用随机方法是不可能的（何况Rnd产生的不是真正的随机数字）所以似乎只能用四层循环来将后面四个数的所有可能都扫遍循环最多7层所以还算能应付过来
Private Sub Form_Load()
Me.AutoRedraw = True
Dim a As Integer, b As Integer, c As Integer, d As Integer
For a = 0 To 9 Step 1
For b = 0 To 9 Step 1
For c = 0 To 9 Step 1
For d = 0 To 9 Step 1
Print "123" & Str(a) & Str(b) & Str(c) & Str(d)
Next d
Next c
Next b
Next a
End Sub
很显然小小的一个Form又怎么能完全显示呢
Private Sub Form_Load()
Me.AutoRedraw = True
Dim a As Integer, b As Integer, c As Integer, d As Integer
For a = 0 To 9 Step 1
For b = 0 To 9 Step 1
For c = 0 To 9 Step 1
For d = 0 To 9 Step 1
Print "123" & Str(a) & Str(b) & Str(c) & Str(d)
Next d
Next c
Next b
Next a
End Sub
很显然小小的一个Form又怎么能完全显示呢
- 3楼网友：撞了怀
- 2021-03-22 23:05
Randomize
Dim intNum As Integer
intNum = ((9999 - 1000) + 1) * Rnd +1000 '随机产生四位数
Label10.Caption = intNum
print 123 & intNum
Dim intNum As Integer
intNum = ((9999 - 1000) + 1) * Rnd +1000 '随机产生四位数
Label10.Caption = intNum
print 123 & intNum
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯