控制台编程

开发平台：

Visual Basic

容器模块代码.txt：源码内容

							'容器模块
Private Sub Timer1_Timer()
  Open App.Path & "txt容器模块代码.txt" For Input As #1
  Do While Not EOF(1)
     Line Input #1, aspect$ '一行一行读入
     whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  Loop
  Text1.Text = whole$
  Close #1
  
D3.BackColor = &HFFFF&
Static nTimes As Integer
nTimes = nTimes + 1
Debug.Print nTimes
If nTimes = 100 Then
Timer1.Enabled = False
Timer2.Enabled = True
D3.BackColor = &HFF&
Label3.Caption = "<--开始出料"
End If
For i = 1 To 100
Circle (x(i), Y(i)), size(i), BackColor
Y(i) = Y(i) + pace(i)
If Y(i) >= Label1.Height Then Y(i) = 0: x(i) = Int(Label1.Width * Rnd)
Circle (x(i), Y(i)), size(i)
Next
End Sub

						