'判断是否到达记录的尾部和测试的单词数i是否少于5个

If Not rs.EOF And i < 5 Then

'显示单词的词性和意思       

MeanLabel.Caption = rs.Fields(1) & "  " & rs.Fields(2)

Else

    Unload Me '退出测试

End If

AnsText.Text = ""

i = i + 1

End Sub

Private Sub PassButoon_Click() '跳过按钮的响应函数

rs.Fields(4) = rs.Fields(4) - 1 '跳过时，减少数据库单词的state的值

TestMessage.MessageLabel.Caption = "别轻易放弃！Come on!" & vbCrLf & "正确答案是：" & rs.Fields(0)

TestMessage.ExampleLabel.Caption = "例句：" & rs.Fields(3)

TestMessage.Show vbModal '显示提示信息

rs.Fields(5) = Date '更新数据库单词的日期

rs.MoveNext

'判断是否到达记录的尾部和测试的单词数i是否少于5个

If Not rs.EOF And i < 5 Then

'显示单词的词性和意思       

MeanLabel.Caption = rs.Fields(1) & "  " & rs.Fields(2)  

Else

  Unload Me '退出测试

End If

AnsText.Text = ""

i = i + 1

End Sub

Private Sub AnsText_KeyPress(KeyAscii As Integer) '按回车时的响应函数

If KeyAscii = vbKeyReturn Then

   Call OkButton_Click '调用OkButton响应函数

End If

End Sub