4.8.frm

来自「VB6.0应用例题」· FRM 代码 · 共 41 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "产生100个3位随机整数"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
  Dim Data(100) As Integer
  Dim I%, J%
  Randomize Timer         '设置随机化种子，保证每组数据不重复
  For I = 1 To 100        '循环产生100个数据
      Data(I) = Int(Rnd() * 900) + 100
      For J = 1 To I - 1
          If Data(I) = Data(J) Then   '如果数据已存在则舍弃，重新产生
              I = I - 1
              Exit For
          End If
      Next J
  Next I
  I = 1: J = 1
  Do While I <= 100
     For J = 1 To 7     '每行打印7列
         If I > 100 Then Exit For
         Print Data(I);
         I = I + 1
     Next J
     Print              '打印换行
  Loop
End Sub