Private Sub Form_Click()
Dim n(0 To 9) As Integer, m As Integer           '
For m = 1 To 9
str n(m)                    '此才是正确格式，课中格式是错的。程序最后结果全是0

                                并不是想象中str n(m)=6,结果数组中元素就全是6。如果

                                想使数组中元素都为6，那么就要给数组赋值，而不是赋

                                初值。
Print Trim(n(m));                    '加trim是为了去掉元素两边的空格
Next m
Print
Print LBound(n)                      '无论m=多少数组下线始终为0
Print 123456789                      '此处输出123456789只是为了证明 

End Sub                                   数组中的各元素输出时其两边都带有空格。