【计算机类职业资格】二级ACCESS-选择题(八)及答案解析.doc

1、二级 ACCESS-选择题(八)及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：53，分数：100.00)1.运行下列程序，结果是_。Private Sub Command32_Click()f0=1:f1=1:k=1Do While k=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox“f=“&fEnd SubAf=5 Bf=7 Cf=8 Df=13（分数：1.00）A.B.C.D.2.在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：Private Sub Command1_Click()MsgBox f(24，18)En

2、d SubPublic Function f(m As Integer，n As Integer)As IntegerDo While innDo While innm=m-nLoopDo While Innn=n-mLoopLoopf=mEnd Function窗体打开运行后，单击命令按钮，则消息框的输出结果是_。A2 B4 C6 D8（分数：1.00）A.B.C.D.3.由“For i=1 To 9 Step-3”决定的循环结构，其循环体将被执行_。A0 次 B1 次 C4 次 D5 次（分数：1.00）A.B.C.D.4.有如下事件程序，运行该程序后输出结果是_。Private Sub

3、Command33_Click()Dim x As Integer，y As Integerx=1:y=0Do Until y=25y=y+x*xx=x+1LoopMsgBox“x=“&x&“, y=“&yEnd SubAx=1，y=0 Bx=4，y=25Cx=5，y=30 D输出其他结果（分数：1.00）A.B.C.D.5.在窗体上有一个命令按钮 Command1 和一个文本框 Text1，编写事件代码如下：Private Sub Command1_Click()Dim i，j，xFor i=1 To 20 step 2x=0For j=i To 20 step 3x=x+1Next jNe

4、xt iText1.Value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是_。A1 B7 C17 D400（分数：1.00）A.B.C.D.6.若有以下窗体单击事件过程：Private Sub Form_Click()result=1For i=1 To 6 step 3result=result*iNext iMsgBox resultEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是_。A1 B4 C15 D120（分数：1.00）A.B.C.D.7.在窗体中有一个命令按钮 Command1 和一个文本框 Text1，编写事件代码如下：Priva

5、te Sub Command1_Click()For i=1 To 4x=3For j=1 To 3For k=1 To 2x=x+3Next kNext jNext iText1.value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框 Text1 输出的结果是_。A6 B12 C18 D21（分数：2.00）A.B.C.D.8.由“For i=1 T0 16 Step 3”决定的循环结构被执行_。A4 次 B5 次 C6 次 D7 次（分数：2.00）A.B.C.D.9.运行下列程序，输入数据 8、9、3、0 后，窗体中显示的结果是_。Private Sub Form_c

6、lick()Dim sum As Integer，m As Integersum=0Dom=InputBox(“输入 m“)sum=sum+mLoop Until m=0MsgBox sumEnd SubA0 B17 C20 D21（分数：2.00）A.B.C.D.10.窗体有命令按钮 Command1 和文本框 Text1，对应的事件代码如下：Private Sub Command1_Click()For i=1 To 4x=3For j=1 To 3For k=1 To 2x=x+3Next kNext jNext iText1.Value=Str(x)End Sub运行以上事件过程，文本

7、框中的输出是_。A6 B12 C18 D21（分数：2.00）A.B.C.D.11.在窗体中有一个命令按钮 Command1，编写事件代码如下：Private Sub Command1_Click()Dim s As Integers=P(1)+P(2)+P(3)+P(4)debug.Print sEnd SubPublic Function P(N As Integer)Dim Sum As IntegerSum=0For i=1 To NSum=Sum+iNext iP=SumEnd Function打开窗体运行后，单击命令按钮，输出结果是_。A15 B20 C25 D35（分数：2.00

8、）A.B.C.D.12.有以下程序段：k=5For I=1 to 10 step 0k=k+2Next I执行该程序段后，结果是_。A语法错误 B形成无限循环C循环体不执行直接结束循环 D循环体执行一次后结束循环（分数：2.00）A.B.C.D.13.运行下列程序，显示的结果是_。s=0For I=1 To 5For j=1 To IFor k=j To 4s=s+1Next kNext jNext IMsgBox sA4 B5 C38 D40（分数：2.00）A.B.C.D.14.有下列程序段：Dim s，I，j as integerFor I=1 to 3For j=3 To 1 Step

