二维数组中的某列,vb实现对该列每三个元素求平均值(没有重复的元素),最后显示这些平均值
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/16 09:55:24
二维数组中的某列,vb实现对该列每三个元素求平均值(没有重复的元素),最后显示这些平均值
Private Sub Command1_Click()
Dim a(6, 10) As Integer
Dim i As Integer
Dim m As Integer
For i = 0 To 10
For m = 0 To 6
a(m, i) = Rnd() * 100
Next
Next
cc a, 3
End Sub
Private Function avg3(ByVal a As Single, ByVal b As Single, ByVal c As Single) As Single
avg3 = a + b + c
avg3 = avg3 / 3
End Function
Private Sub cons(ByVal str As String)
Dim a() As String
Dim i As Integer
Dim ret As String
a = Split(str, ",")
ret = str & vbCrLf
For i = LBound(a) To (UBound(a) - 2)
'Debug.Print a(i)
For m = i + 1 To (UBound(a) - 1)
For n = m + 1 To UBound(a)
ret = ret & a(i) & "," & a(m) & " ," & a(n) & " -- avg:"
ret = ret & avg3(a(i), a(m), a(n))
ret = ret & vbCrLf
Next
Next
Next
MsgBox ret
End Sub
Private Sub cc(ByRef ary2() As Integer, col As Integer)
Dim str As String
For i = LBound(ary2, 1) To UBound(ary2, 1)
If str = "" Then
str = ary2(i, col)
Else
str = str & "," & ary2(i, col)
End If
Next
cons str
End Su
Dim a(6, 10) As Integer
Dim i As Integer
Dim m As Integer
For i = 0 To 10
For m = 0 To 6
a(m, i) = Rnd() * 100
Next
Next
cc a, 3
End Sub
Private Function avg3(ByVal a As Single, ByVal b As Single, ByVal c As Single) As Single
avg3 = a + b + c
avg3 = avg3 / 3
End Function
Private Sub cons(ByVal str As String)
Dim a() As String
Dim i As Integer
Dim ret As String
a = Split(str, ",")
ret = str & vbCrLf
For i = LBound(a) To (UBound(a) - 2)
'Debug.Print a(i)
For m = i + 1 To (UBound(a) - 1)
For n = m + 1 To UBound(a)
ret = ret & a(i) & "," & a(m) & " ," & a(n) & " -- avg:"
ret = ret & avg3(a(i), a(m), a(n))
ret = ret & vbCrLf
Next
Next
Next
MsgBox ret
End Sub
Private Sub cc(ByRef ary2() As Integer, col As Integer)
Dim str As String
For i = LBound(ary2, 1) To UBound(ary2, 1)
If str = "" Then
str = ary2(i, col)
Else
str = str & "," & ary2(i, col)
End If
Next
cons str
End Su
二维数组中的某列,vb实现对该列每三个元素求平均值(没有重复的元素),最后显示这些平均值
编一程序,把一个m行n列矩阵中的元素存放到一个二维数组中,并求出该数组的平均值,最大值和最小值
利用VB,编写一个3*4的二维数组输入任意整数,求所有数组元素和及平均值
用VB函数 计算一维数组所有元素的平均值.要求,子函数实现求平均值,主函数实现数据输入及平均值输出
VB 输入一个3行4列的二维数组,分别求出每一行、每一列元素之和 要求
用VB编写一个程序,计算出给定的10*10矩阵(存放在二维数组A中)每行元素的最大值和每列元素的最小值
找出一个二维数组中的鞍点,即该位置上的元素在该行上最大,在该列上最小(也可能没有鞍点).
求3行4列二维数组的和,平均值,最大值和最小值及其所在的位置.用一个main函数实现,输出要求如下:
定义一个整型数组a,a包括20个元素,每五个元素求平均值,将平均值放入数组b中,将b中元素输出.要不该大挂了啊!用C编的
找出一个二维数组(4*4)中的鞍点,即该位置上的元素在该行上最大,在该列上最小.也可能没有鞍点.
设计一个数组,存放20个范围在(1,100)之间的随机数,每行显示五个.求该数组元素的平均值,最大值,最小值,
两列的矩阵,将矩阵中第一列元素相同的第二列元素相加求平均值 matlab