作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 08:48:53
VB怎么写矩阵 需要一个1000*1000的矩阵 每一个格都是随机数 最后要保存到一个TEXT里面
'主要代码就是这个
'这是使用二维数组
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
再问: 问下 怎么怎么保存到TXT文件去?
再答: randomize for i = 0 to 999 s = "" for j = 0 to 999 s=s & fix(rnd * 10) & " " next str = str & s & vbcrlf next set fso = createobject("scripting.filesystemobject") set f = fso.createtextfile("矩阵.txt") f.write str f.close