计算机二级模块与VBA编程基础(有KEY)

1、精选优质文档-倾情为你奉上精选优质文档-倾情为你奉上专心-专注-专业专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业If 条件 then 语句Else 语句End if行IF语句：（不需要end if）If x0 then y=1If x=0 then y=0If x0 then Y=1End ifIf x=0 thenY=0End ifIf x0 then Y=1Elseif x=0 thenY=0Elseif x0 Y=1Case 0 Y=0Case is0 Y=-1End selectCase 1 to 20Case 2,4,6,10Case is=10,1to 20,40,6

2、0 不能有AND逻辑运算符循环：Do. loop 的五种结构（不需要编写程序，写出执行过程）I=1Do while i=5 then exit doFor next( step0 = step=) 退出exit forWhilewend 无退出结构数组（下标）Dim a(下标下限 to 下标上限)默认下限为0C(40,5) 40行50列Option base 1 下限为1函数 (主程序 函数) 结果赋值给函数名FunctionEnd function过程：（主程序 call SubEnd subByval 传值（不返回值）Byref 传地址（返回值）经典考题以下关于VBA运算符优先级比较，正确

3、的是 CA）算术运算符逻辑运算符比较运算符 B）逻辑运算符比较运算符算术运算符C）算术运算符比较运算符逻辑运算符 D）以上均是错误的在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为 DA）Boolean B)Int C)String D)Variant 以下可以得到“2*5=10”结果的VBA表达式为 AA)“2*5”&”=“&2*5 B）“2*5”+“=”2*5 C）2*5&“=”&2*5 D）2*5+“=”+2*5以下程序段运行后，消息框输出结果是 Ba=sqr(3)b=sqr(2)c=abMsgbox c+2A)-1 B)1 C)2 D)出错用于获得字符串S

4、tr从第2个字符开始的3个字符的函数是 AA）Mid(Str,2,3) B)Middle(Str,2,3) C)Right(Str,2,3) D)Left(Str,2,3)下列逻辑表达式中，能正确表示条件“x和y都是奇数”的是 CA)xMod2=1 Or y Mod2=1 B)x Mod 2=0 Or y Mod2=0 C)x Mod2=1 And y Mod 2=1 D)x Mod 2=0 And y Mod 2=0假定有以下循环结构 BDo Until 条件循环体Loop则正确的是A)如果“条件”值为0，则一次循环体也不执行 B）如果“条件”值为0，则至少执行一次循环体C）如果“条件”值不

5、为0，则至少执行一次循环体 D）不论“条件”是否为“真”，至少要执行一次循环体VBA程序的多条语句可以写在一行中，其分隔符号 AA）： B）C）; D),VBA表达式子3*33/3的输出结果是 DA)0 B)1 C)3 D）9 执行下面的程序段后，b的值为 5a=5b=7a=a+bb=a-ba=a-b在窗体中添加一个命令按钮（名称为为Command1）,然后编写如下代码：Private Sub Command1_Click() a=0:b=0:c=6 MsgBox a=b+c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为 D。11 B)a=11 C)0 D)False

6、 在窗体上添加一个命令按钮（名为Command1）和一个文本框（名为Text1）,并在命令按钮中编写如一事件代码：Private Sub Command1_() m=2.17 n=Len(Str$(m)+Space(5) Me!Text=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示（D）A) 5 B) 8 C）9 D)1013.下列Case语句中错误的是 CA）Case 0 to 10 B）Case IS10 C)Case Is10 and Is10 14在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Cl

7、ick ( ) a=75If a60 Then i=1If a70 Then i=2 if a80 Then i=3if a90 Then i=4MsgBox iEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是 B。A）1 B） 2 C） 3 D) 415.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click ( ) a=75If a60 Then k=1 Elself a70 Then k=2 Elself a80 Then k=3 Elself a90 Then k=4Endlf MsgBox kEnd

8、 Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是 A。A) 1 B) 2 C) 3 D) 416. 下面程序的功能是计算折旧年限。假设一台机器的原价值为100万元，如果每年的折旧率为4%，多少年后它的价值不足50万元。请填空。 y=0 p=100 x=0.04 Do p=p*（1-x） y=y+1 Loop Until p( 50 ) MsgBox y17.执行下面的程序，消息框里显示的结果是 abdbPrivate Sub Form_Click ( ) Dim Str as String , k as Integer Str=”ab” For k =Len(Str) To 1 St

