VBA题.doc

第一套模拟题 一、选择题 （33）OpenForm的功能是用来打开 A)表　 B)窗体　 C)报表　 D)查询 （34）运行下面的程序段： For k＝ 5 to 10 Step 2 k＝k*2 Next k 则循环次数为： A)1　 B)2　 C)3　 D)4 （35）在窗体视图显示窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是 A)Label1.ForeColor＝255　 B)bChange.ForeColor＝255 C)Label1.BackColor＝255　 D)bChange.BackColor＝255 二、填空题 （10）有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击退出按钮则退出。请将下列程序填空补充完整。 　PrivateSubCommand1_Click() Me！Text1＝ Me！Text2＝ Me！Text3＝ Me！Text4＝ 　EndSub 　PrivateSubCommand2_Click() If Me！Text1＝ Or Me！Text2＝ Or Me！Text3＝ Then 　MsgBox成绩输入不全 Else 　Me！Text4＝(__【12】__＋Val(Me！Text2)＋Val(Me！Text3))/3 【13】__ 　EndSub 　Private Sub Command3_Click() Docmd.__【14】__ 　EndSub （11）下面程序的输出结果是__【15】__。 Private Sub Form_Click() i＝0 Do Unti l0 i＝i＋1 if　i10 then Exit Do Loop Printi EndSub 第一套答案解析 一、选择题 (33)B 解析：OpenForm用于在窗体视图，窗体设计视图、打印预览或数据表视图中打开一个窗体，并通过选择窗体的数据输入与窗体方式，限制窗体所显示的记录。 (34)A 解析：第1次循环后k＝k*2＝10 (35)A 解析：前景颜色（ForeColor）和背景颜色（BackColor）属性值分别显示控件的底色和文字颜色。 二、填空题 (10)Val(Me！Text1)~End If~Quit 解析：由题目可知，Text4中存放的是3科成绩的平均成绩，所以要把3个科目的成绩加起来除以3，所以第1空应该填Val(Me！Text1)，获得输入科目的成绩。 If...Else...EndIf语句中，缺少结束语句，所以第2空应该填空EndIf。 Command3的功能是退出，而退出有两种，一种是退出窗体，一种是退出Access，如果是退出窗体，则使用Close方法，如果是退出Access，则使用Quit方法。 (11)11 解析：本题主要考查Do循环语句。循环条件DoUntil0可得知这是一个无限循环，要跳出此循环，只有在循环体里面使用相关的语句。这里用的是ExitDo，从程序上看出，跳出循环的条件是i10，而i是从0开始，每次循环加1。所以，跳出循环时i的值应该为11。 第二套模拟题 一、选择题 （34）若将下图中窗体的标题设置为改变文字显示颜色，应使用的语句是 A)Me＝改变文字显示颜色　 B)Me.Caption＝改变文字显示颜色 C)Me.text＝改变文字显示颜色　 D)Me.Name＝改变文字显示颜色 （35）执行下面的程序段后，x的值为 x＝5 For I＝1 To 20 Step 2 　x＝x＋I\5 Next I A)21　 B)22　 C)23　 D)24 二、填空题 （11）窗体的计时器触发事件激发的时间间隔是通过__【13】__属性来设置。 （12）在VBA中，分支结构根据__【14】__选择执行不同的程序语句。 （13）在窗体中使用一个文本框(名为num)接受输入值，有一个命令按钮run，单击事件代码如下： Private Sub run_Click() If Me!num　＞＝60 Then result＝及格 Else If Me!num　＞＝70 Then result＝中等 Else If Me!num　＞＝85 Then result＝优秀 End If MsgBox result