求VB程序：显示出全部的7位数，前面的3位数是123，后面的4个数位每个数位的数字由0-9组成

求VB程序：显示出全部的7位数，前面的3位数是123，后面的4个数位每个数位的数字由0-9组成

显示全部的嘛
既然是后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

按你的说法，下面的算法还算简便
Randomize
For i = 1 To 4
lfnum = lfnum & Int(Rnd * 10)
Next i
Me.Print 123 & lfnum

后面四个数字每个都有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又怎么能完全显示呢

Randomize
Dim intNum As Integer
intNum = ((9999 - 1000) + 1) * Rnd +1000 '随机产生四位数
Label10.Caption = intNum
print 123 & intNum