高级语言程序设计（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) "AB"<"abc" B) "ABC" = UCase("abc")C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3)5．函数InStr("ABCDEF", "CD")的值是【5】。

A) 2 B) 3 C) True D) CDEF6．下列程序运行后，单击窗体，输出结果是【6】。

Private Sub Form_Click()Dim a As Integer, b As Integera = 3b = 5Print a + b; a & bEnd SubA) 8 8 B) 35 35 C) 8 35 D) 35 87．下列程序运行后，单击窗体，输出结果是【7】。

Private Sub Form_Click()Print a; b End Sub A) 4 3B) 7 3C) 3 7D) 10 78．下面程序段所表示的数学关系式是 【8】 。

If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ⎩⎨⎧≠≥=<=)(2)c (1d c b a d b a x 且且B) ⎩⎨⎧≠<=<=)(2)c (1d c b a d b a x 且且C) ⎩⎨⎧≥=<=)(2)c (1b ad b a x 且D) ⎩⎨⎧≠=<=)(2)c (1d c d b a x 且9．下列程序运行后，单击窗体，输出结果是 【9】 。

Private Sub Form_Click()s = 0: k = 1 Dos = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 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 011．用下面的语句定义数组，则数组中的元素个数是 【11】 个。

Option Base 1Dim A(-1 To 2，5) As IntegerA) 5B) 10C) 15D) 2012．下面程序段的输出结果是 【12】 。

Dim a(4) As Integer, s As Integer For k = 1 To 4 a(k) = 2 * k Next kFor k = 1 To 4 Step 2 s = s + a(k)A) 8 B) 20 C) 2 8 D) 2 6 12 20 13．设有如下的用户自定义类型Private Type Stuname As String * 10age As IntegerEnd Type则以下正确引用该类型成员的代码是【13】。

A) ="zhang" B) Dim s As Stu = "zhang"C) Dim s As Type Stu = "zhang" D) Dim s As Type = "zhang"14．用“【14】”关键字声明的变量称为全局变量。

A) Private B) Public C) Dim D) Static15．在窗体上放置一个文本框，程序运行后，在文本框中输入abc，但显示的却是***，可能的原因是该文本框的【15】属性值已经被设置为"*"。

A) Font B) Text C) Name D) PasswordChar16．在VB 6.0中，Print是对象的【16】。

A) 属性B) 方法C) 事件D) 名称17．在VB 6.0中，要判断复选框是否为选中状态，使用的属性是【17】。

A) Caption B) Checked C) Selected D) Value18．设列表框List1中共有3个列表项，如右图所示。

则下列语句中，能够删除最后一个列表项的是【18】。

A) List1.RemoveItem 2B) List1.RemoveItem "项目C"C) List1.RemoveItem List1. ListcountD) List1.RemoveItem List1. ListIndex19．组合框分为下拉式组合框、简单组合框和下拉式列表框，在“属性”窗口中这三种类型是由【19】属性设置的。

A) Style B) FillStyle C) BackStyle D) BorderStyle20．用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增加或减少的值，是由【20】属性决定的。

A) Min B) Max C) SmallChange D) LargeChange21．将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是【21】。

A) Me.Picture=b.jpg B) Me.Picture= LoadPicture(b.jpg)C) Me.Picture="b.jpg" D) Me.Picture= LoadPicture("b.jpg")22．要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是【22】。

A) 先放置一个框架，然后在框架中放置两个单选按钮B) 先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上C) 先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内D) 以上三种方法都正确23．计时器控件能够响应的事件是【23】。

A) Load B) Click C) Change D) Timer24．要使命令按钮处于无效状态，可以设置按钮的【24】属性值为False。

A) Caption B) Enabled C) Style D) Visible25．如果在一个工程中有多个窗体和模块，则VB默认的启动对象是【25】。

A) 第一个标准模块B) 最后一个被添加的窗体C) 设计时的第一个窗体D) 最后一个被添加的标准模块26．在窗体上放置一个图像框，名称为Image1。

程序运行时，要保持图像框大小不变，使框中的图片能够自动适应图像框的大小，可以执行语句【26】。

A) Image1.AutoSize=True B) Image1.Stretch=TrueC) Image1.AutoSize=False D) Image1.Stretch=False27．使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号是【27】。

A) 减号- B) 下划线_ C) & D) #28．要将窗体Form1从内存中卸载，正确的语句是【28】。

A) Form1.Show B) Load Form1C) Form1.Hide D) UnLoad Form129．在窗体上单击时，会触发鼠标事件MouseDown，其事件过程的一般格式如下：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)……End Sub此时，如果单击的是鼠标右键，则Button参数的值是【29】。

A) 1 B) 2 C) 3 D) 430．获取文件的长度（字节数），可以使用的函数是【30】。

A) LEN( ) B) LOF( ) C) EOF( ) D) LOG( )1．数学表达式yx y3改写为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 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】 。

答案：True6．在窗体上放置一个标签，名称为Label1，使用语句 【6】 可以把标签的前景色设置为蓝色。

Label1.ForeColor = vbBlue 或 RGB(0,0,255) 或QBColor(9) 7．在窗体上放置一个图像框，名称为Image1，要使该图像框向下移动10个默认单位（twip ），正确的语句是Image1.Top = 【7】 答案：Image1.Top + 10 8．使用“菜单编辑器”建立了一个主菜单，名称为menu1。

要把它作为窗体Form1的快捷菜单（也称为弹出式菜单）弹出，使用的语句是： 答案：Popupmenu Form1. 【8】 menu19．在窗体上放置一个通用对话框控件，名称为CommonDialog1。

使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt ”的文件)，则正确的设置语句是CommonDialog1. 【9】 ="文本文件(*.txt)|*.txt"。