Access选择考题2013Access选择考题2013.ppt

* (1)下列变量名中，合法的是( ) A)4A B)A-1 C)ABC_1 D)private (2)下列能够交换变量X和Y值的程序段是( ) A)Y=X:X=Y B)Z=X:Y=Z:X=Y C)Z=X:X=Y:Y=Z. D)Z=X:W=Y:Y=Z:X=Y (3)要将一个数字字符串转换成对应的数值，应使用的函数是( ) A)Val. B)Single C)Asc D)Space (4)下列不属于VBA函数的是( ) A)Choose B)IF C)IIF D)Switch (5)InputBox函数的返回值类型是( ) A)数值 B)字符串 C)变体 D)视输入的数据而定 (6)若变量i的初值为8，则下列循环语句中循环体的执行次数为( ) Do While i=17 i=i+2 Loop A)3次 B)4次 C)5次 D)6次 (7)在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click() x=val(InputBox(“输入x的值”)) y=1 IF x0 Then y=2 Text1.Value=y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是( ) A)1 B)2 C)3 D)4 (8)窗体中有命令按钮run34，对应的事件代码如下： Private Sub run34_Enter() Dim num As Integer,a As Integer,b AS Integer,i AS Integer For i=1 To 10 num=inputBox(“请输入数据：”，“输入”) IF Int(num/2)=num/2 Then a=a+1 ELSE b=b+1 ENDIF NEXT i MsgBox(“运行结果：a=“ Str(a) “,b=“ str(b)”) END Sub 运行以上事件过程，所完成的功能是( ) A)对输入的10个数据求累加和B)对输入的10个数据求各自的余数，然后再进行累加C)对输入的10个数据分别统计奇数和偶数的个数 (9)若有以下窗体单击事件过程： Private Sub Form_Click() result=1 For i=1 TO 6 Step 3 result=result*I Next I MsgBox result End sub 打开窗体运行后，单击窗体，则消息框的输出内容是( ) A)1 B)4 C)15 D)120 (10)窗体中有命令按钮Command1，事件过程如下： Public Function f(x AS Integer) AS Integer Dim y% x=20 y=2 f=x*y End Function Private Sub Command1_Click() Dim y% Static x% x=10 y=5 y=f(x) Debug.Print x:y End Sub 运行程序后，单击命令按钮，则立即窗口中显示的内容是( ) A)10 5 B)10 40 C)20 5 D)20 40 (11)下列程序段的功能是实现“学生”表中“年龄”字段值加1： Dim Str AS String Str=“【 】” DoCmd.RunSQL Str 括号内应填入的程序段代码是( )。 A)年龄=年龄+1