¹ØÓÚvbµÄ³öȦÓÎÏ·

Dim ÐòºÅ() As Integer '×ÜÈËÊý²»¶¨£¡
Dim ³öȦ±¨Êý As Integer, i As Integer

Private Sub Command1_Click()
    Dim ÐÕÃû As String
    Dim ÈËÊý As Integer
   
    ÈËÊý = Val(Text1)          '×ÜÈËÊý
    ³öȦ±¨Êý = Val(Text2)      '¼ÙÉ豨µÄÊý×ÖΪmʱ³ö¾Ö
    If ÈËÊý * ³öȦ±¨Êý = 0 Then
        MsgBox "¿´¿´Äã¶à´ÖÐÄ£¬ÊDzÎÓëÈËÊýûÓÐÖ¸¶¨£¬»¹ÊdzöȦ¼ä¸ôûÓÐÖ¸¶¨£¿"
        Exit Sub
    End If
    ReDim ÐòºÅ(ÈËÊý)
    For i = 1 To ÈËÊý            '³õʼ»¯Êý×é¡¢ÊäÈëÈËÃû²¢¼ÓÈëÓÎÏ·ÕßÁбí
      ÐòºÅ(i) = i
      ÐÕÃû = InputBox("ÊäÈëµÚ" & i & "¸öÈ˵ĴóÃû" & vbCrLf & "È»ºó»Ø³µ", "ÇëÊäÈëÓÎÏ·Õß´óÃû", , 5000, 4000)  '& vbCrLf & ±íʾ»Ø³µ
      List1.AddItem ÐÕÃû
    Next i
    Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
    ³õʼ»¯
End Sub

Private Sub ExitFile_Click()
Dim a As Integer
a = MsgBox("È·¶¨Í˳öÓÎÏ·£¿", 1 + 32, "Í˳ö")
If a = 1 Then
End
Else
End If
End Sub <