VB程序设计:计算一个5×5矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间利用随机函数产生
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 17:40:23
![VB程序设计:计算一个5×5矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间利用随机函数产生](/uploads/image/z/5442617-65-7.jpg?t=VB%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%EF%BC%9A%E8%AE%A1%E7%AE%97%E4%B8%80%E4%B8%AA5%C3%975%E7%9F%A9%E9%98%B5%E7%9A%84%E8%BD%AC%E7%BD%AE%2C%E5%8D%B3%E5%B0%86%E5%AF%B9%E8%A7%92%E7%BA%BF%E4%B8%A4%E4%BE%A7%E7%9A%84%E5%85%83%E7%B4%A0%E4%BD%8D%E7%BD%AE%E4%BA%92%E6%8D%A2%2C%E5%90%84%E5%85%83%E7%B4%A0%E7%9A%84%E5%80%BC%E5%9C%A810%7E99%E4%B9%8B%E9%97%B4%E5%88%A9%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E4%BA%A7%E7%94%9F)
VB程序设计:计算一个5×5矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间利用随机函数产生
VB程序设计:计算一个5×5矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间
利用随机函数产生
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 Sub