VB期末试卷A卷带答案

1、 高级语言程序设计（VB） 试卷（A卷）注意事项：1、本试卷共 页，满分为 100 分，考试时间为 110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔，不得使用红颜色墨水笔。题 目一二三四五总 分分数核对得 分阅卷人读卡一、单项选择题（每空1分，共 30分）（请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分）1在VB 6.0中，扩展名为.vbp的文件称为 【1】 。A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件2在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是 【2】 。A) 代码窗口B) 窗体设计

2、窗口C) 属性窗口D) 工程资源管理器窗口3设有变量定义语句Dim a%，则变量a的数据类型是 【3】 。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4下列表达式中，值为False的是 【4】 。A) "AB"<"abc"B) "ABC" = UCase("abc")C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3)5函数InStr("ABCDEF&qu

3、ot;, "CD")的值是 【5】 。A) 2B) 3C) True D) CDEF 6下列程序运行后，单击窗体，输出结果是 【6】 。Private Sub Form_Click()Dim a As Integer, b As Integera = 3b = 5Print a + b; a & bEnd SubA) 8 8B) 35 35C) 8 35D) 35 87下列程序运行后，单击窗体，输出结果是 【7】 。Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a b : a = a - b Print

4、a; bEnd SubA) 4 3B) 7 3C) 3 7D) 10 7 8下面程序段所表示的数学关系式是 【8】 。If (a < b) Then If d = c Then x = 1 Else x = 2 End IfA) B) C) D) 9下列程序运行后，单击窗体，输出结果是 【9】 。Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print sEnd SubA) 15B) 10C) 1D) 010下列程序段的输出结果是 【10】 。For k = 4 To

5、2 Step -2 m = k Next k Print m; k;A) 2 2B) 2 0C) 2 1D) 0 0 11用下面的语句定义数组，则数组中的元素个数是 【11】 个。Option Base 1 Dim A(-1 To 2，5) As IntegerA) 5B) 10C) 15D) 2012下面程序段的输出结果是 【12】 。Dim a(4) As Integer, s As IntegerFor k = 1 To 4 a(k) = 2 * kNext k For k = 1 To 4 Step 2 s = s + a(k) Print s; Next kA) 8B) 20C) 2

6、 8D) 2 6 12 2013设有如下的用户自定义类型Private Type Stu name As String * 10 age As IntegerEnd Type则以下正确引用该类型成员的代码是 【13】 。A) S="zhang"B) Dim s As Stu = "zhang"C) Dim s As Type Stu = "zhang"D) Dim s As Type = "zhang"14用“ 【14】 ”关键字声明的变量称为全局变量。A)

7、PrivateB) PublicC) DimD) Static15在窗体上放置一个文本框，程序运行后，在文本框中输入abc，但显示的却是*，可能的原因是该文本框的 【15】 属性值已经被设置为"*"。A) FontB) TextC) NameD) PasswordChar16在VB 6.0中，Print是对象的 【16】 。A) 属性B) 方法C) 事件D) 名称17在VB 6.0中，要判断复选框是否为选中状态，使用的属性是 【17】 。 A) CaptionB) CheckedC) SelectedD) Value18设列表框List1中共有3个列表项，如右图所示。则下列

8、语句中，能够删除最后一个列表项的是 【18】 。A) List1.RemoveItem 2B) List1.RemoveItem "项目C"C) List1.RemoveItem List1. ListcountD) List1.RemoveItem List1. ListIndex19组合框分为下拉式组合框、简单组合框和下拉式列表框，在“属性”窗口中这三种类型是由 【19】 属性设置的。A) StyleB) FillStyleC) BackStyleD) BorderStyle20用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增加或减少的值，是

9、由 【20】 属性决定的。A) MinB) MaxC) SmallChangeD) LargeChange21将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是 【21】 。A) Me.Picture=b.jpgB) Me.Picture= LoadPicture(b.jpg)C) Me.Picture="b.jpg"D) Me.Picture= LoadPicture("b.jpg")22要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是 【22】 。A) 先放置一个框架，然后在框架中放置两个单选按钮B) 先放置两个单选按钮

10、，再放置一个框架，放置框架时覆盖在单选按钮上C) 先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内D) 以上三种方法都正确23计时器控件能够响应的事件是 【23】 。A) LoadB) ClickC) ChangeD) Timer24要使命令按钮处于无效状态，可以设置按钮的 【24】 属性值为False。A) CaptionB) Enabled C) Style D) Visible25如果在一个工程中有多个窗体和模块，则VB默认的启动对象是 【25】 。A) 第一个标准模块B) 最后一个被添加的窗体C) 设计时的第一个窗体D) 最后一个被添加的标准模块26在窗体上放置一个图

