用VB编写一个10选3全排列组合程序

首先建立一个command 和一个text ，把text的MultiLine设置为true，ScrollBars设置为2 。

然后运行如下代码：
Private Sub Command1_Click()
Dim i%, str$
For i = 0 To 999
str = str & " " & Format(i, "000")
Next i
Text1.Text = "0-9数字的所有3位数的组合为：" & vbCrLf & str
End Sub

来
http://tieba.baidu.com/club/9503575
看答案吧
这个很简单

结果输出到txt文件中

netbartp的答案已经很好了，我就不用作了