9、ep -1 Str = Str& Chr( asc(Mid(Str, k ,1)+k）Next kMsgBox Str End Sub18.某个窗体已编写一下事件过程。打算窗体运行后，单击窗体， 消息框的输出结果为（ 1024 ）Private Sub Form _Click ( ) Dim k as Integer , n as Integer , m as Integer n=10; m=1; k=1 Do While k=n m=m*2 k=k+1 loopMsgBox mEnd Sub19.以下是一个竞赛评分程序。 8位评委，去掉一个最高分和一个最低分，计算平均分 （设满分位10分）。

10、请填空补充完整。Private Sub Form _Click ( ) Dim Max as Integer , Min Integer Dim i as Integer , x as Integer , s as Integer Dim p as Single Max=0 Min=10 For i=1 to 8 X=Val(InputBox(“请输入分数： ”) If ( maxx ) Then Min=x S=s+x Next i s= (s-max-min ) p=s/6 MsgBox “最后得分：”&p End Sub20 在窗体中添加一个名称为 Command1 的命令按钮，然后编写

11、如下事件代码：Private Sub Command1_Click ( ) S=”ABBACDDCAB” For i=6 to 2 step -2 x=Mid (s, i, i ) y=Left ( s, i) z=Right ( s, i) z=x&y&z Next i MsgBox z End Sub 窗体打开运行后，单击命令按钮， 则消息框的输出结果是（ D ） A)AABAAB B)ABBABA C)BABBA D)BBABAB21在窗体中添加一个命令按钮 (名为 Command1),，然后编写如下事件 Private Sub Command1_Click ( ) Dim b , k

12、For k=1 to 6 b =23+k Next k MsgBox b+k End Sub窗体开始运行后，单击命令按钮， 消息框的输出结果是( 36 ) 22以下程序段运行结束后， 变量X的值为 C x=2 ：y=4 Do x=x*y y=y=1 Loop While yy,x,y) End Function Private Sub Command1_Click ()Dim a as Integer ,b as Integer a=1:b=2MsgBox m(a,b)End Sub 打开窗体运行后，单击命令按钮，消息框的输出结果为（ 2 ）Private function f(x as lo

13、ng ) As boolean If x mod 2=0 then F=true Else f=false end ifend function28 若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为 Text 的文本框的内容为空，然后编写如下事件的代码：Privare Sub Command1_lick （） Dim n As long n=Val (Me!textl) p=iif (f(n),”Even umber”,”Odd number”) Me!Labell.Caption=n&”is”&pEnd Sub窗体打开运行后，在文本框中输入21，单击命令按

14、钮，则标签显示内容为（ 21 is odd number ）29.在窗体中添加一个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1-Click（）Private sub s (ByVal p as integer ) P=p*2End Sub Dim i As Integer i=3 Call s（i） If i4 Then I=I2 Msgbox iEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ 3 ）30.在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：Public x As integerPrivate s

15、ub s2 ()Dim x as integerX=x+2End sub Private sub s1 () X=x+2End SubPrvite Sub Command1-Click () x = 10 Call s1 Call s2 MsgBox xEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为_30_31.有一个VAB计算机程序的功能如下，该程序用户界面由4个文本框组成。4个文本框的名称分别为：Text1,Text2,Text3,Text4。3个按钮分别为：清除（名为Command1），计算（名为Commd2）和退出（名为Commd3）。窗体打开运行后，单击清除按钮则清

16、除所有文本框中显示的内容：单击计算机按钮，则计算机在Text1，Text2，和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。Private Sub Command1_Click ( ) Me！Text1=“”Me！Text2=“”Me！Text3=“”Me！Text4=“”End sub Private Sub Command2_Click ( ) If Me!Text1 =” Or Me!Text2=” Or Me!Text3=” Then MsgBox”成绩输入不全” ElsePrivate Sub Command3_Click ( )

17、 Docmd._closeEnd sub Me!Text4=(val(me!text1+Val(Me!Text2)+Val(Me!Text3)/3 End if End SubPrivate Sub form_timer() Me .text1=Now()32,在窗体上有一个文本框控件，名称为Text。同时，窗体加载时设置其计时触发事件过程则实现在Text1 文本框中动态显示当前日期和时间。请补充完整。Private Sub From_Load( ) Me.Timerinterval=1000End Sub33有如下语句： s=Int（100*Rnd） 执行完毕后，s的值是A）0, 99的随机

18、整数 B）0, 100的随机整数 C）1,99的随机整数 D）1,100的随机整数34.如下程序段定义了学生成绩的记录类型，由学号，姓名和三门课程成绩（百分制）组成。Type Stud no As Integer name As String score （1 to3）As SingleEnd Type若对某个学生的各个数据项进行赋值，下列程序段中正确的是 D A）Dim S As Stud B）Dim S As Stud Stud.no =1001 S.no =1001 S=”舒宜” S.name=”舒宜” Stud.score (1) =78,88,96 S.score=

19、78,88,96 C) Dim S As Stud D) Dim S As StudStud.no =1001 S.no =1001S =”舒宜” S.name =”舒宜” S (1) =78 S.Score(1)=78Stud.score (2) =88 S.Score(2)=88Stud.score (3) =96 S.Score(3)=9635.有如下用户定义类型及操作语句：Dim Stu As StudentWith Stu .Sno=” .Sname=”陈果果” .Sage=19End Sub Type Student SNo As String Sn