11、像框，名称为Image1。程序运行时，要保持图像框大小不变，使框中的图片能够自动适应图像框的大小，可以执行语句 【26】 。A) Image1.AutoSize=TrueB) Image1.Stretch=TrueC) Image1.AutoSize=FalseD) Image1.Stretch=False27使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号是 【27】 。A) 减号-B) 下划线_C) &D) #28要将窗体Form1从内存中卸载，正确的语句是 【28】 。A) Form1.ShowB) Load Form1C) Form1.HideD) U

12、nLoad Form129在窗体上单击时，会触发鼠标事件MouseDown，其事件过程的一般格式如下：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub此时，如果单击的是鼠标右键，则Button参数的值是 【29】 。A) 1B) 2C) 3D) 4 30获取文件的长度（字节数），可以使用的函数是 【30】 。A) LEN( )B) LOF( )C) EOF( )D) LOG( )二、填空题（每空 2分，共 20分）（请将答案按照题干上【】内的序号填写

13、在下表中，否则不得分）分数【1】【2】【3】【4】【5】【6】【7】【8】【9】【10】1数学表达式改写为VB表达式，形式是 【1】 。答案 sqr(3*y) /(x+y)2在VB 6.0中，InputBox函数返回值的数据类型是 【2】 。答案：字符串类型或String3语句 Print Tab(5);"ABC" 的功能是 【3】 。答案：从第5列开始输出字符串“ABC”4下面程序段的功能是：在文本框Text1中输入一个数值x，如果满足5<x<10，那么输出“Yes”，否则输出“No”。请填空。x =Val(Text1.Text)答案5 < x And

14、x <10 If 【4】 Then Print "Yes" Else Print "No"5设a=1,b=2,c=3，语句 Print a < b Or b < c And c < a的输出结果是 【5】 。答案：True 6在窗体上放置一个标签，名称为Label1，使用语句 【6】 可以把标签的前景色设置为蓝色。 Label1.ForeColor = vbBlue 或 RGB(0,0,255) 或QBColor(9)7在窗体上放置一个图像框，名称为Image1，要使该图像框向下移动10个默认单位（twip），正确的语句是Imag

15、e1.Top = 【7】 答案：Image1.Top + 108使用“菜单编辑器”建立了一个主菜单，名称为menu1。要把它作为窗体Form1的快捷菜单（也称为弹出式菜单）弹出，使用的语句是： 答案：PopupmenuForm1. 【8】 menu19在窗体上放置一个通用对话框控件，名称为CommonDialog1。使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语句是CommonDialog1. 【9】 ="文本文件(*.txt)|*.txt"。答案：Filter10设磁盘上已存在顺序文件“a.txt”，为了从文件中顺

16、序读取数据而打开该文件，正确的语句是 Open "a.txt" For 【10】 As #1。 答案：Input三、读程序写结果（每空3分，共 24 分）（请将答案按照题干上【】内的序号填写在下表中，否则不得分）分数【1】【2】【3】【4】【5】【6】【7】【8】1下列面程序运行后，单击窗体，输出结果是 【1】 。答案：1 3 9Private Sub Form_Click() s = 0 For n=1 To 3 p = 1 For k = 1 To n p = p * k Next k s = s + pPrint s; Next nEnd Sub2下列程序运行后，单击

17、窗体，输出结果是 【2】 。答案：7Private Sub Form_Click() m = 0 For k = 1 To 4 Select Case k Case 1, 2 m = m + 1 Case Is > 3 m = m + 2 Case 1 To 4 m = m + 3 End Select Next k Print mEnd Sub3 在窗体上放置一个文本框，名称为Text1。下列程序运行后，单击窗体，Text1中显示的内容是 【3】 。 答案：ade Private Sub Form_Click() Text1.Text = "" s = &

18、quot;aBd12Re" For k = 1 To Len(s) ch = Mid(s, k, 1) If ch >= "a" And ch <= "z" Then Text1.Text = Text1.Text + ch End If Next kEnd Sub4 下列程序运行后，单击窗体，输出结果是 【4】 。 答案：11 24 Option Base 1Private Sub Form_Click() x = Array(3, 5, 4, 8, 2, 6, 11, 9, 7, 4) p = x(1): s=0 Fo

