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

问题描述:

设有一个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
怎么把那个对角线和输出?怎么确定最小元素的值与位置?

Dim a(5,5) As IntegerPrivate Sub Command1_Click()For i = 0 To 5For j = 0 To 5a(i,j) = Int(90 * Rnd + 10)Print a(i,j);Next jPrintNext iEnd SubPrivate Sub Command2_Click()Dim min,x,y,i,jFor i = 0 To 5s ...