键盘上输入若干个整数,分别统计大于零,小于零,等于零各多少个?

来源：学生作业帮编辑：百度作业网作业帮分类：数学作业时间：2024/04/25 21:51:42

Private Sub Command1_Click()
    s1 = 0
    s2 = 0
    s3 = 0
    For i = 1 To 10
        a! = Val(InputBox("请输入第" & i & "个数字:"))
        If a! > 0 Then s1 = s1 + 1
        If a! < 0 Then s2 = s2 + 1
        If a! = 0 Then s3 = a3 + 1
    Next

    Print "大0于的" & s1 & "个；小于0的" & s2 & "个；等于0的" & s3 & "个 "
End Sub
再问：有点问题
再答：把a3改成s3吧
再问：好像没有定义变量
再答：你选了强制定义吧。Private Sub Command1_Click()
    dim i%,a!,s1%,s2%,s3%
    For i = 1 To 10
        a! = Val(InputBox("请输入第" & i & "个数字:"))
        If a! > 0 Then s1 = s1 + 1
        If a! < 0 Then s2 = s2 + 1
        If a! = 0 Then s3 = s3 + 1
    Next

    Print "大0于的" & s1 & "个；小于0的" & s2 & "个；等于0的" & s3 & "个 "
End Sub
再问：谢谢！都是对的可以运行

键盘上输入若干个整数,分别统计大于零,小于零,等于零各多少个? 任意输入100个整数,分别统计其中的正数、负数和零的个数. 程序设计：程序功能：从键盘上输入若干个整数（数值范围-32768…32767）,当输入负整数时结束输入,统计 C语言填空从键盘上输入若干个整数并将这些整数存放在数组x中,统计计算出平均值,当输入负数时结束. 从键盘上输入任意一些整数,统计正数的个数,负数的个数,以及零的个数输入10个整数,统计并输出其中正数、负数和零的个数. Pascal输入20个整数,统计其中正数、负数和零的个数 java编程：用户从键盘上输入10个数,分别统计正数、负数、零的个数、平均值、累加和. 从键盘上输入20个整数,分别统计计算并输出所有整数之和、正数之和、负数之和、正数的个数及负数的个数. 吉布斯自由能大于零,小于零,等于零意味着什么 :从键盘输入10个整数,分别统计其中的正数,负数,零的个数. 从键盘上输入10个整数,统计并且输出其中的正数和负数的个数