(问答题) 有一个单击按钮过程,其作用是产生 80个 60~100 的随机数,统计其 中被 6 整除余 2 的个数,并将这些数输出。请编程:(本题25.0分)

答案:Private Sub Command1 Click() Dim xAs Integer, N% Dim Counter As Integer randomize Timer ForN-1 To 80 X-Rnd()*Rnd()*41+60 If x Mod 6=2 Then Print x Counter= Counter+I End if Next N Print“个数为:”& Counter End Sub