VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   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 I, N, MAX, MIN, MAXW, MINW As Integer, S$
   MAX = 0                      '给变量赋初值
   MIN = 100
 I = 0
   Print: Print                     '空两行
   FontSize = 10                '设置窗体中文字的大小
   ForeColor = RGB(0, 0, 255)       '设置窗体中文字的颜色为蓝色
   Randomize                    '重置随机数种子
   While I < 40
      N = Int(Rnd * 90) + 10      '产生随机的两位数
      S$ = ""
      If I Mod 8 = 0 Then Print:    '如果一行已经显示了8个数字，则换行
      If I < 9 Then S$ = "0"        '如果是一位数字，则在文字左边加一个"0"
      Print Tab((I Mod 8) * 8 + 1); S$ & LTrim$(Str(I + 1)) & ":" & LTrim$(Str(N));
      If N > MAX Then MAX = N: MAXW = I + 1 '进行比较，保存最大的数字和他的序号
      If N < MIN Then MIN = N: MINW = I + 1  '进行比较，保存最大的数字和他的序号
      I = I + 1                    '数字序号自动加1
   Wend
   ForeColor = RGB(255, 0, 0)     '设置窗体中文字的颜色为红色
   Print: Print: Print Tab(6); "最大的数是："; MAX, "最大数第1次出现的位置是："; MAXW
   Print: Print Tab(6); "最小的数是："; MIN, "最小数第1次出现的位置是："; MINW
End Sub

