VB怎么写矩阵 需要一个1000*1000的矩阵 每一个格都是随机数 最后要保存到一个TEXT里面

Question

VB怎么写矩阵 需要一个1000*1000的矩阵 每一个格都是随机数 最后要保存到一个TEXT里面

Answer 1

'主要代码就是这个
'这是使用二维数组
dim a(99,99) '声明一个二维数组
randomize '随机化,用于生成随机数
for i = 0 to 99
for j = 0 to 99
a(i,j) = fix(rnd * 10) '生成0~10的随机整数
next
next
for m = 0 to 99
s = ""
for n = 0 to 99
s=s&a(m,n)& " "
next
str = str & s & vbcrlf
next
msgbox str
'不使用数组也可以
randomize
for i = 0 to 99
s = ""
for j = 0 to 99
s=s & fix(rnd * 10) & " "
next
str = str & s & vbcrlf
next
msgbox str