2012年重庆计算机二级vb试题.doc

二级Visual Basic笔试模拟试题（共100分）注意事项：1. 请将一、二、三题的答案填涂在答题卡上2. 请将四、五、六题的答案做在答题纸上一、单项选择题（每小题1分，共25分）1用于设置粗体字的属性是（ d ）。（A）FontItalic （B）FontName （C）FontBold （D）FontSize2语句Me.Print the; Spc(2); sun执行后在窗体上输出的结果是（ a ）。（A）the sun （B）thesun （C）the; sun （D）the Spc(2) sun3设有说明语句：Option Base 1: Dim arr(-3 to 3,10)，则数组arr中元素个数为（b ）。（A）60 （B）70 （C）80 （D）904以下属性与方法中，（ c ）可以重新定义窗体的坐标系。（A）DrawStyle （B）DrawWidth （C）DrawMode（D） Scale5当运行VB程序时，系统在窗体加载时将自动执行窗体的（ a ）事件过程。（A）Load （B）Click （C）UnLoad（D）GotFocus6Visual Basic 是一种面向对象的可视化程序设计语言，采取了（ a）的编程机制。（A）事件驱动 （B）按过程顺序执行（C）从主程序开始执行 （D）按模块顺序执行7下列程序段中，不能把x和y中的较大者赋予变量Max的是（ d ）。（A）Max = IIf(x y, x, y) （B）If x y Then Max = x Else Max = y（C）If x = y Then Max = x Else Max = y（D）If x = y Then Max = y Else Max = x8在文本框中输入的数据，其默认的数据类型是（ b）。（A） Integer （B）Single （C）String （D）Double9下列程序执行后，窗体上输出的计算结果是（ c ）。Private Sub Command1_Click() Dim a As String, b As Integer a = 21： b = 35： c = a + b Print cEnd Sub（A）21 （B）35 （C）56 （D）213510要求每0.5秒触发一次Timer事件，定时器Timer1的Interval属性应被设置为（ a ）。（A） 0.5 （B）5 （C）50 （D）50011VB程序调试期间，若程序陷入死循环，可以中断循环，终止程序运行的按键是（ c ）。（A）Esc （B）Pause （C） Ctrl + End（D）Ctrl + Break12下列关于数组定义的语句中，概念正确的语句是（ b ）。（A）一维数组的下标只能从0或1开始。（B）使用语句Dim a(-10, 10) As Double ，可以定义一个拥有21个元素的数组。（C）使用语句Dim a(n) As Integer，可以定义一个拥有n个元素的数组。（D）使用语句Option Base 0: Dim b(4,6) As Single定义的数组b拥有24个元素。13下列函数表达式中，返回值最大的是（ a ）。（A）Len(d:background.jpg)（B）Val(d:background.jpg)（C）Month(now)（D）WeekDay(now)14将焦点移到某个名为Object的控件，所使用的方法是（ d ）。（A）Object.SetFocus（B）Object.Visible（C）Object.Refresh（D）Object.GetFocus15与VB符号常量vbCrLf等价的表达式是（ c ）。（A）Chr (13) （B）Chr(10) （C）Chr(13)+Chr(10) （D）Chr(10)+Chr(13)16单选按钮OptionButton的Value属性的数据类型是（ a ）。（A）布尔型(Boolean) （B）单精度型(Single)（C）整型(Integer) （D）字符串型(String)17下列程序运行后，单击命令按钮Command1，则在窗体上显示的内容是（ b ）。Option Base 0Private Sub Command1_Click()Dim week As Variantweek = Array(星期一, 星期二, 星期三, 星期四, 星期五, 星期六, 星期日)Print week(3)End Sub（A）星期二（B）星期三（C）星期四（D）星期五18在VB程序设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ c ）。（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口19下述程序段的功能是（ c ）。Private Sub Form_KeyPress(KeyAscii As Integer) c = KeyAscii If c = 97 And c 0) 中的数值精确到小数点后面2位数的函数表达式有（ abd ）。（A）Round(x,2)（B）Int(100 * x + 0.5)/100（C）Fix(100 * x + 0.5)/100（D）Int(x + 0.5)（E）Fix(x + 0.5)三、判断分析题（每小题1分，共10分）1Exit For语句可以退出所有类型的循环结构。2程序中语句 position = InStr(str1, and) 执行过后，若字符串变量str1中不包含子串and，则position的值为0。3在程序运行期间，如果将定时器(Timer)的Index属性设置为0，可以使定时器停止暂时关闭。4语句 x = Rnd Rnd 执行之后，变量x的值必定为0。5如果变量 n 为大于 1 的整数，下列语句执行结束之后，变量 i 的值为 n。For i = 1 To n Print iNext i6Visual Basic程序源代码允许在一行上书写多个语句，只要用冒号(“:”)将这些语句分隔开来即可。7如果设置标签控件(Label1)的属性 Label1.AutoSize = True，则程序运行期间Label1的宽度会随着Label1.Caption属性赋予的字符数目而自动改变。8程序设计时在同一框架(Frame)中画出的多个单选按钮控件(OptionButton)，程序运行期间最多只允许其中之一被选中。9在程序设计阶段设置了窗体的Font属性之后，添加到窗体上的任何控件都将自动继承窗体的Font属性。10在Visual Basic算术表达式中，“”运算符与”*”、”/”运算符具有相同的优先级。四、程序填空题（每空2分，共20分）1下面程序的功能是：计算x的符号值 Private Sub Form_Click() x = Val(InputBox(请输入 x 的值：) If x 0 Then y = 1 x = 0 Then y = 0 y = -1 End IfPrint x & 的符号值 = & yEnd Sub2程序希望实现的功能是：产生20个取值范围在500，800之间，并且能被5整除的随机整数，每10个数排成一行，在窗体上显示输出。Private Sub Form_Click() n = 0 Do While n = j, * , ); Next j Picture1. Next iEnd Sub4下列程序拟用于统计指定的字符串在文本框Text2内输入短文中出现的次数，并将统计结果显示在窗体右上角的标签控件Label1中。Private Sub Command1_Click() s1 = Text2.Text 输入短文 s2 = Text1.Text 输入指定的查找字符串 start = 1 Count1 = 0 For i = 1 To x = InStr(start, s1, s2) If x 0 Then Count1 = Count1 + 1 start = x + Else Exit For End If Next i Label1.Caption = Count1End Sub5单击图片框Picture1中的任何位置，便以该位置为圆心，画出一个半径为300并填充蓝色的圆；单击窗体时，则清除Picture1中绘画的所有内容。Private Sub Form_Click() Picture1. End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.FillStyle = 0 Picture1. = vbBlue Picture1.Circle (X, Y), 300End Sub五、阅读分析程序，并选择答案（每小题4分，共20分）1运行下述程序，单击窗体之后，窗体上显示的结果为（ ）。Private Sub Form_Click() Dim a As Variant a = Array(37, 49, 82, 66, 71, 23, 18, 40) For i = 1 To UBound(a) Step 2 s = s + a(i) Next Print sEnd Sub （A）178（B）208（C）349（D）386 2下面的程序运行后，单击窗体，窗体上输出的结果是（ ）。Private Sub Form_Click() i = 1 s = 1 Do While s 30 s = s * i i = i + 1 Loop Print sEnd Sub（A）24（B）30（C）60（D）1203运行下列程序，单击窗体，在窗口上显示的结果为（ ）。Private Sub Form_Click() Dim X, Y X = 7 Y = 9Print Y = X + 2 End Sub（A）4（B）5（C）True（D）False4下述程序启动行行之后，图片框Picture1中显示的内容是（ ）。Dim i As LongPrivate Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 20 Picture1.FillColor = vbRed Picture1.ForeColor = vbRed Picture1.FillStyle = 0End SubPrivate Sub Timer1_Timer() Picture1.Cls x = Picture1.ScaleWidth 2 y = Picture1.ScaleHeight - i + 500 If y 0 Then Timer1.Enabled = False Picture1.Print 游戏结束 End If Picture1.Circle (x, y), 500 i = i + 10End Sub（A）一个圆形从Picture1的右边出现，逐渐右移到Picture1的左边。（B）一个圆形从 Picture1的顶边出现，逐渐下移到Picture1的底部边缘。（C）一个圆形从Picture1的左边出现，逐渐右移到Picture1的右边。（D）一个圆形从Picture1的底边出现，逐渐上移到Picture1的顶部边缘。5启动运行下述程序，单击窗体，在窗体上输出的结果是（ ）：Private Sub Form_Click() a = 0 For k = 1 To 15 If k = 20 Then a = 2 * k + 100 If k = 30 Then a = k + 10 Next k Print k; aEnd Sub（A）15 25（B）15 230（C）16 25（D）16 230六、程序设计题（每小题10分，共20分）1在同学会上，班长提议每人与其他同学只碰杯一次，已知碰杯声为903次，编写程序计算出席同学会的人数。2学生各门课程考试成绩如下表所示，所有成绩数据保存在文件“e:score.txt”中。编写程序，使之能打开成绩数据文件，并查找最好的成绩出现在哪门课程，由哪位学生获得，然后将查找结果显示在窗体上。下面已经给出了部分代码，请考生自行编写省略号位置缺失的代码（答题纸上不要抄写已给出的代码）。计算机高数物理外语苏玉娟78888775何大伟67809869郑晓明92609591陈宝山85538482杜振伟90897792刘志刚69798391Private Sub Form_Click() student = Array(苏玉娟, 何大伟, 郑晓明, 陈宝山, 杜振