原搬硬套写下了程序,也能运行出来就是不知道啥意思 Private Sub Command1_Click() Cls Font.Size = 70 Dim arr(5) As Integer For i = 1 To 5 arr(i) = i Next For Each t In arr Print t Next End Sub