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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 05:43:47
用VB写一下该程序 输入一批数据,统计其正数平均值和负数平均值,输入零时停止

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

用VB写一下该程序 输入一批数据,统计其正数平均值和负数平均值,输入零时停止
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写一下该程序 输入一批数据,统计其正数平均值和负数平均值,输入零时停止 找出1000以内所有的个位数为3素数,并统计其个数.用vb写的程序 C语言作业,turbo2.01.从键盘上依次输入一批数据,输出最大值和最小值,并统计出其中的正数和负数的个数.如何统计那个个数,希望大神给予参考程序和分析. VB中,不断输入数据直到输入-1为止,统计这些数中有多少个偶数用do loop循环 用VB的do 语句编写 输入一串数字,当为#是停止程序,统计正负数的个数VB的do 语句编写 输入一串数字,当为#是停止程序,统计正负数的个数 如何设计用vb语言编写一个程序,输入三个数,输出其中的最大数 用VB编写程序输出1~100之间不能被3整除的数,并统计其个数. 用VB程序编写程序输出50~200之间不能同时被3和7整除的自然数,并统计其个数 求用while 编写一个程序;编写一个程序,提示输入数值,可循环输入多个数据,并对输入的数值进行判断,分别统计输入的奇数和偶数的总和.C语言编写、 写c++程序:从键盘上输入一组数据,其中该组数据是以输入零结束的,求这组数中最大值与最小值 C语言编写程序,从输入的整数中统计大于0和小于0的个数,用0作为结束输入的数据. 用C语言输入任意一组数,以0结束,写一程序判断该组数中数据的奇偶性.不用数组,用循环! 输入一个正整数n(1《=n《=6),再输入一个n行n列的矩阵,统计并输出该举证中非零元素的个数用C语言写程序. 用vb脚本语言编写一个小程序,程序实现功能如下:任意输入三个整数,使其按大到小的顺序输出.紧急! 用VB编一个井控压井的程序,司钻法和工程师法,选择其中一个压井方法,输入关井数据和计算,可以描绘出套 求用VB编辑一个计算二元一次方程组的程序要完善的,不能有程序崩溃,比如输入数据时输入的不是数字而是字母就会崩溃 C语言程序设计:编写程序,输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和. 求:编写程序,输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和.C语言程序设计