2009年春季计算机等级考试Visual_Basic语言笔试试题A卷.doc

二级Visual Basic 语言笔试试题A卷一、单项选择题 （每题 1 分，共20分） 1语句 X = Rnd * 1000 执行之后，变量X可能的取值范围是（ ）（A）0X1（B）0X1（C）0X1000（D）0X10002VB中表示回车换行的符号常量是（ ）（A）VBRed（B）vbCrLf（C）VBrgb（D）VBcolor3VB表达式64 4 * 2 Mod 5的值是（ ）（A）1（B）2（C）3（D）44函数String(3，Student)的返回值是（ ）（A）SSS（B）Stu（C）StuStuStu（D）StudentStudentStudent5若使标签控件Label1能自动改变自身大小，以保证文字在其中能够完整显示，应设置属性（ ）（A）Label1.Caption = ”（B）Label1.BorderStyle = 0 (None)（C）Label1.AutoSize = True（D）Label1.Width = Max6下列关于数组定义的语句中，概念正确的语句是（ ）（A）一维数组的下标只能从0或1开始（B）使用语句Dim a(-10, 10) As Double ，可以定义一个拥有21个元素的数组（C）使用语句Dim a(n) As Integer，可以定义一个拥有n个元素的数组（D）使用语句Option Base 0: Dim b(3,5) As Single定义的数组b拥有24个元素7函数表达式Val(最大值256)的返回值为（ ）（A）0（B）256（C）65536（D）类型不匹配8在Visual Basic程序运行期间始终不可见的控件是( )（A）Label（B）Frame（C）Timer（D）ListBox9能在程序运行期间将图片文件“d:background.jpg”设置为窗体背景的语句是（ ）（A）Me.Picture = d:background.jpg（B）Me.Picture = LoadPicture(d:background.jpg)（C）Me.BackColor = d:background.jpg（D）Me.FillColor = LoadPicture(d:background.jpg)10下列窗体事件过程最先被执行的是（ ）（A）Load()（B）Click()（C）MouseDown() （D）Unload()11下列程序运行后，单击命令按钮Command1，则在窗体上显示的内容是（ ）Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Array(北京, 上海, 天津, 重庆)Print city(1)End Sub（A）空白（B）错误提示（C）北京（D）上海12下面程序段的执行结果是（ ） a = 75 If a = 90 Then score = 优秀 If a = 80 Then score = 良好 If a = 70 Then score = 中等 If a = 60 Then score = 及格 If a =175 And 75 = Weight =175 And Weight =75 And Weight =175 Or Weight =75 And Weight =175 And (Weight =75 And Weight =175 Or Weight =75 Or Weight =858、执行语句 Dim today As Date之后，能向变量today正确地赋以日期值的语句有（ ）（A）today = ”2009年4月25日”（B）today = #2009-4-25#（C）today = #2009/4/25#（D）today = ”2009.4.25 ”（E）today = 2009-4-259在以下表达式中，返回结果不可能为0的表达式有( )。（A）Int(Rnd * 9999)（B）Int(Rnd * 9999 + 9999)（C）Int(Rnd * 1 + 1)（D）Int(Rnd * 1 1)（E）Int(Rnd * 1) 110下列Visual Basic程序已完成代码编写，要结束程序的运行，可以采取的操作方法有( )。（A）鼠标单击“结束”按钮（B）按下组合键“Alt + X”（C）按下组合键“Ctrl + X”（D）按下组合键“Shift + X”（E）多次按下Tab键，使“结束”按钮获得焦点（按钮表面四周出现虚线框），然后按回车键三. 判断分析 (每题1分, 共10分)1在Visual Basic提供的日期函数中，Year(Now)的返回值是数值类型。2Visual Basic应用程序可以包含多个窗体，但在程序运行期间，任何时候总是只有一个窗体为可见的。3当窗体上有多个控件时，多次按下CapsLock键，就可以使焦点在这些控件之间转移。4若一控件的Visible属性值为False，则该控件不可见。5标签控件（Label）在任何情况下都只能显示单行文字。6函数表达式Trim(string1)可以删除字符串变量string1中包含的所有空格。7使用语句Dim a(10) As Integer定义数组之后，可以使用ReDim a(20) As Long将其重新定义。8程序中的所有变量都必须用Dim声明，否则将出现错误。9放置在同一框架（Frame）中的多个单选按钮（OptionButton），程序运行期间最多只能有一个被选中。10. 仅当设置文本框(TextBox)的MultiLine属性为True，文本框内才能显示多行字符。四、程序填空题(每空2分, 共20分)1程序运行后，单击窗体，在窗体上显示由星号组成的完整的2个周期正弦曲线（各星号之间的相位角为5）。Private Sub Form_Click()pi = 3.14159 / 180 y0 = Me.ScaleHeight / 2 For i = 0 To （1） Step 5 CurrentX = i * 10 CurrentY = y0 - 1000 * Sin(i * (2) ) Print * NextEnd Sub2程序功能是计算以下分段函数的值，请填空完成该程序。Private Sub Form_Click()Dim x As Single, y As Singlex = Val(InputBox(请输入x的值：)Select Case x Case (3) y = 2 * x Case (4) y = 3 * x + 2 Case Else y = 0End SelectPrint x=; x, y=; yEnd Sub3. 下面程序的功能是计算s=1+2+4+6+998。Private Sub Command1_Click()s = （5） n = 2 Do While n （6） s = s + n n = n + 2LoopPrint s=; sEnd Sub4. 下面程序的功能是：寻找能同时被5和9整除的5个最小正整数。Private Sub Command1_Click() Dim n As Integer, m As Integer n = 0: m = 4 Do m = m + 1 If （7） Then Print m n = n + 1 End If Loop While （8） End Sub5下面程序功能是计算1! + 3! + 5! + 7! + 9! 的值。Private Sub Form_Click() Sum = 0 For i = 1 To 9 (9) Sum = Sum + (10) Next i Print SumEnd SubPrivate Function dg(x) As Single If x = 1 Then dg = 1 Else dg = x * dg(x - 1)End Function五、分析程序(每小题4分, 共20分)1下面的程序运行后，单击窗体，窗体上输出的结果是（ ）Private Sub Form_Click() k = 15If k = 10 Then a = 2 * k + 100If k = 20 Then a = 2 * k + 200If k = 30 Then a = k + 10Print k; aEnd Sub（A）15 130（B）15 230（C）15 25（D）25 152下列程序运行后，单击窗体，输出结果为（ D ）Private Sub Form_Click() Dim s As Integer, i As Integer Do While i = 100 s = s + i Loop Print sEnd Sub（A）100（B）5050（C）5500（D）溢出错误3运行下列程序，单击窗体，在窗口上显示的结果为（ ）Private Sub Form_Click() Dim a As Integer a = 4 Print a = 3 + 2End Sub（A）4（B）5（C）True（D）False 4下面程序运行后在窗体上显示的结果是 （ ）Private Sub Form_Click ( ) For k = 1 To 7 For j = 1 To 7 If k 204、=105、16、1000(999也可)7、m mod 5=0 and m mod 9=08、n= A And s1 = A And s2 = Z Then word = word + 1 Next i Label1.Caption = 文本框内的单词总数为： & wordEnd Sub由于时间关系，再加上没有调试环境，学生不可能考虑得非常仔细，只要做到如下程度就可以给满分：Private Sub Command1_Click() Dim a a = Split(Text1, ) word = 0 For i = LBound(a) To UBound(a) If Val(a(i) = 0 Then word = word + 1 Next i Label1.Caption = 文本框内的单词总数为： & wordEnd Sub能做到如下程度可以给6分Private Sub Command1_Click() Dim a a = Split(Text1, ) Label1.Caption = 文本框内的单词总数为： & UBound(a) - LBound(a) + 1