vb产生以二位随机数组成的4×4矩阵

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/09/15 20:38:13

vb产生以二位随机数组成的4×4矩阵

Sub xxx()
Dim arr(4, 4), i, j
For i = 1 To 4
For j = 1 To 4
arr(i, j) = Round(Rnd * 100, 0)
Next j
Next i
End Sub
再问：再计算对角线上元素的和要怎么写？从左上到右下的对角线
再答：希望有话一次性说完，如果你接下来问的东西我回答不上，对我的采纳率影响很大~~~~

Sub xxx()
Dim arr(4, 4), i, j,s
For i = 1 To 4
For j = 1 To 4
arr(i, j) = Round(Rnd * 100, 0)
Next j
Next i
s=0
For i = 1 To 4
For j = 1 To 4
if i=j OR i+j=4 then s=s+arr(i, j) '计算对角线的和
Next j
Next i
msgbox s
End Sub
再问：谢谢无论你回不回答上来我都会采纳你的

产生4位随机数的方法》 VB:产生20个30到50之间的随机数,并以每行4个进行排列.要求代码尽可能简洁易懂, 用vb编写一段程序,产生4位随机数,但是这四位数各不相同,如何编写,麻烦详细点,我知道是用rnd（）函数怎么用VB编写点生成按钮产生1000个8位不重复的随机数呢? C语言程序设计：使用随机数产生一个4X4的矩阵,每个元素是100以内的随机数,求出该矩阵两条对角线元素之和 VB int(rnd*(-7)+4)*int(rnd*5-10) 随机数产生的范围.为什么答案是【-30,18】而不是【 RND函数产生的随机数的区间是?(VB) vb中如何产生范围无穷大的随机数 vb 产生大于10小于100的随机数表达式 vb产生两个数之间的随机数闭区间 VB编程产生100个[10,99]的随机数求一个vb程序,关于产生随机数排序的.