Question

3、 设在窗体上有一个带水平滚动条的文本框Text1，单击某“生成”按钮C1时在Text1中生成500个[1，100]之间

设在窗体上有一个带水平滚动条的文本框Text1，单击某“生成”按钮C1时在Text1中生成500个[1，100]之间的随机整数，单击“统计”按钮C2时对这些随机整数进行统计，统计其中能被7整除的数的个数，零的个数，结果分别显示于标签L1和L2中。编写所有有关的程序代码。

Answer 1

Option Explicit

Private Sub Command1_Click()

   Dim A(500) As Integer, I As Integer

   Dim Count1 As Integer

   Text1.Text = ""

   Randomize

   For I = 1 To 500

      A(I) = Int(Rnd * 100 + 1)

      Text1 = Trim(Text1 & " " & A(I))

      If A(I) Mod 7 = 0 Then Count1 = Count1 + 1

   Next

   Label1.Caption = Count1

End Sub