9、 -1s=I*jNext jNext I执行完该程序段后，循环执行次数是_。A3 B4 C9 D10（分数：2.00）A.B.C.D.15.下列程序段运行结束后，变量 X 的值是_。x=2y=2Dox=x*yy=y+1Loop While y4A4 B12 C48 D192（分数：2.00）A.B.C.D.16.在窗体有两个名为 text1、text2 的文本框和一个名为 Command1 的命令按钮，事件过程：Private sub command1_click()Dim x as Integer，n as Integerx=1n=0Do While x20x=x*3n=n+1Looptex

10、t1=str(x)text2=str(n)End Sub程序运行后，单击命令按钮，在两个文本框 text1 和 text2 中显示的值分别是_。A15 和 1 B27 和 3 C195 和 3 D600 和 4（分数：2.00）A.B.C.D.17.执行下列程序段后，变量 s 的值是_。Dim S As Integer，n As IntegerS=0:n=1Do While n100S=S+Nn=n+1LoopA5050 B4950 C3000 D4000（分数：2.00）A.B.C.D.18.窗体上有一个名为 text1 的文本框和一个名为 command1 的命令按钮，事件过程如下：Pri

11、vate Sub command1_click()Dim i As Integer，n As IntegerFor j=0 to 50i=i+3n=n+1If i10 Then Exit ForNextjtext1=str(n)End Sub程序运行时单击命令按钮，文本框中显示的值是_。A2 B3 C4 D5（分数：2.00）A.B.C.D.19.若有以下两个过程：Sub S1(ByVal x As Integer，ByVal y As Integer)Dim t As Integert=xx=yy=tEnd SubSub S2(x As Integer，y As Integer)Dim t

12、As Integert=x:x=y:y=tEnd Sub则下列说法中，正确的是_。A使用过程 S1 可以交换调用函数中两个变量的值，S2 不能实现B使用过程 S2 可以交换调用函数中两个变量的值，S1 不能实现C过程 S1 和 S2 都可以实现交换调用函数中两个变量的值D过程 S1 和 S2 都不能实现交换调用函数中两个变量的值（分数：2.00）A.B.C.D.20.在 VBA 中，下列关于过程的描述中正确的是_。A过程的定义可以嵌套，但过程的调用不能嵌套B过程的定义不可以嵌套，但过程的调用可以嵌套C过程的定义和过程的调用均可以嵌套D过程的定义和过程的调用均不能嵌套（分数：2.00）A.B.C

13、.D.21.窗体中有命令按钮 Command1 和文本框 Text1，事件过程如下：Function result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=TrueElseresult=FalseEnd IfEnd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数“)If ThenText1=Str(x)&“是偶数.“ElseText1=Str(x)&“是奇数.“End IfEnd Sub运行程序，单击命令按钮，输入 19，在 Text1 中会显示“19 是奇

14、数”。那么在程序的括号内应填写_。ANOT result(x) Bresult(x)Cresult(x)=“奇数“ Dresult(x)=“偶数/（分数：2.00）A.B.C.D.22.若有如下 Sub 过程：Sub sfun(x As Single，y As Single)t=xx=t/yy=t Mod yEnd Sub在窗体中添加一个命令按钮 Command33，对应的事件过程如下：Private Sub Command33_Click()Dim a As SingleDim b As Singlea=5 : b=4sfun a，bMsgBox a&ehr(10)+chr(13)&bEnd