19、r k = 2 To UBound(x) If x(k) > p Then p = x(k) s = s + p End If Next k Print p; sEnd Sub5 下列程序运行后，单击窗体，输出结果是 【5】 。 答案：1 5 1 Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 1 To 3 For k = 1 To 3 If k = 1 Or i = k Then a(i, k) = 1 Else a(i, k) = i + k End If Next k Next i Print a(1, 1);

20、 a(2, 3); a(3, 3)End Sub6在窗体上放置一个命令按钮，名称为Command2，并编写如下代码。Private Sub Command2_Click() Dim m As Integer, n As Integer, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g) Print m; n; gEnd SubPublic Sub sub1(ByVal a As Integer, ByVal b As Integer, c As Integer) If a < b Then t = a: a = b: b = t

21、Do While b <> 0 r = a Mod b a = b b = r Loop c = aEnd Sub程序运行后，单击命令按钮，则输出结果是 【6】 。答案：18 12 67在窗体上放置一个命令按钮，名称为Command3，并编写如下代码。Private Sub Command3_Click() Dim k As Integer k = 1 Print fun1(k); Print fun1(k); Print fun1(k);End SubFunction fun1(a As Integer) As Integer Static c As Integer Dim b

22、As Integer a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + cEnd Function程序运行后，单击命令按钮，则输出结果是 【7】 。答案：7 11 158在窗体上放置一个文本框，其名称为Text1，并编写如下代码。Dim s As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s;End Sub程序运行后，在文本框中输入abc，则窗体上输出的内容是 【8】 。答案：aababc四、改错题（每题3分，共 6 分）（请将答

23、案按照题号填写在下表中，否则不得分）分数第1题第2题1在窗体上放置一个计时器和一个标签，计时器名称为Timer1，标签名称为Label1。下列程序的功能是：（1）在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；（2）每触发一次Timer事件能够将标签上的字号加大2，当字号超过当前窗体的宽度时，将字号恢复为8。程序中有一处错误，请更正。说明错误时可以使用每条语句前的编号。(1)Private Sub Form_Load()(2) Timer1.Interval = 5 答案：200(3)Timer1.Enabled = True(4)End Sub(5)Private Sub Tim

24、er1_Timer()(6) Label1.FontSize = Label1.FontSize + 2(7) If Label1.FontSize > Me.Width Then(8) Label1.FontSize = 8(9) End If(10)End Sub2下列程序的功能是计算1+3+5+99的和s。程序中有一处错误。请更正。说明错误时可以使用每条语句前的编号。(1)s = 0(2)k = 1(3)Do While k <= 99(4) k = k + 2 答案：将（4）、（5）调换顺序(5) s = s + k(6)Loop(7)Print s五、程序填空题（每空2分

25、，共 20 分）（请将答案按照题干上【】内的序号填写在下表中，否则不得分）分数第1题【1】【2】【3】【4】第2题【5】【6】第3题【7】【8】第4题【9】【10】1在窗体上放置一个列表框，名称为List1；放置一个文本框，名称为Text1；放置一个命令按钮，名称为Command1，Caption属性值为“统计3的倍数”。如右图所示。下列程序的功能是：（1） 在窗体的Load事件中，产生10个2030（含20和30）之间的随机整数，并作为列表项逐个添加到列表框List1中。（2） 单击命令按钮Command1时，能够统计列表框中是3的倍数的列表项的个数，并将统计结果显示在文本框Text1中。请

26、填空完善程序。Private Sub Form_ Load( ) Dim x As Integere Randomize For k = 1 To 10答案：Int(Rnd * 11 + 20) 或 Rnd*10+20 x = 【1】 '产生一个20,30之间的随机整数 【2】 '将x作为列表项添加到List1中 Next k 答案：List1.AddItem x 或 List1.AddItem str(x)End SubPrivate Sub Command1_Click() Dim n As Integer ' n:存放是3的倍数的列表项的个数 For k = 【3】 答案：0 To List1.ListCount 1 或 0 To 9 If Val(List1.List(k) 【4】 = 0 Then答案： Mod 3 n = n + 1 End If Next k Text1.Text = nEnd Sub2下列程序的功能是用近似公式 求自然对数的底 e 的值，直到最后一项小于10-4时停止计算。请填空完善程序。Private Sub Form_Click()Dim e As Single, n As Integer, p As Single'e: 累加和 p: 参加求和的当前项e = 1: n = 1: