UC知道紧急求助VB编程！
来源：百度知道 编辑：UC知道 时间：2024/05/21 22:54:49
编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70、大于70的数据个数。
我写的是这样，为什么不可以？？
Private Sub Form_Load()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Do
d = Int(Rnd * (99 - 10) + 10)
If d <= 40 Then
a = a + 1
ifelse d > 40 And d <= 70
b = b + 1
ifelse d > 70
c = c + 1
End If
Loop Until a + b + c = 100
Print "<=40"; a
Print ">40and<=70"; b
Print ">70"; c
End Sub
我写的是这样，为什么不可以？？
Private Sub Form_Load()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Do
d = Int(Rnd * (99 - 10) + 10)
If d <= 40 Then
a = a + 1
ifelse d > 40 And d <= 70
b = b + 1
ifelse d > 70
c = c + 1
End If
Loop Until a + b + c = 100
Print "<=40"; a
Print ">40and<=70"; b
Print ">70"; c
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Randomize'随机种子
Do
d = Int(Rnd * (99 - 10) + 10)
If d <= 40 Then
a = a + 1
ElseIf d > 40 And d <= 70 Then'modifyed
b = b + 1
ElseIf d > 70 Then'modifyed
c = c + 1
End If
Loop Until a + b + c = 100
Print "<=40"; a
Print ">40and<=70"; b
Print ">70"; c
End Sub
二个错误
第一.
ifelse d > 40 And d <= 70
改成
elseif d > 40 And d <= 70 then
第二
ifelse d > 70
改成
elseif d > 70 then