Question

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

利用随机函数产生

Answer 1

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 Sub

Answer 2

Private Sub Command1_Click()
Dim a(1 To 5, 1 To 5), b(1 To 5, 1 To 5)
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
Print a(i, j);
b(j, i) = a(i, j)
Next j
Print
Next i
Print
For i = 1 To 5
For j = 1 To 5
Print b(i, j);
Next j
Print
Next i
End Sub