作业帮【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.1.数组元素在10到100范围内2.数组的最大值和乘积由自定义子过程完成3.将数组各元素、
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 15:11:39
【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.1.数组元素在10到100范围内2.数组的最大值和乘积由自定义子过程完成3.将数组各元素、
【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.
1.数组元素在10到100范围内
2.数组的最大值和乘积由自定义子过程完成
3.将数组各元素、最大值和乘积写入文件中
【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积.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 Sub