VB 使显示每行的最大值的位置（下面的程序可以把最大值找出）

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/30 06:14:16

VB 使显示每行的最大值的位置（下面的程序可以把最大值找出）
Private Sub cmdbegin_Click()
Dim a(4,3) As Integer,i As Integer,j As Integer
Dim max As Integer
For i = 1 To 4
For j = 1 To 3
a(i,j) = InputBox("请输入矩阵的第( " & i & " ," & j & " )元素","输入矩阵元素")
Picture1.Print a(i,j),
Next j
Picture1.Print
Next i
For i = 1 To 4
max = a(i,1)
For j = 2 To 3
If max < a(i,j) Then max = a(i,j)
Next j
Picture1.Print "第" & i & "行最大的是："; max
Next i
End Sub

添加一个n作为标记
Dim n%
下面那个寻找最大数的循环改成这样：
For i = 1 To 4
max = a(i,1)
For j = 2 To 3
If max < a(i,j) Then
max = a(i,j)
n= j '以n标记出最大数所处的列
End if
Next j
Picture1.Print "第" & i & "行最大的是："; max
Picture1.Print "其所处位置是第" & n & "列"
Next i

编写VB程序,在窗体上输入5个整数存放在数组中,找出这些数中最大值和最小值及它们所在的位置, 用VB编写一个程序,计算出给定的10*10矩阵（存放在二维数组A中）每行元素的最大值和每列元素的最小值 VB 显示3个（1-100）的随机数和这三个数的最大值 excel 每行最大值个数所在列统计问题找出该行数据的最大值,并统计该最大值所在列各最大值出现的次数编写一个程序,通过指针变量找出一维数组中的最大值和最小值,并交换最大值和最小值的位置. 用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果找出矩阵每行的最大值,并将最大值与正对角线上元素对换,C语言编程,最好详细点, 输入n个数,求出它们的最大值,最小值和平均值?用VB怎么编写程序 vb求最大值的问题有一个m乘n的矩阵,用vb编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号. 从键盘输入十个数,输出最大值和最小值.为什么我的程序只能输出最大值,而最小值显示-858993460 利用VB如何设计下面问题：利用随机数产生10个1~100之间的随机数,显示出最大值,最小值及平均值.