早教吧作业答案频道 -->数学-->
设有一个6×6的方阵,VB求方阵中最小的元素的位置和值1.设有一个6×6的方阵,其中的元素是随机产生的10-99之间的两位数.分别求出主对角线和次对角线上元素之和,以及方阵中最小的元素的位
题目详情
设有一个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
怎么把那个对角线和输出?怎么确定最小元素的值与位置?
▼优质解答
答案和解析
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
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
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
看了 设有一个6×6的方阵,VB求...的网友还看了以下:
一个概率的问题某班有20名学生,设每人的生日在一年365天中的任何一天都是等可能的,试求:没有人的 2020-05-15 …
设随机变量X满足正态分布N(u,σ2),则在X的概率密度函数f(x)的图形中,其峰值是什么值,代表 2020-05-16 …
1.设随机过程W(t)=X+tY+t平方Z,其中X,Y,Z是两两不相关的随机变量,且E(X)=E( 2020-06-17 …
1、设A、B为任意两个事件,则有2、设随机变量X~N(1,4),Y=2X+1,则Y所服从的分布为3 2020-06-18 …
某电子元件生产商运送给供应商20批元件,每批10个元件,假设这些元件的所有批次中有60%没有不合格 2020-06-24 …
概率论问题.1.设随机变量X与Y相互独立,且X~b(36,1/6),b(12,1/3),则D(X- 2020-07-22 …
设某种元件使用寿命为随机变量X(小时),其概率密度为f(x)=x平方分之1000,x>1000.某 2020-07-30 …
设随机变量X与Y相互独立且分别服从正态分布N(μ,σ2)与N(μ,2σ2),其中σ是未知参数且σ>0 2020-11-01 …
设随机变量服从指数分布,且D(X)=0.2,则E(X)=.设随机变量服从泊松分布,且D(X)=0.3 2020-11-06 …
1.设随机变量X服从区间(1,6)上的均匀分布,求一元二次方程有实根的概率2.已知连续型随机变量X的 2020-12-04 …