查人人中国名人网融侨悦江南违规:VB编程问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/10 19:52:11
Private Sub Form_Click()
For i = 1 To 10
x = Int(Rnd * 200 + 1)
If （！） Then
k1 = k1 + x
Print x
End If
Next i
Print
Print "k1="; k1
End Sub
（！）处填什么可以利用随机函数产生10个（1——200）间的随机整数，打印其中7的整数倍的数并求和。
For i = 1 To 10
x = Int(Rnd * 200 + 1)
If （！） Then
k1 = k1 + x
Print x
End If
Next i
Print "k1="; k1
End Sub
（！）处填什么可以利用随机函数产生10个（1——200）间的随机整数，打印其中7的整数倍的数并求和。
Randomize //加这一行,置随机种子
if Int(200*rnd)%7 = 0 Then //(!)处如此改写
你再编译试试，看有没有结果