vb课设背单词程序.docVIP

声明 Dim m, n, i As Integer, q() As String Private Sub Command4_Click() Text1.Text = 746513212 End Sub Private Sub Command1_Click() i = 0 j = 0 If Asc(Combo3.Text) = Asc(combo2.Text) Then Dim s, temp As String If Combo1.Text = 四级 Then Open App.Path \四级.txt For Input As #1 Do While Not EOF(1) Line Input #1, temp i = i + 1 Loop Close #1 Else If Combo1.Text = 六级 Then Open App.Path \六级.txt For Input As #1 Do While Not EOF(1) Line Input #1, temp i = i + 1 Loop Close #1 End If End If ReDim q(1 To i) If Combo1.Text = 四级 Then Open App.Path \四级.txt For Input As #1 Do While Not EOF(1) Line Input #1, temp j = j + 1 q(j) = temp Text2.Text = Text2.Text + temp + vbCrLf Loop Close #1 Else Open App.Path \六级.txt For Input As #1 Do While Not EOF(1) Line Input #1, temp j = j + 1 q(j) = temp Loop End If For m = 1 To i If InStr(q(m), combo2.Text) = 1 Then Exit For End If Next m For n = 1 To i If InStr(q(n), Combo3.Text) = 1 Then Exit For End If Next n Label14.Caption = m Label15.Caption = n Label17.Caption = q(m) If Check1.Value = 1 And Check2.Value = 0 Then Timer1.Enabled = True Timer2.Enabled = False Else If Check1.Value = 0 And Check2.Value = 1 Then Timer1.Enabled = False Timer2.Enabled = True Label17.Caption = q(Int(Rnd * i) + 1) Else: MsgBox 只能选择一个顺序，请重新选择 End If End If Else MsgBox 请正确选择背诵的范围 End If End Sub Private Sub Command2_Click() If Command2.Caption = 暂停 Then Timer1.Enabled = False Timer2.Enabled = False Command2.Caption = 继续 Else If Check1.Value = 1 And Check2.Value = 0 Then Timer1.Enabled = True Timer2.Enabled = False Command2.Caption = 暂停 Else Timer1.Enabled = False Timer2.Enabled = True Command2.Caption = 暂停 End If End If End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Option1.Value = True Check1.Value = 1 Timer1.Enabled = False Timer2 = False Combo1.AddItem 四级 Combo1.AddItem 六级 combo2.AddItem a combo2.AddItem b combo2.AddItem c combo2.AddItem d combo2.AddItem e combo2.AddItem f combo2.A