求VB编程.设计一个5*5的方阵,其中的元素由计算机随机产生小于100的整数,请求出:1,对角线上元
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 06:20:43
求VB编程.设计一个5*5的方阵,其中的元素由计算机随机产生小于100的整数,请求出:1,对角线上元
元素之和2,…之积3,方阵中最大的元素和它的位置
元素之和2,…之积3,方阵中最大的元素和它的位置
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从键盘输入