作业帮 > 综合 > 作业

VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/28 03:55:54
VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素
Private Sub Form_Click()
Dim a() As Integer
Dim i, j, max, n, m
Randomize(time)
n = InputBox("n=")
m = InputBox("m=")
ReDim a(n, m)
max = 0
For i = 1 To n
For j = 1 To m
a(i, j) = Int(Rnd() * 100) + 50
If a(i, j) > max Then max = a(i, j)
Next j
Next i
Print max
End Su