原创力文档- 1、本文档共9页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Access选择考题2013
* (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 x<>0 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
文档评论（0）