选择题   已知在“用户表”中包含四个字段:用户名(文本,主关键字),密码(文本),登录次数(数字),最近登录时间(日期/时间)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框,一个登录按钮Command0。进入登录界面后,用户输入用户名和密码,单击“登录”按钮后,程序查找“用户表”。如果用户名和密码全部正确,则登录次数加1,显示上次的登录时间,并记录本次登录的当前日期和时间;否则,显示出错提示信息。为完成上述功能,要在程序______处填入的语句是______。
    Private Sub Command0_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim fd1 As ADODB.Field
    Dim fd2 As ADODB.Field
    Dim strSQL As String
    Set cn=CurrentProject.Connection
    strSQL='Select 登录次数,最近登录时间 From 用户表 Where 用户名=''&Me! tUser&''And 密码=''&Me! tPassword&'''
    rs.Open strSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText
    Set fd1=rs.Fields('登录次数')
    Set fd2=rs.Fields('最近登录时间')
    If Not rs.EOFTrhen
    fdl=fd1+1
    MsgBox'用户已经登录:'&fd1&'次'&Chr(13)& Chr(13)&'上次登录时间:'&fd2
    fd2=______
    rs.Update
    Else
    MsgBox'用户名或密码错误。'
    End If
    rs.Close
    cn.Close
    Set rs=Nothing
    Set cn=Nothing
    End Sub
 
【正确答案】 A
【答案解析】根据题意,每次登录要检查用户名和密码,检查正确后方能登录成功,登录次数(fd1)加1,最近登录时间(fd2)更新为本次登录的日期和时间。在程序空白处,fd1已经完成更新,且空白处之后立即更新了结果集rs,则所填代码句的功能应该是为fd2赋予当前时间值,可用Now()函数获得系统日期和时间。Date()函数只能获得日期,不包含具体时间,Time()函数只能获得具体时间,不包括日期,Day()函数只能获得某一日期中的天数,都不符合题意。因此选择选项A。