哪位高手能帮我编写一道程序吗？

来源：百度知道 编辑：UC知道 时间：2024/05/14 02:58:30
最好用VB。要求如下：一个四位数的密码，全部由0～9这十个自然数组成，应该是由一万种可能性，那么怎么编写程序能把这一万组四位数的密码全部显示出来？
能不能帮我把输出的10000种结果写出来？

Text1.Text = ""
For h = 0 To 9
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
DoEvents
Text1.Text = Text1.Text & CStr(h) & CStr(i) & CStr(j) & CStr(k) & Chr(13) & Chr(10)
Next k
Next j
Next i
Next h

good ,that's right

Private Sub Form_Load()
Dim a As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer

For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
a = a & i & j & k & l
Print a
Next
Next
Next
Next
End Sub

dim code as String
dim a as Integer
dim b as Integer
dim c as Integer
dim d as Integer
for a=0 to