1. 有下列命令按钮控件test的单击事件过程: Private Sub test_click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next I bResult.Caption=Str(R) End Sub 当运行窗体,单击命令按钮时,在名为bResult的窗体标签内将显示的是______。
8. 已知按钮Command0的Click事件对应的程序代码如下: Private Sub Command0_Click() Dim J As Integer J=20 Call GetData(J+5) MsgBox J End Sub Private Sub GetData(ByRef f As Integer) f=f+30 End Sub 运行程序,输出结果是______。
29. 在窗体中有一个命令按钮Command1,编写事件代码如下: Private Sub Command1_Click() Dim s As Integer s=p(1)+p(2)+p(3)+p(4) Debug.Print s End Sub Public Function p(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后,单击命令按钮,输出的结果是______。
32. 窗体上命令按钮command1对应的Click事件过程如下: Private Sub Commandl_Click() Dim x As Integer x=InputBox("请输入x的值") Select Case x Case 1, 2, 4, 10 Debug.Print"A" Case 5 To 9 Debug.Print"B" Case Is=3 Debug.Print"C" Case Else Debug.Print"D" End Select End Sub 窗体打开运行,单击命令按钮,在弹出的输入框中输入6,则立即窗口中输出的内容是______。
34. 数据库中有“Emp”表,包括“Eno”“Ename”“Eage”“Esex”“Edate”“Eparty”等字段。如下程序段的功能:在窗体文本框“tValue”内输入年龄条件,单击“删除”按钮完成对该年龄职工记录信息的删除操作。 Private Sub btnDelete_Click() '单击"删除"按钮 Dim strSQL As String '定义变量 strSQL="delete from Emp" '赋值SQL基本操作字符串 If ______ Then MsgBox "年龄值为空或非有效数值!",vbCritical, "Error" '窗体输入焦点移回年龄输入的文本框"tValue”控件内 Me!tValue.SetFocus Else 构造条件删除查询表达式 strSQL=strSQL&"where Eage="&Me!tValue '消息框提示"确认删除?(Yes/No)",确认后实施删除操作 IfMsgBox("确认删除?(Yes/No)",vbQuestion+vbYesNo,"确认")=vbYes Then DoCmd.RunSQL strSQL MsgBox "completed!",vbInformation, "Msg" End If End If End Sub 按照功能要求,空白处应填写的是______。
A.IsNull(Me!tValue)=False Or IsNumeric(MeItValue)=True
B.IsNull(Me!tValue)=True Or IsNumeric(Me!tValue)=False
C.IsNull(Me!tValue)=False And IsNumeric(Me!tValue)=True
D.IsNull(Me!tValue)=True And IsNumeric(Me!tValue)=False
39. 运行下列过程,当输入一组数据:10,20,50,80,40,30,90,100,60,70,输出的结果应该是______。 Sub p1() Dim i, j, arr(11)As Integer x=1 While k<=10 arr(k)=Val(InputBox("请输入第"&k&"个数:", "输入窗口")) k=k+1 Wend For i=1 To 9 j=i+1 If arr(i)>arr(j)Then temp=arr(i) arr(i)=arr(j) arr(j)=temp End If Debug.Print arr(i) Next i End Sub