实现单词背诵功能交互界面

jio1ye

交互界面如下
可手动选择练习模式“随机练习”OR“逐一练习”，默认“随机练习”
点击“选题”按钮可手动选择题目
在“这是问题”右侧出现问题
在“回答问题”右侧手动输入答案
点击“提示”出现问题的提示2秒
点击“OK”提交答案，并判定答案是否正确
点击“Cancel”退出练习

有以下代码实现按钮功能

1. Private Sub CommandButton1_Click()
   
2. '点击OK，判定输入答案是否正确
   
3. Call TST
   
4. End Sub
   
5. 
   
6. Private Sub CommandButton2_Click()
   
7. '点击取消，停止做题
   
8. UserForm1.Hide
   
9. End Sub
   
10. 
    
11. Private Sub CommandButton3_Click()
    
12. '点击选题，可以进行随机选题或者按顺序答题
    
13. Dim i As Long
    
14. If UserForm1.OptionButton1.Value Then
    
15. i = Worksheets("TEST").Cells(1, 1)
    
16.     i = Int((i * Rnd) + 1)
    
17.     UserForm1.TextBox1 = Worksheets("BOOK").Cells(i, 3).Value
    
18. Else
    
19.     For i = 1 To Worksheets("TEST").Cells(1, 1)
    
20.     If Worksheets("BOOK").Cells(i, 3) = UserForm1.TextBox1.Value Then
    
21.         i = i + 1
    
22.         If i > Worksheets("TEST").Cells(1, 1) Then
    
23.             MsgBox ("Finish Testing!")
    
24.             i = 1
    
25.             Exit For
    
26.         End If
    
27.     Exit For
    
28.     End If
    
29.     Next i
    
30.     UserForm1.TextBox1 = Worksheets("BOOK").Cells(i, 3).Value
    
31. End If
    
32. End Sub
    
33. 
    
34. Private Sub CommandButton4_Click()
    
35. Dim i, newHour, newMinute, newSecond As Long
    
36. Dim waitTime As String
    
37. '点击提示，提示框出现答案2sec。
    
38. newHour = Hour(Now())
    
39. newMinute = Minute(Now())
    
40. newSecond = Second(Now()) + 2
    
41. waitTime = TimeSerial(newHour, newMinute, newSecond)
    
42. For i = 1 To Worksheets("TEST").Cells(1, 1)
    
43.     If Worksheets("BOOK").Cells(i, 3) = UserForm1.TextBox1.Value Then
    
44.         UserForm1.TextBox3 = Worksheets("BOOK").Cells(i, 4)
    
45.         Application.Wait waitTime
    
46.         UserForm1.TextBox3 = ""
    
47.         Exit For
    
48.     End If
    
49. Next i
    
50. End Sub

复制代码

过儿

多谢分享

zhp3

谢谢分享，先收藏！