[已解决]VBA数组输出有没有其他方法

vbyou127

VBA数组输出有没有其他方法

把含有2,3,6,8,9,12,14,19的数组输出，除了下面这种方法，还有没有其他方法?


Sub ta()
   Dim a
   a = Array(2, 3, 6, 8, 9, 12, 14, 19)
   Debug.Print "原来的数组："
   For i = 0 To UBound(a)
     Debug.Print a(i);
   Next i
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-1 15:17

a = Array(2, 3, 6, 8, 9, 12, 14, 19)
msgbox join(a,",")

跳转到最佳答案楼层

vbyou127

Sub ta()
   Dim a(7)
  For i=0 to 7
     a(i)=Cint(InputBox("a(" & i & ")="))  '运行时输入8个整数
  Next i
  s= "原来的数组：" & VbCRLf
   For i = 0 To 7
     s =s & a(i) & " "
   Next i
  MsgBox s
End Sub

grf1973

a = Array(2, 3, 6, 8, 9, 12, 14, 19)
msgbox join(a,",")