作业帮VB程序设计：计算一个4×4矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间利用随机函数产生将对角线的左下角 部分与右上角部分互换 ,两个矩阵在两个textbox中显示,在textbox
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/19 23:41:34
VB程序设计：计算一个4×4矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间利用随机函数产生将对角线的左下角 部分与右上角部分互换 ,两个矩阵在两个textbox中显示,在textbox
VB程序设计：计算一个4×4矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间
利用随机函数产生
将对角线的左下角 部分与右上角部分互换 ,两个矩阵在两个textbox中显示,在textbox下面写出《生成矩阵 》《转后矩阵》再有一个关毕按钮
VB程序设计：计算一个4×4矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间利用随机函数产生将对角线的左下角 部分与右上角部分互换 ,两个矩阵在两个textbox中显示,在textbox
Dim a(1 To 16)
Private Sub Command1_Click()
For i = 1 To 16
Randomize
a(i) = Int(Rnd * 90 + 10)
If i Mod 4 = 0 Then
Text1 = Text1 & a(i) & vbCrLf
Else
Text1 = Text1 & a(i) & Space(1)
End If
Next
End Sub
Private Sub Command2_Click()
temp = a(2)
a(2) = a(5)
a(5) = temp
temp = a(3)
a(3) = a(9)
a(9) = temp
temp = a(4)
a(4) = a(13)
a(13) = temp
temp = a(8)
a(8) = a(14)
a(14) = temp
temp = a(12)
a(12) = a(15)
a(15) = temp
For i = 1 To 16
If i Mod 4 = 0 Then
Text2 = Text2 & a(i) & vbCrLf
Else
Text2 = Text2 & a(i) & Space(1)
End If
Next
End Sub