回答下面程序题,生成20个200到300之间的随机整数,输出其中能被5整除的得数并求出它们的和,请填空Dim s %,i% s=?s=?for i =1 to-----x=Int(----×200+100）if--------=0 thendebug.print xs=s+-------next idebug.print"sum =":s
2019-04-13
回答下面程序题,生成20个200到300之间的随机整数,输出其中能被5整除的得数并求出它们的和,请填空
Dim s %,i% s=?
s=?
for i =1 to-----
x=Int(----×200+100）
if--------=0 then
debug.print x
s=s+-------
next i
debug.print"sum =":s
优质解答
Dim s%,i%
s = 0
For i = 1 To 20
Randomize
x = Int(Rnd * 201 + 100)
If x Mod 5 = 0 Then
Debug.Print x
s = s + x
End If
Next i
Debug.Print "sum ="; s
End Sub
Dim s%,i%
s = 0
For i = 1 To 20
Randomize
x = Int(Rnd * 201 + 100)
If x Mod 5 = 0 Then
Debug.Print x
s = s + x
End If
Next i
Debug.Print "sum ="; s
End Sub