作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2021/12/01 20:35:19
键盘上输入若干个整数,分别统计大于零,小于零,等于零各多少个?
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
再问: 谢谢!都是对的可以运行