《二级 Visual Basic 笔试试题册》A卷.doc

全国高等学校（重庆考区）非计算机专业计算机等级考试二级Visual Basic笔试试题册（A卷） 考试时间：2010年11月13日 上午：9:0011:00考生必读：1 考生严格遵守考场规则。考生拿到试卷后应首先将自己的所在学校名称、考场地点、姓名、准考证号填涂在答题卡和答题纸规定的位置上。2 考生得到监考人员指令后方可作答。3 考生在答题前务必认真阅读题目要求，按要求作答。客观题的答案（选择题和判断题）必须用2B铅笔填涂在答题卡的响应位置上，且必须注明考生卷类别（A卷或B卷）。否则答案无效。4 注意字迹清楚，保持卷面整洁。5 考生时间为120分钟。考生结束时，把试题册，答题卡，答题纸放在桌上，不得带走。监考人员收齐点清后，考生才可离开考场。.u 本试卷版权所有，任何单位或个人不得复制、出版和存留，违者必究重庆市教育委员会2010年11月二级Visual Basic笔试试题册（A卷）（100分）注意事项：1. 请将一、二、三题的答案涂在答题卡上 2.请将四、五、六题的答案做在答题纸上一、 单项选择题（每小题1分，共25分）1. 在VB中，以下变量类型表示数值范围最大的是（ A ）。(A) 长整型Long (B) 整形Integer(C) 单精度Single (D)字节型 Byte2. 表达式24 mode 3432的运算结果为（ D ）。(A) 4 (B) 3 (C) 2 (D)13. 下面数组声明语句中，正确的是（ B ）。(A) Dim a3,4As Integer (B) Dim a(3,4)As Integer(C) Dim a(n,n)As Integer (D) Dim a(3 4)As Integer4. 用于设置粗体字的属性是（ B ）。(A) Fontltalic (B) FontName (C) FontBold (D)FontSize5. 下列函数表达式中，返回值为数值类型的是（ B ）。(A) Char(49) (B) Left(“visual”,3)(C) String(3, “basic”) (D) Len(Text1.text)6. 语句Me.Print “ggg”; Spc(2) “ttt”的执行结果是在窗体上输出（ D ）(A) ggg ttt (B) gggttt (C) “ggg”;”ttt” (D)ggg Spc(2)ttt7. 设有说明句：option base 1:Dim arr(-3 to 3,10)则数组的arr中元素个数为（ A ）(A) 60 (B) 70 (C) 80 (D)908. 函数表达式Val(“”)的返回值为（ A ）。(A) 98abs100 (B) 98 (C) 100 (D)09. 以下属性和方法中，（ B ）可以重新定义窗体的坐标系。(A) DrawStyle (B) DrawWidth (C) DrawMode (D)Scale10. 增加列表框中数据项，应该使用的方法是（ D ）。(A) Clear (B) Addltem (C) Remove (D)ReFresh11. 计时器Timer支持的唯一事件是（ C ）。(A) Change (B) Timer (C) Load (D) Scroll12. 在MouseDown事件过程中，参数Button的值为1,表示按下的鼠标按键是（ A ）。(A) 鼠标左键 (B) 鼠标右键 (C) 同时按下鼠标左右键 (D)未按鼠标按键13. 在按下Shift键的同时，在一个空间上按下鼠标左键不放，并拖动鼠标，在事件过程MouseMove(Button, Shift, X, Y)中有效的语句是（ B ）。(A) If Button = 0 And Shift = 0 Then(B) If Button = 0 And Shift = 1 Then(C) If Button = 1 And Shift = 0 Then(D) If Button = 1 And Shift = 1 Then14.在窗体代码窗口中的通用（General）段用Dim语句定义一个变量 ( C )（A）该变量只在本窗体的通用（General）段中有效（B）该变量在本窗体中的所有函数或过程中都有效（C）该变量在本窗体和其他模块中的所有函数或过程中有效（D）该变量在本工程中的所有函数或过程中都有效15.消息框MsgBox函数有五个参数，其中必不可少的参数有（ B ）（A）设置标题栏上的提示信息Title（B）设置对话框中显示的命令按钮数目和形式Button（C）设置提示信息Prompt（D）设置帮助文件HelpFile16.一元二次方程ax2+bx+c=0有实根的条件是：a0且b2-4ac0，在VB程序中表示该条件的逻辑表达式是（ C ）（A）a0 And b*b-4*a*c0（B）a0 Or b*b-4*a*c0（C）a0 And b*b-4*a*c=0（D）a0 Or b*b-4*a*c=017.单选按钮（OptionButton）被选中时，其Value属性的值是（ B ）(A)Ture （B）False (C)0 （D）118.当运行VB程序时，系统在窗体加载时将自动执行窗体的（ A ）事件过程（A）Load （B）Click （C）Unload (D)GoFocus19.VisualBasic 是一种面向对象的可视化程序设计语言，采取了（ A ）的编程机制（A）事件驱动 （B）按过程顺序执行（C）从主程序开始执行 （D）按模块顺序执行20.下面程序段中，能找出两个数（x和y）中较大的数并保存在变量Max中，其中不正确的是（ A ）（A）Max=IIf(xy,x,y)（B）If xy Then Max=x Else Max=y（C）Max=x : If y=x Then Max=y（D）If y=x Then y=Max21.在循环体中退出循环的语句是（ D ）（A）Exit If （B）Exit For （C）Exit Sub （D）Exit Function22.有字符串A=” VisualBasic”，能得到” Basic”子字符串在A中位置的函数表达式是（ B ）(A)Len（A） (B)Right（A，6）(C)Instr（A，Basic） (D)Mid（A，8,5）23在文本框中输入的数据，其默认的数据类型（ B ）（A）Integer （B）Single （C）String （D）Double24.在过程调用中，可以选用的参数传递方式是（ D ）(A)ByName (B)ByVal (C)ByLength (D)BySize25.以顺序输入模式打开文件“Text.Dat”的语句是（ B ）（A）Open” Text.Dat”For OutPut As#1（B）Open” Text.Dat”For InPut As#2（C）Open” Text.Dat”For Binary As#3（D）Open” Text.Dat”For Random As#4 Len=16二.多项选择题（每小题1分，共5分）（下面各小题有2个或2个以上正确答案，请选出全部正确答案，错选或漏选均不得分）1.在文本框Text1中输入字符，将输入的字符转化成大写显示在标签（Lable1）中，下列语句正确的有( )(A) Lable1=UCase(Text1) (B) Text1=UCase(Lable1) (C) s=Text1.Text (D) Text1.Text=s Label1.Caption= UCase(s) Label1.Caption= UCase(s)(E) Label1.Caption= UCase(s)s=Text1.Text2.下列表达式中，返回值玩味2的有（ ）（A）5 Mod 3 （B）5.2/3.7 （C）52（D）Sqr(4) （E）Val(Mid(“2010 上海世博会“，1,1)3.使用滚动条时，若规定取值范围为10100，必须要设置的属性值是（ ACDE ）(A)Largehang (B)SmallChang (C)Value(D)Max (E)”上海世博会”4.在VB程序中，下列属于合法常量的有（ BCDE ）(A)#10/21/2010# (B)MouseDown (C)3.14159(D)False (E)”上海世博会”5. VB提供的ActiveX控件公用对话框CommonDialog 可用于创建的标准界面对话框有（ AB CE）（A）实现打开文件的操作（B）实现保存文件的操作（C）实现打印操作（D）选择系统颜色（E）选择字符的字体、字形和字号三、判断分析题（正确的选择，错误的选择，每小题1分，共10分）1.在程序中未加声明而引用的变量，其默认的数据类型为Lnteger.。( )2.窗体的Resize事件在程序启动运行过程中可以自动发生。 （ ）3.VB语言中的数组分为变量数组和控件数组数组两类。（ ）4.VB程序中只能使用工具箱中提供的控件对象。 （ ）5.标签控件Labe中显示的内容在运行时可以通过键盘直接修改。 （）6.在程序运行期间，将Index属性设置为0，可以将定时器（Timer）暂时关闭。 （ ）7.窗体的Caption属性在应用出现运行期间不可更改。 （ ）8.当MultiLine属性为False时，文本框（TextBox）在任何情况下都不会出现滚动条。 （ ）9.窗体Form、控件PictureBox和Frame具有容器功能，可将其他民控件放置在其中。（）10.语句Const X2.55将变量X的值定义为2.55。（ ）四、程序填空题（每空2分，共20分）1.在文本框Text1中输入一个数值，在文本框Text2中输入另一个数值，按“交换”命令按钮Command1则交换显示在文本框Text1和Text中的这两个数值。Private Sub Command1_Click()Dim A,B,CA=Val (Text1.Text)B=Val (Text2.Text)_ A then Max_A=B_B Else Max_Text1.Text = Str(A)Text2.Text = Str(B)End SubX0X=0X0 Theny=1_Max_ x = 0 Theny=0Elsey= -1End IfMsgBox _ReFresh_End Sub3.程序功能是：计算从0开始的n个自然数之和，找出满足总和s10000的最大的自然数个数n,并在窗体上输出n和s。Private Sub Form_Clickn = 0:s =0Do n = n +1 s = s +nLoop_then If_ s a(i -1) And _ Then n = n +1End IfNext iPrint “数组中包含峰值的个数为：”；nEnd Sub五、阅读分析程序，并选择答案（每小题分，共20分）1.程序运行时，单击窗体，则输出结果是（D）。Private Sub Form_Click() Dim a As String , b As Stringa = “123”: b =”456”C= Val(a) +Val(b)Print C 100End Sub(A) 123 (B) 5 (C) 3 (D) 5792、程序运行后，单击窗体，在窗体上输出的结果是（A）Private Sub From_Click()a=Array(20,30,45,76,88)For i=0 To 4Print a(i)Next iEnd Sub3、程序运行后，在文本框Text1中输入一个非0的正整数N，按命令按钮Command1，显示在标签Lable1中的内容是（C）Private Sub Command1_Click()N=Val(Text1.Text)W=0:V=1Fork=1 To NV=V*kW=W+VNext kLable1.Caption=WEnd Sub （A） （B）（C）（D）(A)N的阶乘： W=N!(B)从1到整数N的和： W=1+2+3+N(C)从1到整数类加和之乘积： W=1*(1+2)*(1+2+3)*(1+2+3+N)(D)从1到整数N的阶乘之和： W=1!+2!+3!+N!4、程序运行是，单击窗体，在窗体上输出的结果是（C）Private Sub From_Click()x=6For k=1 To 0x=x+kNext kPrint k,xEnd Sub(A)-1 6 (B)-1 16 (C)1 6 (D)11 315、程序运行时，单击窗体，在输入对话框中输入-8，则输出结果为（C）Private Sub From_Click()Dim n As Integer,y As Integern=Val(InputBox(“”)Select Case nCase is=10y=n2Case 1 To 4y=-nEnd SelectMe.Print yEnd Sub(A)64 (B)-8 (C)0 (D)8六程序设计题（每小题10分，共20分）1、在文本框Text1中输入一个任意长度的字符串，单击“统计”命令按钮Command1，将统计