Dim x(3) As String, i As Integerx(0) = "张三"x(1) = "李四"x(2) = "王五"x(3) = "赵六"For i = 0 To 3 Print x(i)Next
