数组没有赋值,请先赋值。
Dim
A(3,
4)
As
Double
定义数组,值为双精度
Dim
str1
As
String
定义变量为字符型
For
x
=
0
To
3
循环
For
y
=
0
To
4
嵌套循环
str1
=
str1
&
A(x,
y)
&
vbTab
变量str1赋值,为str1连接数组,加个tab空格
Next
y
嵌套循环结束
str1
=
str1
&
A(x,
y)
&
vbCrLf
变量str1赋值,为str1连接数组,加个回车符
Next
x
循环结束
Text1.Text
=
str1
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。