有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：PrivateSubcommand1_

题干

有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click( )

Dim X, N As Integer
Dim count As Integer ' count用来保存能被6整除余2的数据的个数
Randomize Timer ' 随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数

If X Mod 6 = 2 Then

List1.AddItem Str(X)

_______________

End If

Next N

Label1.Caption = str (count)

End Sub

上一题下一题 0.99难度填空题更新时间:2019-07-10 02:52:44

A．int (rnd*100) -10	B．int(rnd*99)-10
C．int(rnd*109)-10	D．int(rnd*110)-10

A．(int(a)*10+0.5)/10	B．int(a*10+0.5)/10
C．(int(a)*100+0.5)/100	D．int(a*100+0.5)/100