二级VISUAL BASIC真题.docx

1、二级VISUAL BASIC真题2008年9月二级笔试试卷 一、选择题 下列各题A)、B)、C)、D)四个选项中，只有个选项是正确的。 (11)在设计窗体时双击窗体的任何地方，可以打开的窗口是_。 A) 代码窗口 B) 属性窗口 C) 工程资源管理器窗口 D) 工具箱窗口 (12)若变量a未事先定义而直接使用(例如：a=0)，则变量a的类型是_。 A) Integer B) String C) Boolean D) Variant (13)为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为_。 A) Dim pi As Integer B) Dim pi(7)As Inte

2、ger C) Dim pi As single D) Dim pi As Long (14)表达式2*32+4*2/2+32的值是_。 A) 30 B) 31 C) 49 D) 48 (15)以下不能输出“Program”的语句是_。 A) Print Mid(VBProgram,3,7) B) Print Right(VBProgram,7) C) Print Mid(VBProgram,3) D) Print Left(VBProgram,7) (16)窗体上有个名称为Frame1的框架(如图)，若要把框架上显示的“Frame1”改为汉字“框架”，下面正确的语句是_。 A) Frame1.

3、Name=框架 B) Frame1.Caption=框架 C) Frame1.Text=框架 D) Frame1.Value=框架 (17)以下叙述中错误的是_。 A) 在通用过程中，多个形式参数之间可以用逗号作为分隔符 B) 在Print方法中，多个输出项之间可以用逗号作为分隔符 C) 在Dim语句中，所定义的多个变量可以用逗号作为分隔符 D) 当一行中有多个语句时，可以用逗号作为分隔符 (18)设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是_。 A) List1.List B) List1.ListIndex C) List1.Text D) Li

4、st1.Index (19)设a=4，b=5，c=6，执行语句Print ab And bc后，窗体上显示的是_。 A) True B) False C) 出错信息 D) 0 (20)执行下列语句 strInput=InputBox(请输入字符串，字符串对话框，字符串) 将显示输入对话框。此时如果直接单击“确定”按钮，则变量strInput的内容是_。 A) 请输入字符串 B) 字符串列话框 C) 字符串 D) 空字符串 (21)窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer,m As Integer P

5、rivate Sub Command1_Click() m=InputBox(请输入个正整数) ReDim a(m) End Sub Private Sub Command2_Click() m=InputBox(请输入个正整数) ReDim a(m) End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是_。 A) 5 B) 6 C) 10 D) 11 (22)在窗体上画个命令按钮和个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Command1_tlick() Count

6、er=0 For i=1 To 4 For j=6 To 1 Step-2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是_。 A) 11 B) 12 C) 16 D) 20 (23)在窗体上画个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x) End Sub 运行

7、程序，单击命令按钮，在窗体上显示的是_。 A) 6 B) 5 C) 7 D) 8 (24)以下关于过程及过程参数的描述中，错误的是_。 A) 调用过程时可以用控件名称作为实际参数 B) 用数组作为过程的参数时，使用的是“传地址”方式 C) 只有函数过程能够将过程中处理的信息传回到调用的程序中 D) 窗体(Form)可以作为过程的参数 (25)在窗体上画个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X=5:Y=3 Call proc

8、(X,Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是_。 A) 25和3 B) 5和3 C) 25和6 D) 5和6 (26)在窗体上有两个名称分别为Text1、Text2的文本框，个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明： Private Type Person name As String*8 major A

9、s String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是_。 A) Open c:Test2.dat For Output As #1 Put #1,1,p Close #1 B) Open c:Test2.dat For Random As #1 Get #1, 1, p Close #1 C) Open c:Test2.dat For Random As #1 ten=ten(p) Put #1,1,p Close #1 D) O

10、pen c:Test2.dat For Random As #1 Len=Len(p) Get #1, 1, p Close #1 (27)在窗体上画个名称为Text1的文本框和个名为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。 A) 2 B) 3 C) 4 D) 5

11、 (28)假定有以下循环结构： Do Until条件表达式 循环体 Loop 则以下正确的描述是_。 A) 如果“条件表达式”的值是0，则次循环体也不执行 B) 如果“条件表达式”的值不为0，则至少执行次循环 C) 不论“条件表达式”的值是否为“真”，至少要执行一次循环 D) 如果“条件表达式”的值恒为0，则无限次执行循环体 (29) 在窗体上画个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd*100) Print Num； Select Case

