用随机函数生成一个6 行6列的整型数组(数据在100内),找出某个指定行内最大元素所在的列号.Private Sub Form_Click()Dim a(6,6) As IntegerFor j = 1 To 6For i = 1 To 6a(i,j) = Int(100 * Rnd)NextNextj = Val(InputBox("输
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/20 17:20:52
![用随机函数生成一个6 行6列的整型数组(数据在100内),找出某个指定行内最大元素所在的列号.Private Sub Form_Click()Dim a(6,6) As IntegerFor j = 1 To 6For i = 1 To 6a(i,j) = Int(100 * Rnd)NextNextj = Val(InputBox(](/uploads/image/z/8815258-10-8.jpg?t=%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E7%94%9F%E6%88%90%E4%B8%80%E4%B8%AA6+%E8%A1%8C6%E5%88%97%E7%9A%84%E6%95%B4%E5%9E%8B%E6%95%B0%E7%BB%84%EF%BC%88%E6%95%B0%E6%8D%AE%E5%9C%A8100%E5%86%85%EF%BC%89%2C%E6%89%BE%E5%87%BA%E6%9F%90%E4%B8%AA%E6%8C%87%E5%AE%9A%E8%A1%8C%E5%86%85%E6%9C%80%E5%A4%A7%E5%85%83%E7%B4%A0%E6%89%80%E5%9C%A8%E7%9A%84%E5%88%97%E5%8F%B7.Private+Sub+Form_Click%28%29Dim+a%286%2C6%29+As+IntegerFor+j+%3D+1+To+6For+i+%3D+1+To+6a%28i%2Cj%29+%3D+Int%28100+%2A+Rnd%29NextNextj+%3D+Val%28InputBox%28%22%E8%BE%93)
用随机函数生成一个6 行6列的整型数组(数据在100内),找出某个指定行内最大元素所在的列号.Private Sub Form_Click()Dim a(6,6) As IntegerFor j = 1 To 6For i = 1 To 6a(i,j) = Int(100 * Rnd)NextNextj = Val(InputBox("输
用随机函数生成一个6 行6列的整型数组(数据在100内),找出某个指定行内最大元素所在的列号.
Private Sub Form_Click()
Dim a(6,6) As Integer
For j = 1 To 6
For i = 1 To 6
a(i,j) = Int(100 * Rnd)
Next
Next
j = Val(InputBox("输入1-6之间的整数"))
i = fact(m)
MsgBox "第" & j & "行最大的数的列数为" & i
End Sub
Function fact(m) As Long
Dim a(6,6) As Integer
For n = 1 To 6
For m = 1 To 6
a(m,n) = Int(100 * Rnd)
Next
Next
For n = 1 To 6
Max = a(1,n)
For m = 1 To 6
If Max < a(m,n) Then
Max = a(m,n)
fact = m
End If
Next
Next
End Function
以上为代码,不知哪错了
用随机函数生成一个6 行6列的整型数组(数据在100内),找出某个指定行内最大元素所在的列号.Private Sub Form_Click()Dim a(6,6) As IntegerFor j = 1 To 6For i = 1 To 6a(i,j) = Int(100 * Rnd)NextNextj = Val(InputBox("输
Dim a(6, 6) As Integer//定义在方法外面即全局变量
Private Sub Form_Click()
For j = 1 To 6
For i = 1 To 6
a(i, j) = Int(100 * Rnd)
Next
Next
j = Val(InputBox("输入1-6之间的整数"))
i = fact(j)
MsgBox "第" & j & "行最大的数的列数为" & i
End Sub
Function fact(m) As Long
//这里不能重新为数组元素赋值,应该用原来的
Max = a(m,1)//只求一个行的,所以用单循环即可
For n = 1 To 6
If Max < a(m, n) Then
Max = a(m, n)
fact =n
End If
Next
Next
End Function