题目内容

要查找职务不是"校长"和"处长"的员工，错误的条件表达是

A. Not "校长" And Not "处长"
B. Not("校长" or "处长")
C. Not In ("校长","处长")
D. Not like ("校长" Or "处长")

查看答案

搜索结果不匹配？点我反馈

更多问题

以下程序的功能是求"x ^ 2 + 5"表达式的值，其中x的值由文本框Text0输入，运算的结果由文本框Text1输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x * x + 5Me.Text1 = yEnd Sub运行上述程序时，出现了错误，错误的语句是

A. Dim x As Integer
B. Me.Text0 = x
C. Me.Text1 = y
Dim y As Long

在"用户表"中有4个字段：用户名（文本型，主关键字），密码（文本型），登录次数（数字型），最近登录时间（日期/时间型）。在"登录界面"的窗体中有两个名为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 【】Then fd1 = fd1 + 1 MsgBox "用户已经登录：" & fd1 & "次" & Chr(13) & Chr(13) & "上次登录时间：" & fd2 fd2 = Now() rs.Update Else MsgBox "用户名或密码错误。" End If rs.Close cn.Close Set rs = Nothing Set cn = NothingEnd Sub

A. Not rs.EOF
B. rs.EOF
C. Not EOF
D. EOF

如果要在已经打开的窗体上的某个字段中用宏操作 FindRecord 进行查找定位，首先应该进行的操作是

A. 用宏操作SetValue设置查询条件
B. 用宏操作GoToControl将焦点移到指定的字段或控件上
C. 用宏操作GoToPage将焦点移到窗体指定页的第一个控件上文本
D. 用宏操作GoToRecord将首记录设置为当前记录

以下程序的功能是产生 100 个 0～99 的随机整数，并统计个位上的数字分别是1，2，3，4，5，6，7，8，9，0的数的个数。Private Sub a3() Dim x(1 To 10) As Integer, a(1 To 100) As Integer Dim p As Integer, j As Integer For j = 1 To 100 【】 p = a(j) Mod 10 If p = 0 Then p = 10 【】 Next j For j = 1 To 10 Debug.Print x(j); Next jEnd Sub有如下语句：① a(j) = Int(Rnd * 100)② a(p) = Int(Rnd * 100)③ p = Int(Rnd * 100)④ x(p) = x(p) + 1⑤ x(j) = x(j)+1⑥ p = p+1程序中有两个空，将程序补充完整的正确语句是

A. ①④
B. ②⑤
C. ③⑥
D. ②⑥