[填空题] 以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。 Prirate Sub Command1_Click() For i=1 T

16 查阅

[填空题] 以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。

Prirate Sub Command1_Click()

For i=1 To 20

x=Int(______*100+200)

If______=0 Then

Print x

S=S+ ______

End If

Next i

Print "Sum=";S

End Sub

参考答案:

Rnd或Rnd(n) x Mod 5 或 Int(x/5)-x/5或x/5-Int(x/5)或Cint(x/5)-x/5或 x/5-Cint(x/5)或Round(x/5)-x/5或x/5-Round(x/5)或 x-(x5)*5或 (x5)*5-x或 Fix(x/5)-x/5或 x/5-Fix(x/5) x

由于要生成随机数,所以要使用Visual Basic内部函数Rnd,表示生成0~ 1之间的随机数。 第二空,“x Mod 5”表示变量x是否能被5整除,如果余数为0,则可以被整除,本题答案其他项目为等价项目。 第三处填“x”表示对符合要求的x进行叠加。

计算机考试