Question

小女子跪求一道vb题答案，各位大虾发发善心吧。十万火急！

编写一个过程或子函数，其中至少一个参数是数组。要求完成下列功能：判断数组的元素个数是奇数还是偶数，如果是奇数，请求整个数组的平均值。如果是偶数，请分别求出数组的前半部和，后半部和。
5555~~~~谢谢大家！不过我需要的是vb程序，不能用c语言啊！

Answer 1

Option Base 1
Const N As Integer = 9
Private Sub Form_Click()
Dim i As Integer
Dim A(N) As Integer
For i = 1 To N
A(i) = i
Next i
Call pd(A)

End Sub

Private Sub pd(X() As Integer)
Dim i As Integer
Dim sum As Integer, sum1 As Integer, sun2 As Integer
If N Mod 2 = 0 Then
Print "数组元素个数是偶数！"
For i = 1 To N / 2
sum1 = sum1 + X(i)
Next i
For i = N / 2 To N
sum2 = sum2 + X(i)
Next i
Print "数组前半部分的和为：" + Str(sum1)
Print "数组后半部分的和为：" + Str(sum2)
Else
Print "数组元素个数是奇数数！"
For i = 1 To N
sum = sum + X(i)
Next i
Print "数组的半均值为：" + Str(sum / N)
End If
End Sub

记得加分哦

Answer 2

偶也不太懂，只是路过，虽然这们这里也有高手，但人家忙起的，不好意思麻烦别人

Answer 3

我帮你看看,试试吧

Answer 4

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

If ((Q + 1) Mod 2) = 1 Then '判断奇数还是偶数，如果等于1就是奇数
For i = 0 To Q '循环相加
A1 = A1 + Wz(i)
Next
Text1.Text = A1 / (Q + 1) '求平均
Else
B1 = ((Q + 1) / 2)
For i = 0 To B1 - 1 '循环前半部相加
C1 = C1 + Wz(i)
Next
Text1.Text = C1

For i = B1 To Q '循环后半部相加
C2 = C2 + Wz(i)
Next
Text2.Text = C2
End If