设有一个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
怎么把那个对角线和输出?怎么确定最小元素的值与位置?
人气:253 ℃ 时间:2020-07-04 16:38:54
解答
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 ...
推荐
猜你喜欢
- she likes english very much. she is ( ) at english
- 丁丁的房间长3.6米,宽2.8米,在地面铺上边长为20厘米的正方形小瓷砖,需要这样的小瓷砖多少块?
- f(x)=x^3的图像
- 因式分解练习题
- 1.一个长方题的表面积是168平方厘米,长是宽的3分之5,是高的2分之3,该长方体的体积是多少?
- 请英语达人帮忙挑错
- Even though the noble was expected to read the letter at each performance.这句话的翻译是
- 装订一批书,甲独做3小时完成,乙独做4小时完成,甲乙合做1小时装订这批书的几分之几,()小时可以装订完