15、 Sub打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为_。A1 和 1 B1.25 和 1 C1.25 和 4 D5 和 4（分数：2.00）A.B.C.D.23.如果在被调用的过程中改变了形参变量的值，但又不影响实参变量本身，这种参数传递方式称为_。A按值传递 B按地址传递 CByRef 传递 D按形参传递（分数：2.00）A.B.C.D.24.在窗体上有一个命令按钮 Command1，编写事件代码如下：Private Sub Command1_Click()Dim x As Integer，y As Integerx=12:y=32Call Proc(x，y)Debug.Pr

16、int x；yEnd SubPublic Sub Proc(n As Integer，ByVal m As Integer)n=n Mod 10m=m Mod 10End Sub打开窗体运行后，单击命令按钮，窗口上立即输出的结果是_。A2 32 B12 3 C2 2 D12 32（分数：2.00）A.B.C.D.25.在定义过程时，系统将形式参数类型默认为_。A值参 B变参 C数组 D无参（分数：2.00）A.B.C.D.26.假定有以下两个过程：Sub s1(ByVal x As Integer，ByVal y As Integer)Dim t As Integert=xx=yy=tEnd

17、SubSub s2(x As Integer，y As Integer)Dim t As Integert=x:x=y“y=tEnd Sub下列说法正确的是_。A用过程 S1 可以实现交换两个变量的值的操作，S2 不能实现B用过程 S2 可以实现交换两个变量的值的操作，S1 不能实现C用过程 S1 和 S2 都可以实现交换两个变量的值的操作D用过程 S1 和 S2 都不可以实现交换两个变量的值的操作（分数：2.00）A.B.C.D.27.在过程定义中有语句：Private Sub GetData(ByVal data As Integer)其中“ByVal”的含义是_。A传值调用 B传址调用

18、C形式参数 D实际参数（分数：2.00）A.B.C.D.28.在 VBA 定义过程时，说明形参是传值方式的关键字是_。AVar BByDef CByVal DValue（分数：2.00）A.B.C.D.29.InputBox 函数的返回值类型是_。A数值 B字符串 C变体 D视输入的数据而定（分数：2.00）A.B.C.D.30.若变量 i 的初值为 8，则下列循环语句中循环体的执行次数为_。Do While i=17i=i+2LoopA3 次 B4 次 C5 次 D6 次（分数：2.00）A.B.C.D.31.在窗体中有一个文本框 Text1，编写事件代码如下：Private Sub For

