1、1河 北 农 业 大 学 试 题 纸专业年级_姓名_学号_卷别 清考科目 高级语言程序设计（VB） 第一页（共六页）一、单项选择题（每题 1 分，共 40 分）1.Visual Basic 有三个版本， （ ）包括另外两个版本的全部功能。A学习版 B. 企业版 C. 专业版 D.以上全错2.Visual Basic 有三种工作模式， （ ）是错误的。A设计模式 B. 停止模式 C.中断模式 D. 运行模式3. VB 开发环境在（ ）中编写事件处理过程。A、代码窗口 B、工程资源管理器窗口 C、属性窗口 D、窗体布局窗口4. 修改 Label 标签控件的名称，则需要修改标签的（ ）属性。A、Na
2、me B、Caption C、Test D、Enabled5.VB 可根据工程开发需要，把对象添加到应用程序中，在设计阶段可通过（ ）设置对象属性。A. 对象浏览器 B. 属性窗口 C. 视图窗口 D.调试窗口6.表示检查框被选中的属性是( )。A. Alignment B. Visable C. Value D. Name7.用 Single 声明的变量类型是（ ） 。A单精度型 B整型 C字符串型 D日期型8.以下叙述中错误的是（ ）A双击鼠标可以引发 DblClick 事件 B窗体或控件的事件的名称可以由编程人员确定C移动鼠标时会引发 MouseMove 事件 D控件的名称可以由编程人员
3、设定9. Len(“124”)的输出结果是（ ） 。A0 B 9 C 3 D1010.任何控件都有（ ）属性。AName B.Caption C. BackColor D.BorderStyle11.用情况选择语句 Select Case X，选择 X 5 情况的语句为 Case（ ） 。A. Not (-5 To 5) B. 5 To -5 C. Is 5 D. ABS(X) 512.若 X =1，执行 If X Then X = 0 Else X = 1 的结果为（ ） 。A. 实时错误 B. 编译错误 C. X = 1 D. X = 013.窗体是应用程序的界面，如果想在窗体的标题栏中显
4、示应用程序的名字，可通过( )实现。A. 修改窗体的 Caption 属性 B. 修改窗体的 Name 属性 C. 修改应用程序中窗体文件的名字 D. 修改工程文件的名字14. 退出 For 循环可使用的语句为（ ）、Exit For 、Exit Do 、End For 、End Do15. 图像框或图片框中显示的图形文件，由它们的（ ）属性值决定。、Font 、Picture 、Name 、Caption16.定义数组 Dim B（3，4） As String 后，B 有( )个元素A11 B20 C60 D12017.续行符的正确书写格式是（ ） 。A. 一个下划线“_” B. 一个空格加
5、一个下划线“ _”C. 一个连字符“-” D. 一个空格加一个连字符“ -”18. 控件的（ ）属性用于控制该控件是否可见，为 True 时，可见；否则，不可见。A、Enabled B、Visible C、Name D、BorderStyle19.程序运行时如果改变了滚动条的滚动块，则（ ）属性随之改变。A.Max B. Min C. Value D. Largechange20. 控件的（ ）属性用于控制该控件是否有效，为 True 时，有效；否则，可见但是无效无法操作。2A、Enabled B、Visible C、Name D、BorderStyle21.程序运行后，在窗体上单击鼠标，此时
6、窗体不会接收到的事件是( )。AMouseDown BMouseUp CLoad DClick22.设 a = 10，b = 5，执行语句 Print ab 后，窗体上显示的是（ ） 。ATrue BFalse C1 D出错信息23. 设置窗体的背景色，应该设置窗体的（ ）属性。A、Font B、BackColor C、ForeColor D、FontSize24.以下能判断是否能达到文件尾的函数是（ ） 。ABOF BLOC CLOF D EOF25.设有以下循环结构Do循环体Loop While 则以下叙述中错误的是（ ） 。A若“条件”是 False，则一次也不执行循环体B “条件 ”可
7、以是关系表达式、逻辑表达式或常数C循环体中可以使用 Exit Do 语句D如果“条件”总是为 True，则不停地执行循环体26.下列不是图形控件的是( )。APicture BText CLine DShape27.关于文件,下列说法不正确的是( )。A操作系统以文件为单位对数据进行管理 B文件是数据的集合C文件只能按顺序读取 D文件能保存在外部介质中28.在通用对话框中（ ）属性决定实际的对话框类型。AName B Action CCaption DIndex29.说明全局级过程，应在过程名前加上（ ） 。A Public B Private C Static D ByVal30. 修改 T
8、ext 文本框控件中显示的文本，则需要修改文本框的（ ）属性。A、Name B、Caption C、Text D、Enabled31.时钟控件只响应一个( )事件。AInterval BTimer CClick DEnable32.使窗体全屏显示的属性是( )。AName BWidowstate CCaption DBorderstyle33. 修改 Label 标签控件的显示文本，则需要修改标签的（ ）属性。A、Name B、Caption C、Test D、Enabled 34.Mid(C,10,5)的含义是（ ） 。A在字符串 C 中自第 10 个字符开始向右取出 5 个字符。B在字符串
9、 C 中自第 5 个字符开始向右取出 10 个字符。C在字符串 C 中自第 10 个字符开始向左取出 5 个字符。D上述都错。35.对于循环的嵌套，下面叙述错误的是（ ）A内外循环变量最好不同名。 B程序可内、外循可以交错。C外循环必须包含内循环。 DFOR 循环和 DO 循环都可以嵌套。36.将文本框的（ ）属性设置为 True 时，文本框允许输入多行文本。A. Font B. Name C. Text D. MultiLine37.要使标签中的文本居中显示，应设置标签框的（ ）属性。ACaption B. Name C. Alignment D. Font38.以下各项，可作为 VB 变量
10、名的是（ ） 。A23.456 B. 21_luck C. gluck D. go-luck39.Visual Basic 中，可以在（ ）中检测函数或表达式的值。A对象窗口 B. 属性窗口 C. 立即窗口 D. 工程资源管理器窗口40.在窗体上画一个名为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim n as Integern=6If n 5 Then n =n+33Print nEnd Sub程序运行后,如果单击命令按钮,则窗体上显示的内容是( )。A错误 B9 C6 D1二、填空题（每空 2 分，共 20 分）1.下面
11、代数式的 Visual Basic 表达式是_(1)_。cab2.执行下列循环语句，退出循环后的 i 值为_(2)_，n 的值为_(3)_ _。n=0For i = 0 To 6 Step 3n=n+1Next i3.如果要在菜单中添加一个分隔线，则应将其菜单项的 (4) 属性设置为 (5) 。4.欲使计时器控件每隔 1 秒触发一次 Timer 事件，需将其 Interval 属性值设定为 (6) 。5.设有程序：Option Base 1Private Sub Command1_Click()Dim arr, Max As Integerarr = Array(12, 435, 76, 24
12、)(7) = arr(1)For i = 2 To 4If Max _(8)_ arr(i) Then(9) End IfNext iPrint “最大值是：“, _(10)_End Sub以上程序功能是用 Array 函数建立一个含有个 4 个元素的数组，然后查找并输出该数组中元素的最大值。三、程序阅读题（每题 5 分，共 20 分）1.在窗体是画一个名称为 Command1 的命令按钮，然后编写如下事件过程，写出程序运行结果。Private Sub Command1_Click()Dim num As Integer num = 3Do While num 5num = num + 2Lo
13、opPrint numEnd Sub2.写出执行下面的代码后的运行结果。Dim X ，YX = ”123” ：Y =123 X =X XPrint “Y=”;Y3. 写出执行下面的代码后的运行结果。dim X,J,KX=0for J=1 to 44X=X+1for K=1 to 3X=X+1next Knext Jprint “K=”;K;print “J=”;J4.写出单击 Command1，分别输入“4”和”5”后，窗体显示的结果。 Private Sub Command1_Click()Dim X as integer,Y as integer, Z as integerX = Val(
14、InputBox(“请输入 X：“)Y= Val(InputBox(“请输入 Y：“)If Y 5 ThenY = Y - XZ = Z + Y + XElseIf Y 0 ThenY = Y + XZ = Z + Y + X ElseY = Y + 4Z = Z + Y + XEnd IfPrint Y; ZEnd Sub四、程序设计题（每题 10 分，共 20 分）1.计算 1 到 50 所有奇数之和，即 s=1+3+5+49，并将结果显示在标签框控件 Lable1 中（要求：将所使用变量声明为整型）Private Sub Command1_Click()End Sub2. 统计某班某名学生某一门课程的成绩所属的分数等级 (60 以下为“不及格”,60-80 为“合格”,80 以上为“优秀”)。学生成绩由文本框 text1 给出，判断分数等级结果显示在图形框 picture1 中。Private Sub Command1_Click()End Sub
