VB编程,“数组问题”窗口利用随机函数随机产生两个两位数的5×5矩阵并作运算...
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/09 23:34:53
VB编程,“数组问题”窗口利用随机函数随机产生两个两位数的5×5矩阵并作运算...
“数组问题”窗口
利用随机函数随机产生两个两位数的5×5矩阵并作运算.
要求如下:
(1)将两个矩阵相加,结果放入矩阵C中;(2)统计矩阵C中最大值和下标;
(3)求矩阵A两条对角线元素之和;(4)将矩阵A按列的次序把各元素放入一维数组D中.
(5)结束按钮,返回功能选择界面
设计方法:在窗体上添加4个命令按钮,用来触发有关运算的事件过程;3个图片框,分别用来显示A矩阵、B矩阵及各种运算结果.界面设计见图
“数组问题”窗口
利用随机函数随机产生两个两位数的5×5矩阵并作运算.
要求如下:
(1)将两个矩阵相加,结果放入矩阵C中;(2)统计矩阵C中最大值和下标;
(3)求矩阵A两条对角线元素之和;(4)将矩阵A按列的次序把各元素放入一维数组D中.
(5)结束按钮,返回功能选择界面
设计方法:在窗体上添加4个命令按钮,用来触发有关运算的事件过程;3个图片框,分别用来显示A矩阵、B矩阵及各种运算结果.界面设计见图
Dim a%(1 To 6, 1 To 6), b%(1 To 6, 1 To 6)Private Sub Command1_Click()For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
For i = 1 To 5
For j = 1 To 5
b(i, j) = Int(Rnd * 90 + 10)
Picture2.Print b(i, j);
Next j
Picture2.Print
Next i
End SubPrivate Sub Command2_Click()
Picture3.Cls
Dim c%(1 To 5, 1 To 5), m%, n%, s%
For i = 1 To 5
For j = 1 To 5
c(i, j) = a(i, j) + b(i, j)
If c(i, j) > s Then s = c(i, j): m = i: n = j
Picture3.Print c(i, j);
Next j
Picture3.Print
Next i
Picture3.Print "矩阵C中最大值为" & s & "下标为" & m & "," & n
End SubPrivate Sub Command3_Click()
Dim k%, l%
Picture3.Cls
Picture3.Print "矩阵A左上右下对角元素:"
For i = 1 To 5
Picture3.Print Tab(4 * (i - 1)); a(i, i)
k = k + a(i, i)
Next i
Picture3.Print "元素之和=" & k
Picture3.Print
Picture3.Print "矩阵A右上左下对角元素:"
For i = 1 To 5
Picture3.Print Tab(4 * (5 - i)); a(i, 6 - i)
l = l + a(i, 6 - i)
Next i
Picture3.Print "元素之和=" & l
End SubPrivate Sub Command4_Click()
Dim d%(1 To 25)
Picture3.Cls
For i = 1 To 5
For j = 1 To 5
d(5 * (i - 1) + j) = a(j, i)
Next j
Next i
For i = 1 To 25
Picture3.Print d(i)
Next i
End Sub
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
For i = 1 To 5
For j = 1 To 5
b(i, j) = Int(Rnd * 90 + 10)
Picture2.Print b(i, j);
Next j
Picture2.Print
Next i
End SubPrivate Sub Command2_Click()
Picture3.Cls
Dim c%(1 To 5, 1 To 5), m%, n%, s%
For i = 1 To 5
For j = 1 To 5
c(i, j) = a(i, j) + b(i, j)
If c(i, j) > s Then s = c(i, j): m = i: n = j
Picture3.Print c(i, j);
Next j
Picture3.Print
Next i
Picture3.Print "矩阵C中最大值为" & s & "下标为" & m & "," & n
End SubPrivate Sub Command3_Click()
Dim k%, l%
Picture3.Cls
Picture3.Print "矩阵A左上右下对角元素:"
For i = 1 To 5
Picture3.Print Tab(4 * (i - 1)); a(i, i)
k = k + a(i, i)
Next i
Picture3.Print "元素之和=" & k
Picture3.Print
Picture3.Print "矩阵A右上左下对角元素:"
For i = 1 To 5
Picture3.Print Tab(4 * (5 - i)); a(i, 6 - i)
l = l + a(i, 6 - i)
Next i
Picture3.Print "元素之和=" & l
End SubPrivate Sub Command4_Click()
Dim d%(1 To 25)
Picture3.Cls
For i = 1 To 5
For j = 1 To 5
d(5 * (i - 1) + j) = a(j, i)
Next j
Next i
For i = 1 To 25
Picture3.Print d(i)
Next i
End Sub
VB编程,“数组问题”窗口利用随机函数随机产生两个两位数的5×5矩阵并作运算...
急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”,
怎样编程利用随机函数产生15个100内的随机整数存入一维数组,然后分三行输出,每行5个数如题 谢谢了
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行
vb 关于数组的问题1.利用随机函数生成一个4*5的矩阵(二维数组),范围是[1,100]之间的整数,求所有元
vb问题利用随机函数产生80个10~99之间的随机整数,
编写程序利用随机函数产生10个两位数存入数组a中,并按照从大到小顺序排列输出
VB利用随机函数产生30个[3,99]整数,打印输出其中的素数(要求用数组存放)
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
VB编程随机生成两个3*3的矩阵A和B.
利用随机函数产生10个30~100之间的随机正整数,求最大值,最小值 平均值,并显示数组的值和结果