先用一个string变量存储每次循环的结果,最后在for循环外使用msgbox显示出来,代码如下:
dim iMsg as string
dim i as long
iMsg = "循环的所有内容具体如下:"
for i = 1 to 10
'将每次循环变量的值放入到iMsg变量中
iMsg =iMsg & vbcrlf & i
next
Msgbox iMsg '打印iMsg变量的值,也就是一次性显示所有结果了。
for中的数据存储在数组变量中,在循环后将数组变量存储到一个变量中,最后用msgbox显示就可以了。
msgbox 放在for...next 循环外
你想怎样显示呢?