有关vb的问题!高手指点一下,谢谢!

来源：百度知道 编辑：UC知道 时间：2024/05/21 08:02:37
有如下一个二维数组，
45 67 89
23 54 99
89 59 29
找出不同行、不同列的三组元素的乘积最大的一组，并将这三个元素按下面的形式打印出来：
A（1，*）=** A（2，*）=** A（3，*）=**

Function aa()
Max = 0
Dim a(3, 3) As Long
Dim b(3) As String
a(1, 1) = 45: a(1, 2) = 67: a(1, 3) = 89
a(2, 1) = 23: a(2, 2) = 54: a(2, 3) = 99
a(3, 1) = 89: a(3, 2) = 59: a(3, 3) = 29
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
sun = a(1, i) * a(2, j) * a(3, k)
If sun > Max And i <> j And j <> k And i <> k Then
Max = sun
b(1) = i: b(2) = j: b(3) = k
End If
Next
Next
Next
sStrings = "a(1," + CStr(b(1)) + ")" + "=" + CStr(a(1, b(1))) + " " + "a(2," + CStr(b(2)) + ")" + "=" + CStr(a(2, b(2))) + " " + "a(3," + CStr(b(3)) + ")" + "=" + CStr(a(3, b(3)))
MsgBox Max & sStrings
End Function
实现要求，答得累啊，给分吧