【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/04/28 03:14:28
【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.
1.数组元素在10到100范围内
2.数组的最大值和乘积由自定义子过程完成
3.将数组各元素、最大值和乘积写入文件中
1.数组元素在10到100范围内
2.数组的最大值和乘积由自定义子过程完成
3.将数组各元素、最大值和乘积写入文件中
'vb6 测试成功
Option Explicit
Private Function max(b() As Integer) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 6
For j = 1 To 6
If max < b(i,j) Then max = b(i,j)
Next
Next
End Function
Private Function mul(c() As Integer) As Double
Dim i As Integer
Dim j As Integer
Dim max As Integer
Dim max_r As Integer
max = c(1,1)
max_r = 1
For i = 1 To 6
For j = 1 To 6
If max < c(i,j) Then
max = c(i,j)
max_r = i
End If
Next
Next
mul = 1
For j = 1 To 6
mul = mul * c(max_r,j)
Next
End Function
Private Sub Command1_Click()
Cls
Dim a(1 To 6,1 To 6) As Integer
Dim i As Integer
Dim j As Integer
Randomize
For i = 1 To 6
For j = 1 To 6
a(i,j) = Int(Rnd * (100 - 10 + 1) + 10)
Print a(i,j); Tab(8 * j);
Next
Print
Next
Print "max = "; max(a())
Print "mul = "; mul(a())
Open App.Path & "\output.txt" For Output As #1
For i = 1 To 6
For j = 1 To 6
Print #1,a(i,j); Tab(j * 8);
Next
Print #1,
Next
Print #1,"max = "; max(a())
Print #1,"mul = "; mul(a())
Close #1
End Su
Option Explicit
Private Function max(b() As Integer) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 6
For j = 1 To 6
If max < b(i,j) Then max = b(i,j)
Next
Next
End Function
Private Function mul(c() As Integer) As Double
Dim i As Integer
Dim j As Integer
Dim max As Integer
Dim max_r As Integer
max = c(1,1)
max_r = 1
For i = 1 To 6
For j = 1 To 6
If max < c(i,j) Then
max = c(i,j)
max_r = i
End If
Next
Next
mul = 1
For j = 1 To 6
mul = mul * c(max_r,j)
Next
End Function
Private Sub Command1_Click()
Cls
Dim a(1 To 6,1 To 6) As Integer
Dim i As Integer
Dim j As Integer
Randomize
For i = 1 To 6
For j = 1 To 6
a(i,j) = Int(Rnd * (100 - 10 + 1) + 10)
Print a(i,j); Tab(8 * j);
Next
Next
Print "max = "; max(a())
Print "mul = "; mul(a())
Open App.Path & "\output.txt" For Output As #1
For i = 1 To 6
For j = 1 To 6
Print #1,a(i,j); Tab(j * 8);
Next
Print #1,
Next
Print #1,"max = "; max(a())
Print #1,"mul = "; mul(a())
Close #1
End Su
【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.
VB如何统计二维数组中相同元素的个数?
随机生成一个元素为10到40之间整数的4行5列数组,找出该二维数组的最大元素与最小元素,
利用随机函数产生16个随机整数给一个4*4的二维数组赋值.按行列输出数组 ,求最外一圈元素之和.
VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行
利用VB,编写一个3*4的二维数组输入任意整数,求所有数组元素和及平均值
matlab 编写一个m函数文件,求一数组中的元素,使得该元素的绝对值在该数组所有元素的绝对值中是最大的.
vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来
用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
假定一个二维数组的定义为“int a[3][6];"则该数组所含元素的个数为
一道编程题,输入一个3╳4的数组,先找出每一行中的最大元素,再分别除该行中的所有元素,最后输出数组.要求:定义和调用函数