跪求vb程序！

来源：百度知道 编辑：UC知道 时间：2024/05/09 05:22:24
编写一个过程或子函数，其中至少一个参数是数组。要求完成下列功能：判断数组的元素个数是奇数还是偶数，如果是奇数，请求整个数组的平均值。如果是偶数，请分别求出数组的前半部和，后半部和。

必须用vb语言编写，且需要列出随机数组。 跪求答案，尽量具体，谢谢各位好心人了！

Private Sub Command1_Click()
Cls
Dim Tx()
z = Int((15 * Rnd) + 1) '随机产生数组数目
ReDim Tx(z)

For i = 0 To UBound(Tx)
Tx(i) = Int((100 * Rnd) + 1) '随机产生数组元素的值
Print "数组" & CStr(i + 1) & "：" & Tx(i)
Next

Call IsQ(Tx)

End Sub

Sub IsQ(Wz())
A1 = 0
C1 = 0
C2 = 0
Q = UBound(Wz)

If ((Q + 1) Mod 2) = 1 Then '判断奇数还是偶数，如果等于1就是奇数
Print "奇数数组！"
For i = 0 To Q '循环相加
A1 = A1 + Wz(i)
Next
Print "平均值为：" & A1 / (Q + 1) '求平均
Else
Print "偶数数组！"
B1 = ((Q + 1) / 2)
For i = 0 To B1 - 1 '循环前半部相加
C1 = C1 + Wz(i)
Next
Print "前半部和：" & C1

For i = B1 To Q '循环后半部相加
C2 = C2 + Wz(i)
Next
Print "后半部和：" & C2
End If
End Sub