C语言中用零作为终止标记,求出一批非零整数中的偶数.奇数的平均值,用零作为终止标记的程序...

满意答案

'一个VB程序 实例代码如下：

Private a() As Integer

Private Sub Form_Click()

Do

b = b + 1

ReDim Preserve a(1 To b) As Integer

a(b) = InputBox("请输入一个整数：")

If a(b) = 0 Then

ReDim Preserve a(1 To b - 1) As Integer

Exit Do

End If

Print a(b); " ";

c = c + 1

If c Mod 10 = 0 Then Print

If a(b) Mod 2 <> 0 Then

js1 = js1 + a(b)

js2 = js2 + 1

Else

os1 = os1 + a(b)

os2 = os2 + 1

End If

Loop

Print

Print "奇数的平均值是：" & js1 / js2

Print "偶数的平均值是：" & os1 / os2

End Sub

00分享举报