VB编程 随机产生一个有49个两位正整数组成的7*7矩阵 找出第四行元素的最
答案:1 悬赏:10
解决时间 2021-03-06 21:59
- 提问者网友：一人心
- 2021-03-06 08:11
VB编程 随机产生一个有49个两位正整数组成的7*7矩阵 找出第四行元素的最大数 显示出来
最佳答案
- 二级知识专家网友：风格单纯
- 2021-03-06 09:49
Private Sub Command1_Click()
Dim a(7, 7) As Integer
Randomize
For i = 1 To 7
For j = 1 To 7
a(i, j) = Rnd * 100
Print Tab(5 * j); a(i, j);
Next j
Print
Next i
k = 1
For i = 2 To 7
If a(4, i) > a(4, k) Then k = i
Next i
Print
Print "第4行上最大的数是"; a(4, k)
End Sub
Dim a(7, 7) As Integer
Randomize
For i = 1 To 7
For j = 1 To 7
a(i, j) = Rnd * 100
Print Tab(5 * j); a(i, j);
Next j
Next i
k = 1
For i = 2 To 7
If a(4, i) > a(4, k) Then k = i
Next i
Print "第4行上最大的数是"; a(4, k)
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