二维数组中的某列,vb实现对该列每三个元素求平均值(没有重复的元素),最后显示这些平均值
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/25 18:36:55
![二维数组中的某列,vb实现对该列每三个元素求平均值(没有重复的元素),最后显示这些平均值](/uploads/image/z/8801623-55-3.jpg?t=%E4%BA%8C%E7%BB%B4%E6%95%B0%E7%BB%84%E4%B8%AD%E7%9A%84%E6%9F%90%E5%88%97%2Cvb%E5%AE%9E%E7%8E%B0%E5%AF%B9%E8%AF%A5%E5%88%97%E6%AF%8F%E4%B8%89%E4%B8%AA%E5%85%83%E7%B4%A0%E6%B1%82%E5%B9%B3%E5%9D%87%E5%80%BC%EF%BC%88%E6%B2%A1%E6%9C%89%E9%87%8D%E5%A4%8D%E7%9A%84%E5%85%83%E7%B4%A0%EF%BC%89%2C%E6%9C%80%E5%90%8E%E6%98%BE%E7%A4%BA%E8%BF%99%E4%BA%9B%E5%B9%B3%E5%9D%87%E5%80%BC)
二维数组中的某列,vb实现对该列每三个元素求平均值(没有重复的元素),最后显示这些平均值
二维数组中的某列,vb实现对该列每三个元素求平均值(没有重复的元素),最后显示这些平均值
二维数组中的某列,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 Sub