20、ame As String Sage As Integer End Type 执行MsgBox Stu，Sage后，消息框输出的结果是（19 ） ）同步练习以下程序运行后，输出结果为（ 15 ）a=5for k=1 to 0 a=a+knext kmsgbox k& a以下程序运行后，输出的结果为（ 4 5 9 ）a=3b=1for i=1 to 3 f=a+b a=bb=fmsgbox f next i 3. 以下程序运行后，输出结果结果为（ 107 ） I=9 X=5 Do I=I+1 X=x+2 Loop Until I=7 Msgbox I & x4.以下程序运行后，输出结果为 （ 1

21、 8 ） S=1 DoNumber = number+1Loop until S=6 Msgbox number，s5.以下程序运行后，输出结果为（3）For I=0 to 50 I=I+3N=n+1If I10 then exit for Next iMe! Text1=str(n)6.窗体上面一名称为text1 的文本框，和一个名称为option1的选项按钮组。程序运行后单击某个选项按钮，文本框中的内容就会变成其字体Private Sub option1_Click()Select case option1 Case I a=”宋体” Case 2 a=”黑体”Case 3 a=“楷体_G

22、B2312”end selecttext1 ._fontname=a7在第一个文本框中输入10，则第二个文本框中的值是多少 10 n=me!text1Select Case nCase 1 to 20X=10Case 2,4,6,10X=20Case is =10X=30Case elsc X=40End select Me!text2=x8在窗体上面画一个命令按钮（其name 属性为command1），然后编写如下代码：Private sub command1-click () Dim m（10） as integer For k=1 to 10 M(k)=12-k Next kX=6Fun

23、ction fun (ByVal num As Long ) As LongDim k As LongK=1Num=Abs(num)Do while num K=k*(num Mod 10) num=num10LoopFun=k End FunctionMsgbox m (2+m(x)End sub程序运行后，单击命令按钮，输出结果是（4）9、在窗体上面画一个命令按钮 ，然后编写如下程序：Paivate sub command1_click()Dim n as long dim r as long n=inputbox（“请输入一个数”）n= clng (n)r=fun（n）msgbox re

24、nd sub程序运行后，单击命令按钮，再输入对话“234”，输出结果为（24）10执行下面的程序后，x的值为 AX=5For i=I to 20 step 2X=x+i5Next ia)21 b)22 c) 23 d）2411、在窗体上面画一个命令按钮，然后编写如下事件过程： Paivate sub command1_click() X=0 Do untin x=-1 A=inputbox（“请输入a的值“） A=val(a) / val 字符转数值函数，见书268页 B=inputbox （请输入b的值“） B=val（b） X=inputbox (“请输入x的值“) X=val(x) A=

25、a+b+xLoopMsgbox aEnd sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 Aa) 2 B) 3 c)14 D)15 12在窗体上面画两个文本框（其name属性分别为text1和text2）和一个命令按钮（其name属性为command1），然后编写如下过程：Private sub command1_click() X=0Do while x50 X=（x+2）*（x+3） N=n+1Loop Me.text=str （n） /str为数值转字符函数Me.text2 =str (x)End sub程序运行后，单击命令按钮，在两个文本

26、框中显示的值分别为 BA) 1和0 B)2和72 C) 3和50 D)4和168 13.在窗体上面画一个命令按钮，然后编写如下事件过程： Private sub command1_click () A=0 For i=1 to 2 For j=1 to 4 If j mod 2 0 then A=a+1 Next j Next iMsgbox aEnd sub程序运行后，单击命令按钮，输出结果是（ 12 ）考前预测：1、VBA中不能进行错误处理的语句结构是（ A ）A、On Error Then 标号 B、On Error Goto 标号 C、On Error Resume Next D、On

27、 Error Goto 03、在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是（ D ）A、快速监视 B、监视窗口 C、立即窗口 D、本地窗口4、VBA的逻辑值进行算术运算时，True值被处理为（ B ）A、0 B、-1 C、1 D、任意值5、以下有关控件对象属性的说法中正确的是（ D ）A、控件对象的属性只能在属性窗口中设置 B、不同控件对象不可能有同名属性C、不同控件对象的同名属性取值一定相同 D、控件对象的属性既可在属性窗口中设置也可通过VBA代码设置6、为了把焦点移到某个指定的控件，所使用的是（ A ）A、SetFocus B、Visible C、Refres