19、m_Click()X=val(Inputbox(“输入 x 的值“)Y=1If X0 Then Y=2Text1.Value=YEnd Sub打开窗体运行后，在输入框中输入整数 12，文本框 Text1 中输出的结果是_。A1 B2 C3 D4（分数：2.00）A.B.C.D.32.可以用 InputBox 函数产生“输入对话框”。执行语句：st=InputBox(“请输入字符串“，“字符串对话框“，“aaaa“)当用户输入字符串“bbbb”，单击“OK”按钮后，变量 st 的内容是_。Aaaaa B请输入字符串C字符串对话框 Dbbbb（分数：2.00）A.B.C.D.33.对话框在关闭前，

20、不能继续执行应用程序的其他部分，这种对话框称为_。A输入对话框 B输出对话框C模态对话框 D非模态对话框（分数：2.00）A.B.C.D.34.InputBox 函数的返回值类型是_。A数值 B字符串C变体 D数值或字符串(视输入的数据而定)（分数：2.00）A.B.C.D.35.若有语句：str1=inputbox(“输入“，“，“练习“)；从键盘上输入字符串“示例”后，str1 的值是_。A“输入“ B“ C“练习“ D“示例/（分数：2.00）A.B.C.D.36.MsgBox 函数使用的正确语法是_。AMsgBox(提示信息，标题，按钮类型) BMsgBox(标题，按钮类型，提示信息)

21、CMsgBox(标题，提示信息，按钮类型) DMsgBox(提示信息，按钮类型，标题)（分数：2.00）A.B.C.D.37.Msgbox 函数返回值的类型是_。A数值 B变体C字符串 D数值或字符串(视输入情况而定)（分数：2.00）A.B.C.D.38.数据库中有数据表“Emp”，包括“Eno”、“Ename”、“Eage”、“Esex”、“Edate”、“Eparty”等字段。下面程序段的功能是：在窗体文本框“tValue”内输入年龄条件，单击“删除”按钮完成对该年龄职工记录信息的删除操作。Private Sub btnDelete_Click() 击“删除“按钮Dim strSQL A

22、s String 定义变量strSQL=“delete from Emp“ 赋值 SQL 基本操作字符串判断窗体年龄条件值无效(空值或非数值)处理If IsNull(Me!tValue)=True Or IsNumeric(Me!tValue)=False ThenMsgBox“年龄值为空或非有效数值!“，vbCritical，“Error“窗体输入焦点移回年龄输入的文本框“tValue“控件内Me!tValue.SetFocusElse构造条件删除查询表达式strSQL=strSQL&“where Eage=“&Me!tValue消息框提示“确认删除?(Yes/No)“，确认后实施删除操作I

23、f_ThenDoCmd.RunSQL strSQL 。执行删除查询MsgBox”completed!Il，vbInformation，”Msg”End IfEnd IfEnd Sub按照功能要求，在横线上应填写的是_。AMsgBox(“确认删除?(Yes/No)“，vbQuestion+vbYesNo，“确认“)=vbOkBMsgBox(“确认删除?(Yes/No)“，vbQuestion+vbYesNo，“确认“)=vbYesCMsgBox(“确认“，vbQuestion+vbYesNo，“确认删除?(Yes/No)“)=vbOkDMsgBox(“确认“，vbQuestion+vbYesNo

24、，“确认删除?(Yes/No)“)=vbYes（分数：2.00）A.B.C.D.39.可以判定某个日期表达式能否转换为日期或时间的函数是_。ACDate BIsDate CDate DIsText（分数：2.00）A.B.C.D.40.为使窗体每隔 0.5 秒钟激发一次计时器事件(timer 事件)，则应将其 Interval 属性值设置为_。A5000 B500 C5 D0.5（分数：2.00）A.B.C.D.41.下列程序的功能是返回当前窗体的记录集：Sub GetRecNum()Dim rs As ObjectSet rs=MsgBox rs.RecordCountEnd Sub为保证程

25、序输出记录集(窗体记录源)的记录数，括号内应填入的语句是_。AMe.Recordset BMe.RecordLocksCMe.RecordSource DMe.RecordSelectors（分数：2.00）A.B.C.D.42.下列过程的功能是：通过对象变量返回当前窗体的 Recordset 属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。Sub GetRecNum()Dim rs As ObjectSet rs=Me.RecordsetMsgBox End Sub程序括号内应填写的是_。ACount Brs.Count CRecordCount Drs.RecordCount

26、（分数：2.00）A.B.C.D.43.教师管理数据库有数据表“teacher”，包括“编号”、“姓名”、“性别”和“职称”4 个字段。下面程序的功能是：通过窗体向 teacher 表中添加教师记录。对应“编号”、“姓名”、“性别”和“职称”的 4 个文本框的名称分别为：tNo、tName、tSex 和 fTities。当单击窗体上的“增加”命令按钮(名称为Command1)时，首先判断编号是否重复，如果不重复，则向“teacher”表中添加教师记录；如果编号重复，则给出提示信息。相关代码如下：Private ADOcn As New ADODB.ConnectionPrivate Sub F

27、orm Load()打开窗口时，连接 Access 本地数据库Set ADOcn=_End SubPrivate Sub Command0_Click()追加教师记录Dim strSQL As StringDim ADOcmd As New ADODB.CommandDim ADOrs As New ADODB.RecordsetSet ADOrs.ActiveConnection=ADOcnADOrs.Open“Select 编号 From teacher Where 编号=“+tNo+“If Not ADOrs.EOF ThenMsgBox“你输入的编号已存在，不能新增加!“ElseADO

28、cmd.ActiveConnection=ADOcnstrSQL=“Insert Into teacher(编号，姓名，性别，职称)“strSQL=strSQL+“Values(“+tNo+“，“+tname+“，“+tsex+“，“+ttitles+“)“ADOcmd.CommandText=strSQLADOcmd.ExecuteMsgBox“添加成功，请继续!“End IfADOrs.CloseSet ADOrs=NothingEnd Sub按照功能要求，在横线上应填写的是_。ACurrentDB BCurrentDB.ConnentionCCurrentProject DCurrent

29、Project.Connection（分数：2.00）A.B.C.D.44.教师管理数据库有数据表“teacher”，包括“编号”、“姓名”、“性别”和“职称”4 个字段。下面程序的功能是：通过窗体向“teacher”表中添加教师记录。对应“编号”、“姓名”、“性别”和“职称”的 4 个文本框的名称分别为：tNo、tName、tSex 和 tTitles。当单击窗体上的“增加”命令按钮(名称为 Command1)时，首先判断编号是否重复，如果不重复，则向“teacher”表中添加教师记录；如果编号重复，则给出提示信息。Private ADOcn As New ADODB.ConnectionP

30、rivate Sub Form_Load()打开窗口时，连接 Access 本地数据库Set ADOcn=CurrentProject.ConnectionEnd SubPrivate Sub Command0_Click()追加教师记录Dim strSQL As StringDim ADOcmd As New ADODB.CommandDim ADOrs As New ADODB.RecordsetSet ADOrs.ActiveConnection=ADOcnADOrs.Open“Select 编号 From teacher Where 编号=“+tNo+“If Not ADOrs.EOF

31、 ThenMsgBox“你输入的编号已存在，不能新增加!“ElseADOcmd.ActiveConnection=ADOcnstrSQL=“Insert Into teacher(编号，姓名，性别，职称)“strSQL=strSQL+“Values(“+tNo+“，“+tname+“，“+tsex+“，“+ttitles+“)“ADOcmd.CommandText=strSQLADOcmd._MsgBox“添加成功，请继续!“End IfADOrs.CloseSet ADOrs=NothingEnd Sub按照功能要求，在横线上应填写的是_。AExecute BRunSQL CRun DSQL

32、（分数：2.00）A.B.C.D.45.采用 DAO 完成对“教学管理.mdb”文件中“学生表”的学生年龄都加 1 的操作，程序空白处应填写的语句是_。Sub SetAgePlus()Dim WS As DAO.WorkspaceDim db As DAO.DatabaseDim rs As DAO.RecordsetDim fd As DAO.FieldSet db=CurrentDb()Set rs=db.OpenRecordset(“学生表“)Set fd=rs.Fields(“年龄“)Do While Not rs.EOF_fd=fd+1rs.Updaters.MoreNextLoop

33、rs.Closedb.CloseSet rs=NothingSet db=NothingEnd SuhArs.Fields.Edit Brs.Edit CFields.Edit DEdit（分数：2.00）A.B.C.D.46.采用 ADO 完成对“教学管理.mdb”文件中“学生表”的学生年龄都加 1 的操作，程序空白处应填写的是_。Sub SetAgePlus()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim fd As ADODB.FieldDim strConnect As StringDim strSQL A

34、s StringSet cn=CurrentProject.ConnectionstrSQL=“Select 年龄 from 学生表“rs.Open strSQL，cn，adOpenDynamic，adLockOptimistic，adCmdTextSetfd=rs.Fields(“年龄“)Do While Not rs.EOFfd=fd+1_rs.MoveNextLooprs.Closecn.CloseSet rs=NothingSet cn=NothingEnd SubArs.Edit Brs.Update CEdit DUpdate（分数：2.00）A.B.C.D.47.ADO 对象模型

35、中可以打开并返回 RecordSet 对象的是_。A只能是 Connection 对象 B只能是 Command 对象C可以是 Connection 对象和 Command 对象 D不存在（分数：2.00）A.B.C.D.48.数据库中有“Emp”，包括“Eno”、“Ename”、“Eage”、“Esex”、“Edate”“Eparty”等字段。下面程序段的功能是：在窗体文本框“tValue”内输入年龄条件，单击“删除”按钮完成对该年龄职工记录信息的删除操作。Private Sub btnDelete_Click() 单击“删除“按钮Dim strSQL As String 定义变量strSQ

36、L=“delete from Emp“ 赋值 SQL 基本操作字符串判断窗体年龄条件值无效(空值或非数值)处理If IsNull(Me!tValue)=True Or IsNumefic(Me!tValue)=False ThenMsgBox“年龄值为空或非有效数值!“，vbCritical，“Error“窗体输入焦点移回年龄输入的文本框“tValue“控件内Me!tValue.SetFocusElse构造条件删除查询表达式strSQL=strSQL&“where Eage=“&Me!tValue消息框提示“确认删除?(Yes/No)“，选择“Yes“实施删除操作If MsgBox(“确认删除

37、?(Yes/No)“，vbQuestion+vbYesNo，“确认“)=vbYes Then执行删除查询DoCmd._strSQLMsgBox“completed!“，vblnformation，“Msg“End IfEnd IfEnd Sub按照功能要求，下划线处应填写的是_。AExecute BRunSQL CRun DSQL（分数：2.00）A.B.C.D.49.ADO 对象模型中有 5 个主要对象，他们是 Connection、Command、RecordSet、Error 和_。ADatabase BWorkspace CField DDBEngine（分数：2.00）A.B.C.D

38、.50.VBA 中不能实现错误处理的语句结构是_。AOn Error Then 标号 BOn Error Goto 标号COn Error Resume Next DOn Error Goto 0（分数：2.00）A.B.C.D.51.在 VBA 中，能自动检查出来的错误是_。A语法错误 B逻辑错误 C运行错误 D注释错误（分数：2.00）A.B.C.D.52.要显示当前过程中的所有变量及对象的取值，可以利用的调试窗口是_。A监视窗口 B调用堆栈 C立即窗口 D本地窗口（分数：2.00）A.B.C.D.53.在 VBA 代码调试过程中，能够显示出所有在当前过程中的变量声明及变量值信息的是_。A

39、快速监视窗口 B监视窗口C立即窗口 D本地窗口（分数：2.00）A.B.C.D.二级 ACCESS-选择题(八)答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：53，分数：100.00)1.运行下列程序，结果是_。Private Sub Command32_Click()f0=1:f1=1:k=1Do While k=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox“f=“&fEnd SubAf=5 Bf=7 Cf=8 Df=13（分数：1.00）A.B.C.D. 解析：解析 本题考察 Do 循环语句：k=1 时，f=1+1=2，f0=1，f1=2，k=

