UC知道实在想不明白我的这段程序怎么错了?!!
来源：百度知道 编辑：UC知道 时间：2024/05/09 02:51:06
Option Base 1
Private Sub Command1_Click()
Dim arr(20) As Integer
Dim sum As Integer
Dim i As Integer
Randomize
For i = 1 To 20
arr(i) = Int(Rnd * 1000) + 0
Next i
sum = 0
For i = 1 To 20
If arr(i) > 500 Then
sum = sum + arr(i)
End If
Next i
Print sum
End Sub
这段程序想要实现的功能是产生20个0-1000的随机整数,并放入一个数组中,然后输出这20个整数中大于500的所有整数之和,最后在窗体上显示出来这个和.
Private Sub Command1_Click()
Dim arr(20) As Integer
Dim sum As Integer
Dim i As Integer
Randomize
For i = 1 To 20
arr(i) = Int(Rnd * 1000) + 0
Next i
sum = 0
For i = 1 To 20
If arr(i) > 500 Then
sum = sum + arr(i)
End If
Next i
Print sum
End Sub
这段程序想要实现的功能是产生20个0-1000的随机整数,并放入一个数组中,然后输出这20个整数中大于500的所有整数之和,最后在窗体上显示出来这个和.
程序逻辑没有问题，我没VB环境，不知道语法是否有纰漏
For语句内的
sum = sum + arr(i)
和外面是一个sum吗，不太懂这个语言
是不是需要把sum 变成全局的哦，呵呵
不太懂