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("请输入矩阵的第
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 05:08:11
![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(](/uploads/image/z/11457575-71-5.jpg?t=VB+%E4%BD%BF%E6%98%BE%E7%A4%BA%E6%AF%8F%E8%A1%8C%E7%9A%84%E6%9C%80%E5%A4%A7%E5%80%BC%E7%9A%84%E4%BD%8D%E7%BD%AE%EF%BC%88%E4%B8%8B%E9%9D%A2%E7%9A%84%E7%A8%8B%E5%BA%8F%E5%8F%AF%E4%BB%A5%E6%8A%8A%E6%9C%80%E5%A4%A7%E5%80%BC%E6%89%BE%E5%87%BA%EF%BC%89Private+Sub+cmdbegin_Click%28%29+Dim+a%284%2C3%29+As+Integer%2Ci+As+Integer%2Cj+As+Integer+Dim+max+As+Integer+For+i+%3D+1+To+4+For+j+%3D+1+To+3+a%28i%2Cj%29+%3D+InputBox%28%22%E8%AF%B7%E8%BE%93%E5%85%A5%E7%9F%A9%E9%98%B5%E7%9A%84%E7%AC%AC)
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("请输入矩阵的第
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
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("请输入矩阵的第
添加一个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