VB:随机生成两个n×n矩阵,先写程序实现这两个矩阵的相加
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/23 00:56:14
VB:随机生成两个n×n矩阵,先写程序实现这两个矩阵的相加
![](http://img.wesiedu.com/upload/0/81/081dd40bf04da0b81cfb1c00f36f6303.jpg)
![](http://img.wesiedu.com/upload/0/81/081dd40bf04da0b81cfb1c00f36f6303.jpg)
![VB:随机生成两个n×n矩阵,先写程序实现这两个矩阵的相加](/uploads/image/z/17132720-32-0.jpg?t=VB%EF%BC%9A%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%90%E4%B8%A4%E4%B8%AAn%C3%97n%E7%9F%A9%E9%98%B5%2C%E5%85%88%E5%86%99%E7%A8%8B%E5%BA%8F%E5%AE%9E%E7%8E%B0%E8%BF%99%E4%B8%A4%E4%B8%AA%E7%9F%A9%E9%98%B5%E7%9A%84%E7%9B%B8%E5%8A%A0)
Dim a() As Integer, b() As Integer, c() As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a3 As String
ReDim c(1 To Val(Text1), 1 To Val(Text1))
For i = 1 To Val(Text1)
For j = 1 To Val(Text1)
c(i, j) = a(i, j) + b(i, j)
a3 = a3 & c(i, j) & " "
Next
a3 = a3 & vbCrLf
Next
Text4 = a3
End Sub
Private Sub Form_Load()
Randomize Timer
Text1 = 4
Text4 = ""
End Sub
Private Sub Text1_Change()
Text2 = "": Text3 = ""
Dim a1 As String, a2 As String, i As Integer, j As Integer
ReDim a(1 To Val(Text1), 1 To Val(Text1))
ReDim b(1 To Val(Text1), 1 To Val(Text1))
ReDim c(1 To Val(Text1), 1 To Val(Text1))
For i = 1 To Val(Text1)
For j = 1 To Val(Text1)
a(i, j) = Int(Rnd * 100)
a1 = a1 & a(i, j) & " "
b(i, j) = Int(Rnd * 100)
a2 = a2 & b(i, j) & " "
Next
a1 = a1 & vbCrLf
a2 = a2 & vbCrLf
Next
Text2 = a1: Text3 = a2
End Su
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a3 As String
ReDim c(1 To Val(Text1), 1 To Val(Text1))
For i = 1 To Val(Text1)
For j = 1 To Val(Text1)
c(i, j) = a(i, j) + b(i, j)
a3 = a3 & c(i, j) & " "
Next
a3 = a3 & vbCrLf
Next
Text4 = a3
End Sub
Private Sub Form_Load()
Randomize Timer
Text1 = 4
Text4 = ""
End Sub
Private Sub Text1_Change()
Text2 = "": Text3 = ""
Dim a1 As String, a2 As String, i As Integer, j As Integer
ReDim a(1 To Val(Text1), 1 To Val(Text1))
ReDim b(1 To Val(Text1), 1 To Val(Text1))
ReDim c(1 To Val(Text1), 1 To Val(Text1))
For i = 1 To Val(Text1)
For j = 1 To Val(Text1)
a(i, j) = Int(Rnd * 100)
a1 = a1 & a(i, j) & " "
b(i, j) = Int(Rnd * 100)
a2 = a2 & b(i, j) & " "
Next
a1 = a1 & vbCrLf
a2 = a2 & vbCrLf
Next
Text2 = a1: Text3 = a2
End Su
两个m×n的矩阵,用C++编写程序实现矩阵的加法运算(两个矩阵中的元素一一对应)
VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素
VB编程随机生成两个3*3的矩阵A和B.
如何使用C# 语言实现螺旋加上蛇形的动态生成矩阵?n随机取数.
("矩阵A 矩阵B为:\n");计算两个矩阵相加gets(Num);
("矩阵A 矩阵B为:\n");计算两个矩阵相加cmacro_try_end();r
编写程序实现:用rand()函数生成两个矩阵的各个元素,
求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.
实验项目:实现矩阵的加与乘操作.实验要求:定义两个n乘n矩阵,编程计算两个矩阵现价与相乘的结果.
编写VB程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如:A矩阵及其转置矩阵B分别为:
matlab生成一个M*N随机矩阵,要求该矩阵的均值是1*10^-6
在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135(第二版书上习题第五章8题)