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

admin2009-01-15  34

问题 以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。
       Private Sub Command1_Click(   )
         For i=1 To 20
           x=Int(【  】*100+200)
           If【  】=0 Then
             Print x
             S=S+【  】
          End lf
      Next i
      Print"Sum=";S
      End Sub

选项

答案Rnd或Rnd(n),其中n为任意整数 , x Mod 5或Int(x/5)-x/5或x-/5-CInt(x/5)或CInt(x/5)-x/5或x/5-CInt(x/5)或Round(x/5)-x/5或x/5-Round(x/5)或x-(x\5)*5或(x\5)*5 -x或Fix(x/5)-x/5或x/5-Fix(x/5) , x

解析 由于要生成随机数,所以要使用Visual Basic内部函数Rnd或Rnd(n),表示生成0~1之间的随机数。 对于[7],“x Mod 5”表示变量x是否能被5整除,如果余数为0,则可以被整除,本题答案其他项为等价项。 [8] 处填“x”表示对符合要求的x进行叠加。
转载请注明原文地址:https://kaotiyun.com/show/fv2p777K
0

最新回复(0)