假设你的数组是a(),且已经正确赋值,用以下语句输出 Dim i As Integer For i = LBound(a) To UBound(a)Print a(i)Next
哎，上面的人哥们本来写的也就够了，不过我来写另一种循环，争取点积分吧！跟一楼一样也假设数组为a()吧！dim i as integer i=0while i<= UBound(a) print a(i) i=i+1wend
