Question

vb编程 随机数组排列

用随机函数产生100个【0，99】范围内的随机整数，统计个位数上的数字为0的元素个数、个位数上的数字为1的元素个数……个位数上的数字为9的元素个数。
第二题
建立一个5行5列的二维数组，随机产生25个二位整数赋值到该数组中；求出该二维数组的二条对角线元素的和。
提示：二维数组中行和列下标相同的元素即i=j时为自左上角至右下角的对角线上的元素；
例如：a(1,1),a(2,2),a(3,3),a(4,4),a(5,5)
对于5*5的二维数组中i+j=6时为自右上角至左下角的对角线上的元素。
例如：a(1,5),a(2,4),a(3,3),a(4,2),a(5,1)
判断求和的语句：
if i=j or i+j=6 then
s=s+a(i,j)
endif

Answer 1

Private Sub Form_load()
Dim a(99), b(9), i As Integer
Randomize
For i = 0 To 99
a(i) = Int(Rnd * 100)
b(a(i) Mod 10) = b(a(i) Mod 10) + 1
Next
For i = 0 To 9
Print "个位数上数字为" & i & "的元素个数=" & b(i)
Next
End Sub

追问

下面一题可否帮忙解答，可追加分。
第一题代码复制进去运行不起来，确定没有问题？

追答

请确认form1的AutoRedraw属性是否为TRUE，或者在form1_load的第一行加一句:
Me.AutoRedraw = True

第二题：
Private Sub Form_Load()
Me.AutoRedraw = True
Dim a(4, 4) As Integer
Dim i, j, s As Integer
For i = 0 To 4
For j = 0 To 4
a(i, j) = Int(Rnd * 90) + 10
If i = j Or i + j = 6 Then
s = s + a(i, j)
End If
Next j
Next i
Print "两条对角线元素之和=" & s
End Sub