题目
设有一个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
怎么把那个对角线和输出?怎么确定最小元素的值与位置?
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
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
怎么把那个对角线和输出?怎么确定最小元素的值与位置?
提问时间:2022-01-07
答案
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 ...
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1在三角形Abc中角A.B.C所对的边分别为a.b.c且B=派/3,cosC=1/3,b=3倍根号6.
- 2已知a(a-1)-(a2-b)=2,求代数式ab−a2+b22的值.
- 3You should watch__(little)TV and exercise more 填什
- 422毫升合多少立方厘米,36毫升合多少立方厘米
- 5长江中下游平原是我国三大什么基地之一,长江流域既是我国最大的 油菜籽产区,产区
- 6你认为怎样坚持一切从实际出发,实事求是?
- 7小熊用房方转铺地,用边长是3dm的方砖来铺地需要96块.如果改用边长是4dm的方砖.需要多少块?(用比例)
- 8流量k和m是什么意思?
- 9高中三角恒等式计算~急
- 10如何判断动摩擦与静摩擦
热门考点