85问答库 > VB编写程序生成一个4行5列的二维数组，并求该数组的最大元素及其行号、列号。。

VB编写程序生成一个4行5列的二维数组，并求该数组的最大元素及其行号、列号。。

2025-03-02 10:47:55

推荐回答（2个）

回答1：

Dim Suju(3, 4) As Integer

Private Sub Command1_Click()
Randomize
Text1 = ""
For i = 0 To 3
For j = 0 To 4
Suju(i, j) = Rnd * 89 + 10
Text1 = Text1 & " " & Suju(i, j)
Next
Text1 = Text1 & vbCrLf
Next
Picture1.Cls
Picture1.Print Smax(Suju)

End Sub

Function Smax(Sj() As Integer) As String
Dim aa As Integer
Dim bb As String

aa = Suju(0, 0)
For i = 0 To UBound(Sj, 1)
For j = 0 To UBound(Sj, 2)
If aa < Sj(i, j) Then aa = Sj(i, j)
Next
Next

For i = 0 To UBound(Sj, 1)
For j = 0 To UBound(Sj, 2)
If aa = Sj(i, j) Then
bb = bb & vbCrLf & "在第" & i + 1 & "行，第" & j + 1 & "列"
End If
Next
Next
Smax = "最大值是：" & aa & bb

End Function

回答2：

Private Sub Command1_Click()
Randomize
Text1 = ""
For i = 0 To 3
For j = 0 To 4
Suju(i, j) = Rnd * 89 + 10
Text1 = Text1 & " " & Suju(i, j)
Next
Text1 = Text1 & vbCrLf
Next
Picture1.Cls
Picture1.Print Smax(Suju)

End Sub

Function Smax(Sj() As Integer) As String
Dim aa As Integer
Dim bb As String

aa = Suju(0, 0)
For i = 0 To UBound(Sj, 1)
For j = 0 To UBound(Sj, 2)
If aa < Sj(i, j) Then aa = Sj(i, j)
Next
Next

For i = 0 To UBound(Sj, 1)
For j = 0 To UBound(Sj, 2)
If aa = Sj(i, j) Then
bb = bb & vbCrLf & "在第" & i + 1 & "行，第" & j + 1 & "列"
End If
Next
Next
Smax = "最大值是：" & aa & bb

最新问答

每人一天抽一支烟就少活多长时间

VB编写程序生成一个4行5列的二维数组，并求该数组的最大元素及其行号、列号。。

当今足坛有哪些新球员具有潜力？

桃花源记中桃花源中人为什么叹惋?作者为什么不意义写出渔人的话?

国家有无法律规定学生必须穿校服穿校服就和九年义务教育一样是学生必须服从的责任?

NVIDIA GeForce 315与NVIDIA GeForce 7100 GS谁好？

已知a+b=3,ab=1,则a／b+b／a的值=（等于）？

我家红贵八九个月大一个月前得过肠胃没看医生自己给医好了五天前狗狗突然有一天抽搐吐白沫喜欢躲...

上海市徐泾北是什么区

捷克陨石真的有用吗？