28、h D、GotFocus7、以下Dlookup函数式用于某个窗体模块设计时有条件获取非数据源的数据表“tStud”中“tName”字段值。条件是：数据表“tStud”中“tNum”字段的值等于窗体上文本框控件（名为txtNum）输入的值。这里，数据表“tStud”中“tNum”字段为文本类型。正确的是（ ）A、Dlookup(“tName”,”tStud”,”tNum=me!txtNum” ) B、Dlookup(“tName”,”tStud”,”tNum=me!txtNum” ) C、Dlookup(“tName”,”tStud”,”tNum=&me!txtNum” ) D、Dlookup(

29、“tName”,”tStud”,”tNum=”&me!txtNums )8、表达式#2004/2/28# - #2004/3/5#的值为（ A ）A、-6 B、-5 C、5 D、69、在VBA的DOWhile或DoUntil循环结构中，可以实现循环提前结束的语句是（ D ）A、End for B、End do C、exit for D、Exit do10、VBA的控件输入数据验证一般安排在控件的事件过程中进行。主要是（C）A、Click B、Change C、BeforeUpdate D、AfterUpdate11、过程中的形参和实参之间应（ D ）A、仅要求类型上必须一致 B、仅要求位置上必

30、须一致 C、类型必须一致，位置无关D、类型和位置都必须一致12、以下程序段执行后 ，变量A和B的值分别是（13 21）A=1B=ADO Until A5 A=A+BB=B+ALOOP13、若在一个窗体上，依次创建了Label、CommandButton和TextBox等三个控件，则运行显示窗体时，首先获得焦点的对象是( B )A、窗体 B、CommandButton C、Label D、TextBox14、可以同时删除字符串前导和尾部空格的函数是（ C ）A、Ltrim B、Rtrim C、trim D、Mid15、如果在立即窗口中执行以下操作M=1N=2Print m=n则输出结果是（ C

31、） A、-1 B、0 C、false D、true16、执行下面程序段后，x的值为（ A ） A、21 B、22 C、23 D、24X=5For i=1 to 20 step 2 X=x+i5Next i17、在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub form_load( )Text1=”For i=1 to 10 Sum=sum+iNext I Text=sumEnd sub上述程序的运行结果是（ A ）A、在文本框text1中输出55 B、在文本框text1中输出0C、出错 D、在文本框text1中输出不定值18、定义数组a(1to5

32、,5)后下面哪一个数组元素不存在（ C ）A、a(1,1) B、a(1,0) C、a(0,1) D、a(5,5)19、以下可以将变量A、B值互换的是（ B ）A、A=B:B=A B、A=A+B:B=A-B:A=A-B C、A=C:C=B:B=A D、A=(A+B)/2:B=(A-B)/220、能实现多项分支选择结构的语句是（ B ）A、ifelse B、select case C、do while D、do until21、VBA注释语句说明可使用REM或符号（ B ）A、“ B、 C、 ， D、 ：22、ACCESS的窗体和大多数控件都可以接收焦点，但焦点在任何时候只能有（ B ）A、0个

33、B、1个 C、2个 D、3个23、VBA中，如果没有显示声明或用符号来定义变量的数据类型，默认为（ C ）A、string B、int C、variant D、Boolean1、VBA的全称是（ Visual basic for application ）2、模块包含了一个声明区域和一个或多个子过程（以 sub 开头）或函数过程（以 function 开头）3、VBA中变量作用域分为3个层次，这3个层次是（ 局部范围 ）、（ 模块范围）、（ 全局范围 ）4、在模块的说明区域中，用（ private ）关键字说明的变量是模块范围的变量；而用（ public）或（ global ）关键字说明的变量

34、是属于全局范围的变量5、VBA的定时操作功能是通过窗体的（ timer ）事件过程完成6、VBA的3种流程控制结构是顺序结构、（ 选择结构 ）和（ 循环结构 ）7、以程序是计算1-1/2+1/3-1/4+1/9-1/10的值并输出，请补充完成。S=0K=1T=1Do while k( 11 )S=s+t/kK=k+1T=( -T )LoopMsgbox s8、以下是某个窗体的模块代码，请分析单击窗体后程序运行至“*“号位置时变量x、y和z的值分别为（2 2 2 ）Dim x as integerDim y as integerPrivate sub form_click( ) Dim x as

35、 integer X=1 Y=1 Call aa(y+1) Z=BB(x)*Msgbox “x=”&x&”/y=”&y&”/z=”&zEnd subPrivate sub aa(byval z as integer)Y=z+xZ=x+yEnd subPrivate function BB(byref y as integer)Y=y+1BB=x+yEnd function9、启动窗体时，为了初始化该窗体中的各控件，可选用窗体的（ load ）事件10、以下程序运行时连续单击4次窗体，则第4次单击窗体后消息框里的输出结果为（ 15，8 ）Private sub form_click( )Static a a