设有一个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
怎么把那个对角线和输出?怎么确定最小元素的值与位置?
人气:269 ℃ 时间: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 ...
推荐
猜你喜欢
- 证明任何一个n阶方阵都可以表示为一个对称矩阵和一个反对称矩阵之和,并且这种表示方式唯一的.
- 若三角形的一个内角是另外内角之差,则这个三角形是什么三角形
- 用手从井口每隔0.5s由静止释放一个小石子,当第一颗落到井底时,第11颗石子刚历手,求井深,急求,拜托速度
- 解分式方程:2x2-4x-3/x2-2x-1=3
- 美国1787年宪法的历史意义
- 为什么通入少量的二氧化碳会生成碳酸根,而过量会生成碳酸氢根?
- 生产一批儿童玩具,甲车间单独做6天完成,乙车间单独8天完成,丙车间单独12天完成.如果任务增加八分之一,三个车间合作,需多少天完成
- 网络中省略用语很多,人们为了提高文字输入效率常用符号或字母来代表其意义,谁知道字母U的含义?