我要用VB编一个程序，计算并输出01,02--33，这33个数字中抽出6个从小到大的组合，要求输出所有的组合，我编写了如下的程序，可是输出只有最后一个组，为什么呢？错在哪里，高手指点啊
Private Sub Command1_Click()
Dim a, b, c, d, e, f, g As Integer
Dim s As String
For a = 1 To 28
For b = a + 1 To 29
For c = b + 1 To 30
For d = c + 1 To 31
For e = d + 1 To 32
For f = e + 1 To 33
s = a & b & c & d & e & f
Text1.Text = s
Next
Next
Next
Next
Next
Next
End Sub

我改完了，但是在试运转的时候总是卡住，只能结束退出，怎么回事呢？
修改完如下：Private Sub Command1_Click()
Dim a, b, c, d, e, f, g As Integer
Dim s As String
For a = 1 To 28
For b = a + 1 To 29
For c = b + 1 To 30
For d = c + 1 To 31
For e = d + 1 To 32
For f = e + 1 To 33
s = a & b & c & d & e & f
Text1.Text = Text1.Text & vbCrLf & s
Next
Next
Next
Next
Next
Next
End Sub