VB期末试卷(A卷带答案).doc

高级语言程序设计（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) 窗体设计窗口C) 属性窗口D) 工程资源管理器窗口3设有变量定义语句Dim a%，则变量a的数据类型是 【3】 。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4下列表达式中，值为False的是 【4】 。A) ABabcB) ABC = UCase(abc)C) ABCDabcD) Mid(ABCD,3,1)=Left(ABCD,3)5函数InStr(ABCDEF, 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 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 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 8D) 2 6 12 2013设有如下的用户自定义类型Private Type Stu name As String * 10 age As IntegerEnd Type则以下正确引用该类型成员的代码是 【13】 。A) Stu.name=zhangB) Dim s As Stu s.name = zhangC) Dim s As Type Stu s.name = zhangD) Dim s As Type s.name = zhang14用“ 【14】 ”关键字声明的变量称为全局变量。A) 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个列表项，如右图所示。则下列语句中，能够删除最后一个列表项的是 【18】 。A) List1.RemoveItem 2B) List1.RemoveItem 项目CC) List1.RemoveItem List1. ListcountD) List1.RemoveItem List1. ListIndex19组合框分为下拉式组合框、简单组合框和下拉式列表框，在“属性”窗口中这三种类型是由 【19】 属性设置的。A) StyleB) FillStyleC) BackStyleD) BorderStyle20用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增加或减少的值，是由 【20】 属性决定的。A) MinB) MaxC) SmallChangeD) LargeChange21将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是 【21】 。A) Me.Picture=b.jpgB) Me.Picture= LoadPicture(b.jpg)C) Me.Picture=b.jpgD) Me.Picture= LoadPicture(b.jpg)22要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是 【22】 。A) 先放置一个框架，然后在框架中放置两个单选按钮B) 先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上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在窗体上放置一个图像框，名称为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) UnLoad 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分）（请将答案按照题干上【】内的序号填写在下表中，否则不得分）分数【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，如果满足5x10，那么输出“Yes”，否则输出“No”。请填空。x =Val(Text1.Text)答案5 x And x 10 If 【4】 Then Print Yes Else Print No5设a=1,b=2,c=3，语句 Print a b Or b c And c 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 = aBd12Re For k = 1 To Len(s) ch = Mid(s, k, 1) If ch = a And ch 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); 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 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 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 分）（请将答案按照题号填写在下表中，否则不得分）分数第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 Timer1_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 = 1e-4 e = e + p n = n + 1 p = 【6】 答案：p / nLoop Print e的近似值=; eEnd Sub3在下图所示的窗体上放置的主要控件及其主要的属性设置如下：控件类型控件名称属性属性值标签Label1Caption示例文字命令按钮Command1Caption设置单选按钮Option1Caption宋体Option2Caption隶书下列程序的功能是单击命令按钮后，根据单选按钮的选中状态，将标签中的“示例文字”设置为相应的字体。请填空完善程序。Private Sub Command1_Click() Dim fn As String fn:存放选中的字体 If 【7】 Then 答案：Option1.Value = True fn = 宋体 Else fn = 隶书 End If 【8】 = fn答案：Label1.FontNameEnd Sub4下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值，并返回。单击窗体时，能够输入数组a的10个元素，并调用函数ave，求数组a中所有元素的平均值，并显示输出。请填空完善程序。Option Base 1Private Sub Form_Click() Dim a(10) As Single For i = 1 To 10 a(i) = Val(InputBox(输入一个数值) Next i Print 平均值=; 【9】 调用函数ave 答案：ave(a)End SubPublic Function ave(b() As Single) As Single Dim s As Single Dim n As Integer n = UBound(b) For k = 1 To n s = s + b(k) Next k 【10】 答案：ave = s / nEnd Function