2005秋二级VB复习资料.doc

2005年秋计算机等级考试试卷（二级Visual BASIC）2005年秋浙江省高等学校计算机等级考试试卷（二级Visual BASIC）说明:（1）考生应将试题一至试题三的答案涂写在答题卡上，将试题四、试题五的答案填写在答卷上，否则作无效处理；（2）请将你的准考证号的后四位填写在答卷右下角的指定位置内；（3）考试时间为120分钟。试题一、判断题（每小题1分，共10分）说明：在以下提供的若干陈述中，逐一判断其正确与否，选A表示正确，选B表示错误。(1)若x是Double类型变量，函数Len(x)的返回值为16。(2)所有事件过程都只能由鼠标或按键事件触发。(3)函数MsgBox也可以提供在程序运行时的人机交互功能。(4)文本框控件的MultiLine属性是只读属性，在运行时不可改变。(5)若文本框控件的MaxLength属性赋值0，则该文本框内不可输入任何字符。(6)在自定义Sub过程中，过程名必须被赋值。(7)若复选框控件的Value属性值为True则框内显示“”，若Value属性值为False则显示空白。(8)VB的RGB函数可以返回的不同颜色值有256256256种。(9)f11_Click是名称为f11的菜单项所能编制的唯一的事件过程。(10)用WRITE#语句向文本文件输出时，VB自动为同一行上的不同数据间加逗号作间隔符。试题二、单选题（每小题2分，共20分）(11)表达式75 7 Mod 2*3的值为 (11) 。A 5B 4C 3D 0(12)判断变量x、y中有且只有一个为0的下列各表达式中，正确的是 (12) 。A x=0 Or y=0 and x*y0B x+y=0 and x*y0C x+y0 and x*y=0D x=0 and y0(13)数学式 (x+5)1/3写成VB表达式是 (13) 。A (x+5)1/3B (x+5)(13)C (x+5)13D (x+5)(1/3)(14)函数 Val(“H100”)的返回值为 (14) 。A 256B 0C 100D 64(15)以下使用方法的VB程序代码中，正确的是 (15) 。ALabel1.SetFocusB Form1.ClearC Text1.SetFocusD Combo1.Cls(16)用Scale方法改变了窗体坐标后，被改变了属性值的窗体属性名是 (16) 。A ScaleWidthB WidthC HeightD DrawMode(17)使用Circle方法不可以绘制的图形是 (17) 。A 圆角矩形 B 椭圆C 圆饼图D 扇形(18)BorderStyle是用来表示线条的 (18) 。A 长度 B 宽度C 线形D 颜色(19)通用对话框控件所不具有的属性为 (19) 。A BackColorB FileNameC FlagsD Filter(20)可以用来获取已打开文件长度的函数是 (20) 。ALen B LOFC LOED FileLen试题三、程序填空题（每空2分，共20分，）说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。程序1【程序说明】用近似公式求自然对数的底数e的值，要求计算结果的误差小于10-9。e【程序】Private Sub Command1_Click() Dim s As Double, (21) Dim i As Integer i = 2 (22) t = 1Do While (23) (24) t = t / i i = i + 1 Loop Print sEnd Sub(21)A t As SingleB t As ByteC t As IntegerD t As Double(22)A s = 2B s = 1C s = 0D s = i + 1(23) A t = 1d-9C t = 1e-9D t 0.000000001(24)A s = s + tB s = s + i C s = t / i D s = s + t / i 程序2【程序说明】下列过程的功能是为与形参a所对应的n个元素的实参数组送数：第1个元素赋值n，其他元素为2位随机整数，要求这n个数各不相同。【程序】Private Sub create(a() As Byte, n As Byte) Dim i As Byte, j As Byte, x As Byte a(1) = n i = 1 Do While i iB j = iC x a (i)D j i程序3【程序说明】下列过程在装入窗体时，清空列表框控件List1中所有表项，并顺序、逐行读入文件e:aaa.txt中的数据，显示在此List1中。【程序】Private Sub Form_Load() Dim s As String Open e:aaa.txt For Input As #1 (29) Do While Not EOF(1) (30) List1.AddItem s Loop Close #1End Sub【选项】(29)A List1.List = B List1 = C List1.ClsD List1.Clear(30)A Line Input #1, sB Input Line #1, sC Input #1, sD LineInput s试题四、程序阅读题（每空2分，共20分，）说明：阅读下列程序并根据各题的要求，在各程序后的若干组选项中选出一组，写在答卷纸的相应题号下。程序1、设Text1.Text 为 “abcdef”， 运行时连续单击3次控件Hscroll1右侧箭头后，组合框控件中的第1项为 (31) 、第2项为 (32) 、第3项为 (33) 。Private Sub Form_Load() HScroll1.SmallChange = 1: HScroll1.Max = 5 HScroll1.Min = 1: HScroll1.Value = 1 Combo1.ClearEnd Sub Private Sub Hscroll1_Change() Combo1.AddItem Left(Text1.text, Hscroll1.Value), 0 End Sub(31)A abcB abcdC abD abcde(32)A aB abcdeC abcD abcd(33)A abcdeB abcdC abcD ab程序2、执行下列事件过程时，窗体上的显示结果依次为2、 (34) 、(35) 、(36) 。Private Sub Command1_Click() Dim x As Long, i As Integer x = 60i = 2 Do While x1 If x Mod i =0 Then Print i ; : x = x i Else i = i +1 LoopEnd Sub(34)A 2B 3C 5D 1(35)A 2B 5C 3D 1(36)A 2B 5C 1D 3程序3、下列过程f的功能是 (37) ；运行时单击命令按钮控件 Command1 后窗体上的显示结果是 (38) ；如果将其中的语句 “t=a(k):a(k)=a(i):a(i)=t”修改为“a(k)=a(i):a(i)=a(k)”，则显示结果是 (39) 。Private Sub f(a() As Single, n As Integer) Dim i As Integer, j As Integer, k As Integer, t As Single For i = 1 To n-1 k=i For j=i +1 To n If abs(a(j) abs(a(k) Then k = j Next j t=a(k) : a(k)=a(i) : a(i)=t Next iEnd SubPrivate Sub Command1_Click() Dim x(5) As Single x(1) = 5: x(2) = -7: x(3) = 5: x(4) = 12: x(5) = -3: Call f(x, 5) Print x(1); x(2); x(3); x(4); x(5)End Sub(37)A对相应实参数组按值从小到大排序B对相应实参数组按绝对值从小到大排序 C对相应实参数组按值从大到小排序D对相应实参数组按绝对值从大到小排序(38)A 3 5 7 12B 12 -7 5 5 -3C 3 5 5 -7 12D 12 -7 5 -3(39)A 5 -7 5 5 -3B 12 12 12 12 -3C 3 5 -7 12D 7 5 5 5 -3程序4、执行下列过程时图片框控件Pic1上图案的形状是 (40) 。Private Sub Command1_Click() Pic1. Width = Pic1. Height Pic1.Scale (-8, 8)-(8, -8) Pic1.FillStyle=1 Pic1.Circle (0, 0), 3 Pic1.FillStyle = 0 Pic1.Circle (0, 0), 6End Sub(40)AB CD 试题五、程序设计题（每小题各10分，共30分）1 编制事件过程Command1_Click， 计算一元二次方程 ax2+bx+c=0的根；l 系数a、b、c已分别在Text1(0)、Text1(1)、Text1(2)中输入；l 若方程有实根则分别通过标签控件Label