输入用户名和密码,如用户名或密码错误,则给出提示信息;如正确,则显示“欢迎使用!”信息。要求整个登录过程在30秒中完成,如果超过30秒还没有完成正确的登录操作,则程序给出提示自动终止整个登录过程。 Option Compare Satabase Dim Second As Integer Private Sub Form_Open(Cancel As Integer) Second=0 End Sub Private Sub Form_Timer() If Second>30 Then MsgBox"请在30秒中登录", vbCrcal, "警告" Docmd.Close Else Me!Tnum=30-Second '倒计时 End If Second=______ End Sub Private Sub OK_Click() If Me.UserName<>"123" or Me.UserPassword<>"456" Then MsgBox"错误!"+"您还有"&30—Second&"秒", vbCritical, "提示" Else Me.TimerInterval=______ '终止Timer事件继续发生 MsgBox"欢迎使用!" vbInformation, "成功" DoCmd.Close End If End Sub 横线处应填写的内容是______。
7. 假定有以下两个过程: Sub Sl(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer,y As Integer) Dim t As Integer t=x x=y y=t End Sub 则以下说法中正确的是______。
13. 若有如下Sub过程: Sub sfun(x As Single, y As Single) t=x x=t/y y=t Mod y End Sub 在窗体中添加一个命令按钮Command33,对应的事件过程如下: Private Sub Command33_Click() Dim a As Single Dim b As Single a=5; b=4 sfun(a, b) MsgBox a & chr(10)+chr(13)&b End Sub 打开窗体运行后,单击命令按钮,消息框中有两行输出,内容分别为______。
A.1和1
B.1.25和1
C.1.25和4
D.5和4
A B C D
B
[解析] 此题考查函数的调用情况,其中先执行t=x,x=t/y=13/4=1.25,y=t mod y=13mod4=1,所以答案选择B。
28. 下列过程的功能是:通过对象变量返回当前窗体的Recordset属性记录集引用,消息框中输出记录集的记录(即窗体纪录源)个数。 Sub GetRecNum() Dim rs As Object Set rs=Me.RecordSet MsgBox______ End Sub 程序空白处应填写的是______。
32. 设有如下程序: Private Sub Command1_Click() Dim sum As Double,x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算一个表达式的值,这个表达式是______。
35. 在窗体中有一个命令按钮(Command1和一个文本框Text1,对应的事件代码如下: Private Sub Command1_Click() For i=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Value=Str(x) End Sub 运行以上事件过程,文本框中的输出是______。
【操作步骤】 步骤1:双击“员工表”,打开数据表视图。 步骤2:单击“开始”选项卡“排序和筛选”组中的“高级”按钮,选择“高级筛选/排序”命令。双击“年龄”字段,在与之对应的“条件”行输入“<=((select Avg(年龄) from [员工表])+1) And >=((select Avg(年龄) from [员工表])-1)”。 步骤3:单击“开始”选项卡“排序和筛选”组中的“切换筛选”按钮,进入数据表视图,对所有记录“简历”字段里追加输入“(平均)”。 步骤4:单击快速工具栏中“保存”按钮,关闭表。