作业帮 > 综合 > 作业

求VB编程:给一个5*5的矩阵赋值,要求矩阵副对角线上方元素都是偶数,副对角线和它下方元素都为奇数.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/09 15:26:34
求VB编程:给一个5*5的矩阵赋值,要求矩阵副对角线上方元素都是偶数,副对角线和它下方元素都为奇数.
Private Sub Command1_Click()
Dim mArr(1 To 5, 1 To 5), r%, c%, tmp%
For r = 1 To 5
For c = 1 To 5
Randomize
tmp = Int(Rnd * 90) + 10
If c > r Then
Do While tmp Mod 2 = 1
Randomize
tmp = Int(Rnd * 90) + 10
Loop
Else
Do While tmp Mod 2 = 0
Randomize
tmp = Int(Rnd * 90) + 10
Loop
End If
mArr(r, c) = tmp
Print mArr(r, c);
Next c
Print
Next r
End Su