设有一个6×6的方阵,VB求方阵中最小的元素的位置和值1.设有一个6×6的方阵,其中的元素是随机产生的10-99之间的两位数.分别求出主对角线和次对角线上元素之和,以及方阵中最小的元素的位

Question

设有一个6×6的方阵,VB求方阵中最小的元素的位置和值
1.设有一个6×6的方阵,其中的元素是随机产生的10 - 99 之间的两位数.分别求出主对角线和次对角线上元素之和,以及方阵中最小的元素的位置和值.（参考课本 p112,例7.6）
要求:
程序运行后,单击“产生”按钮时,输出方阵.单击“计算”按钮时,输出对角线元素之和,以及最小元素的值与位置.
以下是产生6X6二维数组、输出方阵、计算对角线元素之和的部分
Private Sub Command1_Click()
Dim a(5,5) As Integer
For i = 0 To 5
For j = 0 To 5
a(i,j) = Int(90 * Rnd + 10)
Next j
Next i
For i = 0 To 5
For j = 0 To 5
Print a(i,j);
Next j
Print
Next i
For i = 0 To 5
s1 = s1 + a(i,i)
Next i
For i = 0 To 5
s2 = s2 + a(i,5 - i)
Next i
End Sub
怎么把那个对角线和输出?怎么确定最小元素的值与位置?

Answer 1

Dim a(5,5) As Integer
Private Sub Command1_Click()
For i = 0 To 5
For j = 0 To 5
a(i,j) = Int(90 * Rnd + 10)
Print a(i,j);
Next j
Print
Next i
End Sub
Private Sub Command2_Click()
Dim min,x,y,i,j
For i = 0 To 5
s = s + a(i,i)
s = s + a(i,5 - i)
Next i
Print "对角线之和="; s
min = a(0,0)
For i = 0 To 5
For j = 0 To 5
If min > a(i,j) Then min = a(i,j):x = i:y = j
Next j
Next i
Print "最小元素=" & min
Print "最小元素位于：" & x & "行" & y & "列"
End Sub