40、1+1=2；k=2 时，f=3，f0=2，f1=3，k=2+1=3；k=3 时，f=5，f0=3，f1=5，k=3+1=4；k=4 时，f=8，f0=5，f1=8，k=4+1=5；k=5 时，f=13，f0=8，f1=13，k=6，不再满足循环条件跳出循环，此时 f=13。2.在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：Private Sub Command1_Click()MsgBox f(24，18)End SubPublic Function f(m As Integer，n As Integer)As IntegerDo While innDo Whil

41、e innm=m-nLoopDo While Innn=n-mLoopLoopf=mEnd Function窗体打开运行后，单击命令按钮，则消息框的输出结果是_。A2 B4 C6 D8（分数：1.00）A.B.C. D.解析：解析 题目中命令按钮的单击事件是使用 MsgBox 显示过程 f 的值。在过程 f 中有两层 Do 循环，传入参数 m=24，n=18，由于 mn 所以执行 m=m-n=24-18=6，内层第 1 个 Do 循环结束后 m=6，n=18；此时m 小于 n，所以再执行 n=n-m=18-6=12，此时 m=6，n=12；再执行 n=n-m 后 m=n=6；mn 条件满足，退

42、出循环，然后执行 f=m 的赋值语句，即为 f=m=6。3.由“For i=1 To 9 Step-3”决定的循环结构，其循环体将被执行_。A0 次 B1 次 C4 次 D5 次（分数：1.00）A. B.C.D.解析：解析 题目中 For 循环的初值为 1，终值为 9，步长为-3，不满足循环条件，循环体将不会被执行。4.有如下事件程序，运行该程序后输出结果是_。Private Sub Command33_Click()Dim x As Integer，y As Integerx=1:y=0Do Until y=25y=y+x*xx=x+1LoopMsgBox“x=“&x&“, y=“&yEn

