程序已经修改完成:
Dim RStr(0 To 7) As String
Dim i, j, k, n
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "结束"
Do While 1
If Command1.Caption = "开始" Then
Exit Do
End If
DoEvents
Randomize
k = Int(Rnd * n)
Text1.Text = RStr(k)
Text1.Refresh
For i = 1 To 30000
If Command1.Caption = "开始" Then Exit For
DoEvents
Next i
Loop
RStr(k) = RStr(n - 1): n = n - 1
Else
Command1.Caption = "开始"
End If
Dim Jzdcs As Integer
End Sub
Private Sub Form_Load()
n = 8
RStr(0) = "第一节 8:00—8:45 课题: "
RStr(1) = "第二节 8:55—9:40 课课题: "
RStr(2) = "第三节 9:55—10:40 课题: "
RStr(3) = "第四节 10:50—11:35 课题: "
RStr(4) = "第五节 13:30—14:15 课题: "
RStr(5) = "第六节 14:30—15:15 课题: "
RStr(6) = "第七节 15:25—16:10 课题: "
RStr(7) = "第八节 16:20—17:05 课题: "
End Sub,