VB程序设计:计算一个4×4矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/09/25 02:23:46
VB程序设计:计算一个4×4矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间
利用随机函数产生
将对角线的左下角 部分与右上角部分互换 ,两个矩阵在两个textbox中显示,在textbox下面写出《生成矩阵 》《转后矩阵》再有一个关毕按钮
利用随机函数产生
将对角线的左下角 部分与右上角部分互换 ,两个矩阵在两个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
再问: 不好意思 怎么不能换行啊 你的答案 我的qq850108981 能加上 我们具体说吗 ?拜托了啊 朋友
再答: 我已回答你的问题
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
再问: 不好意思 怎么不能换行啊 你的答案 我的qq850108981 能加上 我们具体说吗 ?拜托了啊 朋友
再答: 我已回答你的问题
VB程序设计:计算一个4×4矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间
VB程序设计:计算一个5×5矩阵的转置,即将对角线两侧的元素位置互换,各元素的值在10~99之间
用vb程序设计输出一个右上三角元素(含对角线)为1,其余元素为0 的5×5矩阵.
C语言编程:将一个4×4的整型矩阵元素按副对角线(右上到左下)互换.
VB程序设计,求一个3行3列矩阵的3行中的元素之和最大的那一行.
vb、编写程序,建立并输出一个10×10的矩阵,该矩阵对角线元素为1,其余元素均为0.
求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.
利用函数计算一个5*5矩阵的主对角线元素之和,在主函数中输出矩阵以及主对角线元素之和
求VB编程:给一个5*5的矩阵赋值,要求矩阵副对角线上方元素都是偶数,副对角线和它下方元素都为奇数.
C语言.求一个4X4矩阵的对角线元素之和,并找出对角线元素中的最大值..
编写VB程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如:A矩阵及其转置矩阵B分别为:
随机生成4*4的数组,数组元素的取范围是[10,99]之间的整数,计算二维数组主对角线元素之和.