Question

随机生成一个元素为10到40之间整数的4行5列数组，找出该二维数组的最大元素与最小元素，这道题怎么做啊

并将最大元素与最小元素的值以及相应的行号和列号输出到图片框中。

若以下回答无法解决问题，邀请你更新回答

Answer 1

vb 语言吗？要讲清楚的噢！

追问

恩恩　我想要全部过程　可以帮帮忙吗？
我急需　要ＱＱ上发给我么　　谢谢啊

追答

Option Explicit

Private Sub Command1_Click()
Dim x(4, 5), i%, j%
For i = 1 To 4
For j = 1 To 5
x(i, j) = Int(Rnd() * 30 + 10)
Next j, i
Print maxSz(x), minSz(x)
End Sub

Private Sub Form_Load()
Randomize Time
End Sub

Function maxSz(x)
Dim x1, temp
For Each x1 In x
temp = x1
Next x1

For Each x1 In x
If (temp x1) Then temp = x1
Next x1
minSz = temp
End Function

追问

真的谢谢哈