打印文章

高校等考试题天天练二级VB]10月25日

作者：佚名文章来源：不详点击数更新时间：2008/4/18 14:49:25 文章录入：杜斌责任编辑：杜斌

知识点：程序填空（二）
以下程序段的作用是利用随机函数产生100个[100，300]之间的随机整数，打印其中5的倍数，和不是5的倍数的其他数的和。
Private Sub Command1_Click()
Dim s As Integer, i As Integer
  s = 0
For i = 1 To 100
   Randomize
   x = Int(  （1）  )
   s = s + x
   If x Mod   （2）   = 0 Then
     Print x;
     t = t + x
   End If
  Next i
  Print
  Print "非5倍数的数的和为";   （3）
End Sub

打印本文

关闭窗口