12、 Num Case 12 Exit For Case 58 Exit Do Case 65,68,92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是_。 A) Do循环执行的次数为1000次 B) 在For循环中产生的随机数小于或等于100 C) 当所产生的随机数为12时结束所有循环 D) 当所产生的随机数为65、68或92时窗体关闭、程序结束 (30)在窗体上画个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private sub Command1_Click() Dim a a=Array(1

13、,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是_。 A) 1234 B) 12 C) 34 D) 4321 (31)设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr= strL=Len(xStr) i=1 Do While i=strL/2 tStr=tStr & Mid(xStr, i, 1)& Mid(xStr,strL-i+

14、1,1) i=i+1 Loop Fun=tStr End Function 在窗体上画个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=abcdef Print UCase(Fun(S1) End sub 程序运行后，单击命令按钮，输出结果是_。 A) ABCDEF B) abcdef C) AFBECD D) DEFABC (32)某人为计算n!(0n=12)编写了下面的函数过程： Private Function fun(n As Integer)As Long Dim p As

15、Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是_。 A) 把p=1改为p=n B) 把For k=n-1 To 2 Step-1改为For k=1 To n-1 C) 把For k=n-1 To 2 Step-1改为For k=1 To n D) 把For k=n-1 To 2 Step-1改为For k=2 To n (33)假定有以下函数过程： Function Fun(S As String)As string

16、 Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S,i,1)+s1 Next i Fun=s1 End Function 在窗体上画个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String,Str2 As String Str1=InputBox(请输入个字符串) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为_。 A) ABCDEFG

17、B) abcdefg C) GFEDCBA D) gfedeba (34)为计算an的值，某人编写了函数power如下： Private Function power(a As Integer,n As Integer)As Long Dim p As Long p=a For k=1 Ton p=p*a Next k power=p End Function 在调试时发现是错误的，例如Print power(5,4)的输出应该是625，但实际输出是3125。程序需 要修改。下面的修改方案中有3个是正确的，错误的个是_。 A) 把For k=1 To n改为For k=2 To n B) 把p

18、=p*a改为p=pn C) 把For k=1 To n改为For k=1 To n-1 D) 把p=a改为p=1 (35)某人编写了下面的程序 Private Sub Command1_Click() Dim a As Integer,b As Integer a=InputBox(请输入整数) b=InputBox(请输入整数) pro a pro b Call pro(a+b) End Sub Private Sub pro(n As Integer) While(n0) Print n Mod 10; n=n10 Wend Print End Sub 此程序功能是：输入2个正整数，反序输

19、出这2个数的每位数字，再反序输出这2个数之和的每位数字。例如：若输入123和234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是_。 A) 把过程pro的形式参数n As Integer改为ByVal n As Integer B) 把Call pro(a+b)改为pro a+b C) 把n=n10改为n=n/lO D) 在pro b语句之后增加语句c%=a+b，再把Call pro(a+b)改为pro c 二、填空题 (6)在窗体上画个文本框、个标签和个命令按钮，其

20、名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Crick() S$=InputBox(请输入个字符串) Text1.Text=S$ End Sub Private Sub Text1_Change() Label1.Caption=UCase(Mid(Text1.Text,7) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 “VisualBasic”，则在标签中显示的内容是 【6】 。 (7)在窗体上画个命令按钮，其名称为Command1，然后编写如下事件过程： Priv

21、ate Sub Command1_Click() a$=National Computer Rank Examination n=Len(a$) s=0 For i=1 To n b$=Mid(a$,i,1) Ifb$=n Then s=s+1 End If Next i Print S End Sub 程序运行后，单击命令按钮，输出结果是 【7】 。 (8)为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为 【8】 。 (9)设有如下程序： Private Sub Form_Click() Cls a$=ABCDFG For i=1 To 6 Pr

22、int Tab(12-i); 【9】 Next i End Sub 程序运行后，单击窗体，结果如图所示，请填空。 (10)在窗体上画个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72) pos=0 neg=0 For k=1 To 10 If Art(k)0 Then 【10】 Else 【11】 End If Next k Print pos,neg End Sub 以上程序的功能是，计算并输出数组

23、Arr中10个数的正数之和pos与负数之和neg，请填空。 (11)在窗体上画个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer Sum=0 n=InputBox(Enter a number) n=Val(n) For i=1 To n Sum= 【12】 Next i Print Sum End Sub Function fun(t As Integer)As Long p=1 For i=1 To t p=p*i Next i 【13】 End Function 以上程序的功能是，计算1!+2!

