用VB写一下该程序输入一批数据,统计其正数平均值和负数平均值,输入零时停止

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/13 19:47:20

Dim num As Integer
Dim zhengshu As Single
Dim i As Integer
Dim fushu As Single
Dim j As Integer
Private Sub Command1_Click()
Do
num = Val(InputBox("请输入一个数","",""))
If num > 0 Then
zhengshu = zhengshu + num
i = i + 1
End If
If num < 0 Then
fushu = fushu + num
j = j + 1
End If
Loop Until num = 0
Text1.Text = Str(zhengshu / i)
Text2.Text = Str(fushu / j)
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
zhengshu = 0
fushu = 0
i = 0
j = 0
End Sub
代码经过本人自己验证,可行
再问：请问一下那截尾平均数的VB代码怎么写
再答：截尾平均数？没明白你的意思。
再问：输入N个数(N>=3)，去掉最大的数，去掉最小数，求平均值用VB的顺序结构，循环结构，分支结构来写
再答：提示你一下，由于我定义数组是一个整型数组，所以你输入的时候不要输小数啊！ Private Sub Form_Click() Dim n As Integer, a() As Integer, avg As Single, max As Integer, min As Integer, i As Integer, sum As Integer n = InputBox("请输入数字的个数") If n < 3 Then MsgBox "输入的数太少，请重新输入", vbExclamation + vbOKOnly, "警告" Exit Sub Else ReDim a(1 To n) As Integer For i = 1 To n a(i) = InputBox("请输入第" & i & "个数") sum = sum + a(i) Next i max = a(1) min = a(1) For i = 1 To n If max < a(i) Then max = a(i) End If If min > a(i) Then min = a(i) End If Next i sum = sum - max - min avg = sum / (n - 2) Print avg End If End Sub

用VB写一下该程序输入一批数据,统计其正数平均值和负数平均值,输入零时停止输入一组非零整数(以输入零作为输入结束标志)到一维数组中,设计程序,求出这组数的平均值,并统计出正数和负数个数用C语言编程（输入10个数求所有正数和,正数平均值,负数和负数平均值）用C语言编写程序.输入一些整数,编程计算并输出其中所有正数的和,输入负数或零时,表示输入数据结束. java编程：用户从键盘上输入10个数,分别统计正数、负数、零的个数、平均值、累加和. C语言编程任意输入10个数,求所有正数和正数平均值负数和及负数平均值读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束. 编写java程序,输入若干个正数,计算它们的平均值并统计比平均值大的实数的个数. 从键盘输入一组非0整数,以输入0标志结束,求这组整数的平均值,并统计其中正数和负数的个数. 用VB函数计算一维数组所有元素的平均值.要求,子函数实现求平均值,主函数实现数据输入及平均值输出求c语言程序讲解：输入一组数据,求最大值,最小值,和,平均值 C-free基础编程1.编写程序对输入的一批整数（以0作为数据输入结束的标志）进行统计,统计出正数的个数、负数的个数、奇

用VB写一下该程序 输入一批数据,统计其正数平均值和负数平均值,输入零时停止

用VB写一下该程序输入一批数据,统计其正数平均值和负数平均值,输入零时停止