键盘上输入若干个整数,分别统计大于零,小于零,等于零各多少个?
来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/09/20 17:44:21
键盘上输入若干个整数,分别统计大于零,小于零,等于零各多少个?
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
再问: 谢谢!都是对的可以运行
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个整数,统计并且输出其中的正数和负数的个数