UC知道这道VB题怎么运行不出来
来源：百度知道 编辑：UC知道 时间：2024/06/02 15:52:54
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1001)
Next i
Sum = 0
For i = 1 To 20
If i > 500 Then
Sum = Sum + i
End If
Next i
Print Sum
End Sub
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1001)
Next i
Sum = 0
For i = 1 To 20
If i > 500 Then
Sum = Sum + i
End If
Next i
Print Sum
End Sub
if i>500
错
i=1 to 20
怎么可能大于500
我猜你的意思应该是：
if arrN(i) > 500 then
sum = sum + arrN(i)
endif
还有，你如果是for i = 1 to 20,最好：
dim arrN(1 to 20)as integer
不然下标是从0开始