求VB编程.设计一个5*5的方阵,其中的元素由计算机随机产生小于100的整数,请求出:1,对角线上元
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/12 12:08:48
求VB编程.设计一个5*5的方阵,其中的元素由计算机随机产生小于100的整数,请求出:1,对角线上元
元素之和2,…之积3,方阵中最大的元素和它的位置
元素之和2,…之积3,方阵中最大的元素和它的位置
![求VB编程.设计一个5*5的方阵,其中的元素由计算机随机产生小于100的整数,请求出:1,对角线上元](/uploads/image/z/15662704-40-4.jpg?t=%E6%B1%82VB%E7%BC%96%E7%A8%8B.%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA5%2A5%E7%9A%84%E6%96%B9%E9%98%B5%2C%E5%85%B6%E4%B8%AD%E7%9A%84%E5%85%83%E7%B4%A0%E7%94%B1%E8%AE%A1%E7%AE%97%E6%9C%BA%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F%E5%B0%8F%E4%BA%8E100%E7%9A%84%E6%95%B4%E6%95%B0%2C%E8%AF%B7%E6%B1%82%E5%87%BA%EF%BC%9A1%2C%E5%AF%B9%E8%A7%92%E7%BA%BF%E4%B8%8A%E5%85%83)
Private Sub Command1_Click()
Dim a(1 To 5,1 To 5) As Integer
Dim sum,cj,wx,wy,max
Randomize
cj = 1
For i = 1 To 5
For j = 1 To 5
a(i,j) = Int(Rnd * 100)
If i = j Then
sum = sum + a(i,j)
cj = cj * a(i,j)
End If
If a(i,j) > max Then
max = a(i,j)
wx = j:wy = i
End If
Print a(i,j); Tab(5 * j);
Next j
Print
Next i
Print "对角线上元素之和"; sum
Print "对角线上元素之积"; cj
Print "方阵中最大的元素和它的位置"; max,wx; wy
End Su
Dim a(1 To 5,1 To 5) As Integer
Dim sum,cj,wx,wy,max
Randomize
cj = 1
For i = 1 To 5
For j = 1 To 5
a(i,j) = Int(Rnd * 100)
If i = j Then
sum = sum + a(i,j)
cj = cj * a(i,j)
End If
If a(i,j) > max Then
max = a(i,j)
wx = j:wy = i
End If
Print a(i,j); Tab(5 * j);
Next j
Next i
Print "对角线上元素之和"; sum
Print "对角线上元素之积"; cj
Print "方阵中最大的元素和它的位置"; max,wx; wy
End Su
用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
VB 编程题,产生50个1~100之间的随机整数,显示所有小于60的数.
vb编程:随机产生10个[10,100]的整数,求该组数的最大元素、最小元素及其位置.
VB 编程题,产生50个1~100之间的随机整数,显示所有小于60的数.我真心想不会.
VB编程,用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0的元素个数
VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成(范围50~150).编写程序,找出其中最大的元素
VB编程 随机产生50个10~200的整数,统计能被5整除的数的个数
急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”,
求VB编程:给一个5*5的矩阵赋值,要求矩阵副对角线上方元素都是偶数,副对角线和它下方元素都为奇数.
输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.
求VB 程序设计利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇
1.VB编程,求一个M行N列的矩阵四周元素之和,元素值可以随机产生,M、 N从键盘输入