VB程序设计：计算一个5×5矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/18 13:11:07

VB程序设计：计算一个5×5矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间
利用随机函数产生

Private Sub Command1_Click()
Dim i As Integer,bb(20) As Integer
'1
Dim k As Integer,dbl1 As Double
For i = 1 To 20
Randomize
bb(i) = Int(Rnd * 101)
bb(0) = bb(0) + bb(i)
Debug.Print bb(i);
Next i
dbl1 = bb(0) / 20
For i = 1 To 20
If bb(i) > dbl1 Then k = k + 1
Next i
Debug.Print ,"平均分："; dbl1,"高于平均分的人数："; k
End Sub
Private Sub Command2_Click()
Dim i As Integer
'2
Dim k As Integer,dbl1 As Double
For i = 1 To 100
redo:
str1$ = InputBox("请输入第" & i & "个数：","输入")
If Not IsNumeric(str1$) Then GoTo redo
dbl1 = Val(str1$)
If dbl1 = Int(dbl1) Then
Debug.Print dbl1;
k = k + 1
If k Mod 5 = 0 Then Debug.Print
End If
Next i
End Sub
Private Sub Command3_Click()
Dim i As Integer,j As Integer,cc(4,4) As Integer
'3
For i = 0 To 4
For j = 0 To 4
Randomize
cc(i,j) = Int(Rnd * 91) + 10
Debug.Print cc(i,j);
Next j
Debug.Print
Next i
Debug.Print "转置"
For i = 0 To 4
For j = 0 To 4
Debug.Print cc(j,i);
Next j
Debug.Print
Next i
End Su

VB程序设计：计算一个5×5矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间 VB程序设计：计算一个4×4矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间用vb程序设计输出一个右上三角元素（含对角线）为1,其余元素为0 的5×5矩阵. 求VB编程：给一个5*5的矩阵赋值,要求矩阵副对角线上方元素都是偶数,副对角线和它下方元素都为奇数. 利用函数计算一个5*5矩阵的主对角线元素之和,在主函数中输出矩阵以及主对角线元素之和 VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行. 随机产生一个5*5的矩阵A（范围30..100）,交换第一与第三的元素的位置,求矩阵两对角线元素之和. vb、编写程序,建立并输出一个10×10的矩阵,该矩阵对角线元素为1,其余元素均为0. 求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换. matlab 中如何一个矩阵中查找几个元素的位置,比如元素为2 5两值的位置 matlab如何生成对角线为无穷大的矩阵,比如说生成20*20的矩阵,对角元素为无穷大,其他为在5-10之间随机取的数（矩阵对角线元素求和输入一个5×5的数组,分别求其主对角线和辅对角线上元素之和.