43、d SubAx=1，y=0 Bx=4，y=25Cx=5，y=30 D输出其他结果（分数：1.00）A. B.C.D.解析：解析 Do Until 循环采用的是先判断条件后执行循环体的做法，如果条件为 True，则循环体一次都不执行。否则进入循环体执行。本题中的循环停止条件是 y25，而 y=0，满足条件表达式，则不进入循环体，x、y 的值不变，仍为 1、0。5.在窗体上有一个命令按钮 Command1 和一个文本框 Text1，编写事件代码如下：Private Sub Command1_Click()Dim i，j，xFor i=1 To 20 step 2x=0For j=i To 20 s

44、tep 3x=x+1Next jNext iText1.Value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是_。A1 B7 C17 D400（分数：1.00）A. B.C.D.解析：解析 题目中使用了双重 For 循环，外循环中每循环一次，X 的值都是从 0 开始，所以外循环中到最后一次循时，X 的值是 0。而内循环中的最后一次循环是 j=20 to 20 step 3，所以此时内循环只循环一次，X 的值为 X=0+1=1。Str 函数将数值转换成字符串。6.若有以下窗体单击事件过程：Private Sub Form_Click()result=1For i

45、=1 To 6 step 3result=result*iNext iMsgBox resultEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是_。A1 B4 C15 D120（分数：1.00）A.B. C.D.解析：解析 本题中主要考查 For 循环执行的次数和循环变量的取值，第一次循环i=1，result=1*1=1，之后 i+3；第二次循环 i=4，result=1*4=4，之后 i+3 为 7 不符合 for 循环条件，结束循环，输出结果为 4。7.在窗体中有一个命令按钮 Command1 和一个文本框 Text1，编写事件代码如下：Private Sub Command1

