以下是vb的代码:
Private Sub Command1_Click()
a = 1: b = 0: c = 0: d = 0
While a <= 10
b = InputBox("请输入一个整数(正或负)", "第" & a & "个数据(共10个)")
If b = "" Then b = 0
If Sgn(b) = 1 Then
c = c + 1
d = d + b
End If
a = a + 1
Wend
MsgBox "您输入的10个整数中,有" & c & "个是正数。"
If c <> 0 Then MsgBox "它们的平均值=" & Format(d / c, "0.000") & "。"
End Sub
温馨提示:内容为网友见解,仅供参考