VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/28 18:05:29
VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素
![VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素](/uploads/image/z/6389028-36-8.jpg?t=VB%E7%BC%96%E7%A8%8B%2C%E6%9C%89%E4%B8%80%E4%B8%AAn+%C3%97+m%E7%9A%84%E7%9F%A9%E9%98%B5%2C%E5%85%B6%E5%90%84%E5%85%83%E7%B4%A0%E7%9A%84%E5%80%BC%E7%94%B1%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E7%94%9F%E6%88%90%EF%BC%88%E8%8C%83%E5%9B%B450%7E150%EF%BC%89.%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E6%89%BE%E5%87%BA%E5%85%B6%E4%B8%AD%E6%9C%80%E5%A4%A7%E7%9A%84%E5%85%83%E7%B4%A0)
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
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
VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素
有一个n*m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素所在行和列,
vb求最大值的问题有一个m乘n的矩阵,用vb编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号.
编写程序,利用随机函数生成一个6 行6列的整型矩阵(数据在100~900范围内),找出某个指定行内最大元素所在的列号.
1.VB编程,求一个M行N列的矩阵四周元素之和,元素值可以随机产生,M、 N从键盘输入
use matlab 随机生成一个3×4的矩阵,请编写程序求出矩阵中值最大的那个元素的值,以及其所在的行号和列号
C语言函数 编程输入一个n*n矩阵中各元素的值,找出两条对角线上的元素之和
【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.
编写VB程序,建立并输出一个n×n的矩阵,该矩阵对角线上的元素为4,其余元素均为-1
VB编写程序,生成一个10个元素的随机整数组,数组元素的范围0-100,要求将这个数组的最大值和最小值的位置对调
有一个N*M的矩阵,要求编程求出其中值最大的那个元素,以及其所在的行号和列号
编写程序实现:用rand()函数生成两个矩阵的各个元素,