<VB> 输入10个数据,统计其中正数,负数和零的个数.(新手求解)急..
答案:1 悬赏:0 手机版
解决时间 2021-11-30 02:04
- 提问者网友：两耳就是菩提
- 2021-11-29 11:48
<VB> 输入10个数据,统计其中正数,负数和零的个数.(新手求解)急..
最佳答案
- 五星知识达人网友：雾月
- 2021-11-29 12:47
Private Sub Command1_Click()
Dim i, temp, a1, a2, a3 As Integer
For i = 1 To 10
temp = Val(InputBox("请输入："))
If temp > 0 Then
a1 = a1 + 1
ElseIf temp < 0 Then
a2 = a2 + 1
Else
a3 = a3 + 1
End If
Next
Print "正数的个数:" & a1
Print "负数的个数:" & a2
Print "零的个数:" & a3
End Sub
Dim i, temp, a1, a2, a3 As Integer
For i = 1 To 10
temp = Val(InputBox("请输入："))
If temp > 0 Then
a1 = a1 + 1
ElseIf temp < 0 Then
a2 = a2 + 1
Else
a3 = a3 + 1
End If
Next
Print "正数的个数:" & a1
Print "负数的个数:" & a2
Print "零的个数:" & a3
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