24、+3!+.+n!，其中n从键盘输入，请填空。 (12)在窗体上画个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Opend:tempdat.txtFor Output As #1 Text1.Text= End Sub Private Sub Text1_KeyPress(Key Ascii As Integer) IfKeyAscii=13 Then If UCase(Text1.Text)= 【14】 Then Close #1 End Else Write #1, 【15】 Text1.Text= End If End If End Sub

25、 以上程序的功能是：在D盘temp文件夹下建立个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。2008年9月二级笔试试卷参考答案及评析 一、选择题 (11)A 知识点 编写简单的Visual Basic应用程序 评析 启动VB后，屏幕上分为若干部分，包括标题栏、菜单栏、工具栏、工具箱、窗体设计器窗口、工程资源管理器窗口、窗体布局窗口和属性窗口。其中双击窗体的任何地方将打开代码窗口，故选项A正确。选项B属性窗口，可以点击视图条形菜单中的属性窗口或者按F4键来显示

26、属性窗口。选项C工程资源管理器窗口可以点击视图条形菜单中的工程资源管理器窗口或者按CTRL+R显示工程资源管理器窗口。选项D工具箱窗口可以点击视图菜单中的工具箱菜单项显示工具箱窗口。因此选项A正确。 (12)D 知识点 常量和变量 评析 在Visual Basic中如果一个变量未被显式定义，末尾也没有类型说明符，则被隐含地说明为变体类型(Variant)变量。因此选项D正确。 (13)C 知识点 数据类型 评析 VB的数值型数据分为整型数和浮点数两类。其中整型数又分为整数(Integer)和长整数(Long)，浮点数分为单精度浮点数(Single)和双精度浮点数(Double)。(1)整型数：

27、整型数是不带小数点和指数符号的数，在机器内部以二进制补码形式表示。(2)浮点数：浮点数也称实型数或实数，是带有小数部分的数值。它由3部分组成：符号、指数及尾数。本题中3.14159是一个实数，必须定义为浮点数，即单精度浮点数(Single)或双精度浮点数(Double)，所以选项C正确。选项A定义为整型数、选项D定义为长整型，而3.14159是一个带有小数位的数，所以不能定义为整数，选项A、D错误。选项B“pi(7)”定义了一个名为pi的一维数组，所以选项B不正确。 (14)B 知识点 算术运算符的优先级 评析 算术运算符中的运算次序是：幂()取负(-)乘、浮点除(*、/)整除()取模(Mod

28、)加、减(+、-)连接(&)，当乘法和除法同时出现在表达式中时，将按照它们从左到右出现的顺序进行计算。 本题中首先计算32，结果为9，此时，表达式2*32+4*2/2+32=2*9+4*2/2+9，再计算2*9、4*2，结果依次为18、8，此时，表达式2*9+4*2/2+9=18+8/2+9，然后计算8/2，结果为4，此时，表达式18+8/2+9=18+4+9，最后计算18+4+9，结果为31。 (15)D 知识点 字符串函数 评析 Mid(字符串,p,n)：从第p个字符开始，向后截取n个字符。这里的字符串可以是字符串常量、字符串变量或字符串函数或字符串连接表达式，p和n都是算术表达式。Mid

29、函数的第三个自变量可以省略。在这种情况下，将从第二个自变量指定的位置向后截取到字符串的末尾。 Right(字符串n)：返回“字符串”的最后n个字符。字符串和n的含义同Mid函数中相同。 Left(字符串n)：返回“字符串”的前n个字符。字符串和n的含义同Mid函数中相同。 选项A中Mid(VBProgram,3,7)，对字符串VBProgram，从第3个字符开始，向后截取7个字符，输出为字符串Program。 选项B中Right(VBProgram,7)，返回字符串VBProgram中最后的7个字符，输出为字符串Program。 选项C中Mid(VBProgram,3)，对字符串VBProgram，从第3个字符开始，向后截取到字符串的末尾，输出字符串Program。 选项D中Left(VBProgram,7)，返回字符串VBProgram中前7个字符，输出为字符串VBProgr。 (16)B 知识点 框架 评析 框架Ftame的属性包括Enable、FontBold、FontName、FontUnderLine、Heighht、Left、Top、Visible、Width。此外，Name属性用于在程序代码中标识一个框架，而Caption属