2007年安徽VB省二级笔试试题及答案.doc

2007年全国高等学校（安徽考区）计 算 机 水 平 考 试 试 卷（二级 Visual Basic语言）一、 单项选择题（每题1分，共40分）1. 计算机系统是由 构成的。A） 控制器、运算器和储存器 B）系统软件与应用软件C）硬件系统和软件系统 D）CPU、存储器、输入/输出设备 2. 在微型计算机系统中，下列访问速度最快的存储器是 。 A）硬盘 B）U盘 C）光盘 D）内存3. 与十进制数41等值的二进制数是 。 A）00100100 B）00110011 C）00101001 D）001010104下列关于Windows操作系统通配符的说法中，正确的是 。 A）*代表多个字母 B）？代表任意多个字符C）*代表任意多个字符 D）*代表任意一个字符5. 下列 是目前Internet上常用的Web浏览器之一。 A）Internet Explorer B）Outlook ExperssC）Yahoo D）Frontpage6. 下列选项中， 是正确的电子邮件地址。 A） B）C） D）ahabc7. 下列属于视频文件的是 。 A）ABC.MP4 B）ABC.MP3 C）ABC.DOC D）ABC.BMP8. 下列软件中，不属于杀毒软件的是 。 A）瑞星 B）迅雷 C）江民KV2007 D）金山毒霸9. 下列关于计算机病毒的说法中，正确的是 。A）计算机病毒是一种具有破坏性的生物病毒B）计算机病毒是一种人为编制的具有破坏性的特殊程序C）计算机病毒感染一台电脑后就会失效，不具有传染性D）计算机病毒可感染操作电脑的人10.下列描述中正确的是 。A）软件就是用高级语言编写的程序B）软件开发不受计算机系统的限制C）软件就是能在计算机上运行的程序D）软件是程序、数据与相关文档的集合11.下列各项不是VB的基本数据类型的是 。A）Single B)Integer C)Basic D)Double12.下列不是VB常量的是 。 A）3.14 B）Name C)#10/18/2007# D)True13.下列符号中，可以用作VB变量名的是 。 A）Int B)4xy C)x,y D)sum_214.表达式Len(VB程序设计)的值是 。A）4 B）6 C）8 D）1115.下列4个字符串进行比较，最小的是 。 A)”2007” B)”About” C)”Basic” D)”DATA”16.已知A=“12345678”，则表达式Val(Left(A,3)+Mid(A,5,2)的值是 。 A）12356 B）179 C）12345 D）4517.表达式15/3-23*4/8 Mod52的值为 。 A）3 B）4 C）5 D）618.下面的语句 可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。A)Print ”A”; Tab(9);”b” B) Print ”A”; Space(9); ”b”C) Print ”A”; Space(10); ”b” D) Print ”A”; Tab(10); ”b”19.若Dim b(3) As Integer ,则Ucase(Chr(97) & UBound(b)的结果是 。 A）A3 B）A2 C）A1 D）A020.数字表达式1X10表示成正确的VB表达式为 。 A）1X10 B）X=1 And X10 C) X=1 Orx10 D) X=1 And 1021.下面正确的赋值语句是 。 A）y=3x B)3*x=y C)y=3*x D)x+y=1022.语句Dim A(-2 To2,1 TO4) As Single定义的数组元素个数是 。A）16 B）20 C）24 D）30 23.对于窗体Forml,若将其名称属性设置为Disp,Caption属性设置为OK，则下列正确的语句是 。 A）Forml.Left=1000 B)OK.Left=1000 C) Disp.Left=1000 D)以上语句都不对24.若要使标签框的大小自动与所显示的文件相适应，则可通过设置 属性的值为True来实现。 A）AutoSize B) BorderStyle C)BackStyle D)BackColor25.创建一个MDI子窗体，只需把一个普通窗体的 属性设为True即可。 A）MaxButton B)MinButton C)MDIChild D)Moveable26.可通过修改命令按钮的 属性值为True将其设置为默认按钮。 A）Value B)Default C)Cancel D)Enabled27.复选框或单选按钮的当前状态可通过 属性来设置或访问。 A）Caption B)Value C)Checked D)Selected28.下列控件中，没有Caption属性的是 。A）框架 B）复选框 C）标签 D）组合框29.将数据项“北京奥运会”添加到列表框Listl中成为第2项，应使用 语句。A）Listl.AddItem”北京奥运会”，2 B）Listl.AddItem2，”北京奥运会”C）Listl.AddItem”北京奥运会”，1 D）Listl.AddItem1，”北京奥运会”30.表示滚动条控件取值范围最大值的属性是 。A）Max B)LargeChange C)Value D)Min31.如果每0.5秒产生一个计时器事件，那么时钟控件的Interval属性值应设为 。 A）5 B）50 C）500 D）500032.窗体中有图片框Picturel和图象框Imagel两个对象，下面关于Print方法的使用中，错误的是 。A）Picturel.Print100 B) Print100C) Printer.Print100 D)Imagel.Print10033.关于MsgBox()函数显示的对话框，以下叙述正确的是 。A）该对话框有一个“确定”按钮B）该对话框有“是”、“否”两个按钮C）该对话框有“是”、“否”、“取消”3个按钮D）该对话框通过选择参数可以得到以上不同的按钮组合34.执行下列语句：A=InputBox(“请输入第一个数”)B= InputBox(“请输入第二个数”)PrintA+B当输入为111和222时，输出结果为 。A）111222 B）111 C）222 D）33335.下列程序段的输出结果是 。Dim s As IntegerFor i=10 To 1 Step -2S=s+iNext iPrint iA)0 B)-1 C)1 D)-236.以下程序段运行后，输出结果是 。 For i=1 To 3For j=1 To iIf j Mod 2=0 ThenPrint”;ElsePrint”；End IfNext jPrintNext iA) B) C) D) 37.菜单控件只有一个 事件。 A）KeyPress B)Click C)DblClick D)MouseDown38.下面 不是VB的文件类控件。A）DriveListBox 控件 B)DirListBox控件C）FileListBox控件 D)CommonDialog控件 39.执行语句Open “Test.dat” For Output As #1,对文件Test.dat中的数据能够执行的操作是 。A） 只能读，不能写 B）既可以读，也可以写C）只能写，不能读 D）不能读，不能写 40.Data控件的 属性用来设置访问的数据库类型。A）DatabaseName B) ConnectC）RecordSource D)RecordsetType二、 填空题（每空2分，共20分）1. VB有3种工作模式，即设计模式、 和中断模式。2. VB工程文件的扩展名为.vbp，窗体文件的扩展名为 。3. 若要将窗体Forml隐藏起来，调用语句为 。4. 数学表达式 的VB表达式是 。5. VB的三种基本流程控制结构是指：顺序结构、 与循环结构。6. 若要求输入密码时文本框中显示“*”号，则应当在文本框的属性窗口中修改 属性值为“*”。7. 在VB中有 、随机型和二进制型三种数据文件访问类型。8. 若要显示一个弹出式菜单，可使用 方法。9. 下面程序的功能是找出100到999之间所有的“水仙花数”，请用正确的内容填空。所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如153=13+53+33，故153是“水仙花数”。Private Sub Form Click( )Dim p As IntegerFor n =100 To 999a= b=Int(n-a*100)/10)c=n Mod10p=a3+b3+c3If ThenPrint n; 是“水仙花数”End IfNext nEnd Sub三、 阅读理解题（每小题4分，共20分）1.执行下面的程序后，若输入4，则输出的结果是 。Private Sub Form Click( )Dim p X As Integer,y As IntegerX=InputBox(“请输入一个整数”)Select Case xCase Is=5Y=x*5Case Is=4Y=x*4Case Is=3Y=x*3Case ElseY=x*2End SelectPrint x; yEnd Sub2.下面程序运行后，输出的结果是 。Private Sub Form Click( )Dim a(10) As IntegerFor i =1 To 10a(i)=11-iNext iPrint a (2 + a(6)End Sub3. 下面程序运行后，输出的结果是 。Option Base1Private Sub Command1 Click( )d=0c=10x=Array(10,12,21,32,24)For i=1 To 5If x(i)c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNext iPrint”d=”;dEnd Sub4.在窗体上添加一个命令按钮Command1,然后编写如下代码：Private Sub Command1 Click( ) Function f (m As Integer)As IntegerDim a As Integer b=1a=2 Static c As IntegerSum=0 b=b+1For i=1 To 3 c=c+1Sum= Sum+f(a) f=m*b*cNext I End FunctionPrint Sum End Sub程序运行后，单击命令按钮，输出的结果是 。5.在窗体上添加一个命令按钮Command1,然后编写如下代码：Dim x As Integer, y As Integer Sub s1(a As Integer,b As Integer)Private Sub Command1 Click( ) a=2*ax =4 b=b+2y =4 End SubCall sl (x, y) Sub s2(a As Integer, By Val b As Integer)Print x + y; a=2*aCall s2(x, y) b=b+2Print x + y End SubEnd程序运行后，单击命令按钮，输出的结果是 。四、 编程题（共20分）1、 编写一个自定义函数fun，其功能是计算n的阶乘。（6分）2、 利用随机函数模拟产生10名学生的VB课程期末考试成绩（0100），然后将成绩按从大到小的次序排序输出。（7分）3、 某城市出租车的收费标准起步价6元2.5公里，超过2.5公里每公里收费1.2元。如果行驶里程超过10公里，加收空驶费10元（实际收费按四舍五入计算到整元）。试编写下图中“计算”按钮Command1的Click事件代码。（7分）参考答案：一、 选择题：15：CDCCA ; 610：BABBD; 1115：CBDBA ; 1620：ACBBB;2125：CBCAC; 2630：BBDCA; 3135：CDDAA; 3640：DBDBB二、 填空题：1 运行模式2 *.frm3 Form1.Hide4 (x+y)/(x*y)5 选择结构6 PasswordChar7 顺序8 PopupMenu9 Int(n/100)；p=n三、阅读理解题：1 4 162 43 d234 245 14 22四、编程题1Private Function fun(n As Integer) Dim i As Integer fun = 1 For i = 1 To n fun = fun * i Next iEnd Function或者：Private Function fun(n As Integer) Dim i As Integer If n = 1 Then fun = 1 Else fun = n * fun(n - 1) End IfEnd Function2Private Sub Command1_Click()Dim a(10) As SingleFor i = 1 To 10 a(i) = Round(Rnd * 100, 2)Next iFor i = 1 To 9 For J = i + 1 To 10 If a(i) a(J) Then T = a(i): a(i) = a(J): a(J) = T End