3. 已知在“用户表”中包含四个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期/时间)。在“登录界面”的窗体中有两个名为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
10. 在窗体中有一个名为run34的命令按钮，事件代码如下： Private Sub run34_Click() f1=1 f2=1 For n=3 To 7 f=f1+f2 f1=f2 f2=f Next n MsgBox f End Sub 打开窗体，单击命令按钮，消息框的输出结果是______。
17. 窗体中有命令按钮Command1和文本框Text1，事件过程如下： Function result(ByVal x As Integer)As Boolean If x Mod 2=0 Then result=True Else result=False End If End Function Private Sub Command1_Click() x=Val(InputBox("请输入一个整数")) If【】Then Text1=Str(x)&"是偶数." Else Text1=Str(x)&"是奇数." End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么在程序的括号内应填写______。
图标所代表的数据对象是
深色：已答题 浅色：未答题