vb編程題~~~~~關於數組~~~

Dim i As Integer, j As Integer, k As Integer, aa(4, 4) As Integer, bb As String, cc As Integer, dd As Double, ee(24)

Me.AutoRedraw = True

bb = ""

For i = 0 To 4

For j = 0 To 4

aa(i, j) = Fix(Rnd * 100)

bb = bb & aa(i, j) & " "

Next j

bb = bb & Chr(13) & Chr(10)

Next i

For i = 0 To 4

cc = cc + aa(i, i) + aa(i, 4 - i)

Next i

bb = bb & Chr(13) & Chr(10) & "對角線之和：" & cc

dd = 1

For i = 0 To 4

dd = dd * aa(i, i) * aa(i, 4 - i)

Next i

bb = bb & Chr(13) & Chr(10) & "對角線之積：" & dd

k = 0

For i = 0 To 4

For j = 0 To 4

ee(k) = aa(i, j)

k = k + 1

Next j

Next i

cc = ee(0)

For i = 0 To 23

If ee(i) > ee(i + 1) Then

ee(i + 1) = ee(i)

cc = ee(i)

End If

Next i

bb = bb & Chr(13) & Chr(10) & "最大元素" & cc

Print bb

上一篇:南昌航空大學的航空維修專業怎麽樣？

下一篇:JL編程材料