46、_Click()For i=1 To 4x=3For j=1 To 3For k=1 To 2x=x+3Next kNext jNext iText1.value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框 Text1 输出的结果是_。A6 B12 C18 D21（分数：2.00）A.B.C.D. 解析：解析 题目中程序是在文本框中输出 x 的值，x 的值由一个三重循环求出，在第一重循环中，x 的初值都是 3，因此，本段程序重复运行 4 次，每次 x 初值为 3，然后再经由里面两重循环的计算。在里面的两重循环中，每循环一次，x 的值加 3，里面两重循环分别从 1 到 3，从

47、 1 到 2 共循环 6 次，所以 x 每次加 3，共加 6 次，最后的结果为 x=3+6*3=21。Str 函数将数值表达式转换成字符串，即在文本框中显示21。8.由“For i=1 T0 16 Step 3”决定的循环结构被执行_。A4 次 B5 次 C6 次 D7 次（分数：2.00）A.B.C. D.解析：解析 题目考查的是 For 循环结构，循环初值 i 为 1，终值为 16，每次执行循环 i 依次加 3，则i 分别为 1、4、7、10、13、16，则循环执行 6 次。9.运行下列程序，输入数据 8、9、3、0 后，窗体中显示的结果是_。Private Sub Form_click()Dim sum As Integer，m As Integersum=0Dom=InputBox(“输入 m“)sum=sum+mLoop Until m=0MsgBox sumEnd SubA0 B17 C20 D21（分数：2.00）A.B.C. D.解析：解析 本题程序是通过 Do 循环结构对键盘输入的数据进行累加，循环结束条件是输入的字符为0，题目在输入 0 之前输入的 3 个有效