vb本科清考.doc

1、1河北农业大学课程考试试卷2008-2009 学年第 2 学期 2005 级 卷别：清考考试科目： 高级语言程序设计(VB) 本科 考核方式： 闭卷考试 本试卷共（ 6 ）页一、单项选择题（每题 1 分，共 40 分）1.Visual Basic 有三个版本，其中（ ）功能最全。A学习版 B. 企业版 C. 专业版 D.以上全错2.Visual Basic 有三种工作模式， （ ）是错误的。A设计模式 B. 静止模式 C.中断模式 D. 运行模式3. VB 开发环境在（ ）中编写事件处理过程。A.代码窗口 B.工程窗口 C.属性窗口 D.窗体布局窗口4. 修改 Label 标签控件的名称，则需

2、要修改标签的（ ）属性。A.Name B.Font C.Test D.Enabled5.VB 可根据工程开发需要，把对象添加到应用程序中，在设计阶段可通过（ ）设置对象属性。A. 对象浏览器 B. 属性窗口 C. 视图窗口 D.调试窗口6.表示检查框被选中的属性是( )。A. Alignment B. Caption C. Value D. Name7.用 Integer 声明的变量类型是（ ） 。A单精度型 B整型 C字符串型 D日期型8. 下列代码执行完毕后在窗体上输出（ ） 。Dim x As Integer ：x=int(6.667) ：Print xA.6 B.6.667 C.6.7

3、 D.79. Len(“中国”)的输出结果是（ ） 。A0 B 2 C 3 D410.任何控件都有（ ）属性。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 X1 Then X = 0 Else X = 1 的结果为（ ） 。A. 实时错误 B. 编译错误 C. X = 1 D. X = 013.窗体是应用程序的界面，如果想在窗体的标题栏中

4、显示应用程序的名字，可通过( )实现。A. 修改窗体的 Caption 属性 B. 修改窗体的 Name 属性 C. 修改应用程序中窗体文件的名字 D. 修改工程文件的名字14. 强制退出 Do 循环可使用的语句为（ ）.Exit For .Exit Do .End For .End Do15. 图像框或图片框中显示的图形文件，由它们的（ ）属性值决定。.Font .Picture .Name .Caption16.定义数组 Dim B（1，2） As String 后，B 有( )个元素A12 B2 C6 D417.续行符的正确书写格式是（ ） 。4A. 一个下划线“_” B. 一个空格加一

5、个下划线“ _”C. 一个连字符“-” D. 一个空格加一个连字符“ -”18. 控件的（ ）属性用于控制该控件是否可见，为 True 时，可见；否则，不可见。A.Enabled B.Visible C.Name D.BorderStyle19. 下列代码执行完毕后在窗体上输出（ ） 。Print 54 ；4 Mod 2A.1.25 0 B.1 0 C.1 2 D.1.25 220. 控件的（ ）属性用于控制该控件是否有效，为 True 时，有效；否则，可见但是无法操作。A.Enabled B.Visible C.Name D.BorderStyle21. 下列哪个属于对象的三要素之一（ ）

6、。A.类别 B.外观 C.事件 D.行为22.设 a = 10，b = 5，执行语句 Print ab 后，窗体上显示的是（ ） 。ATrue BFalse C1 D出错信息23. 设置窗体的背景色，应该设置窗体的（ ）属性。A.Font B.BackColor CForeColor D.FontSize24. 用 VB 的表达式写出求根公式中的判别式 b2-4ac 正确的是（ ） 。A.b2-4ac B.b*b-4*a*c C.b2-4*a*cD.b2-4ac25.设有以下循环结构Do循环体Loop While 则以下叙述中错误的是（ ） 。A若“条件”是 False，则一次也不执行循环体B

7、 “条件”可以是关系表达式.逻辑表达式或常数C循环体中可以使用 Exit Do 语句D如果“条件”总是为 True，则不停地执行循环体26.下列不是图形控件的是( )。APicture BText CLine DShape27. 关于 vb 的编程规则,说法错误的是( )。 A.符号常量的名字可与关键字一样 B.可不区分大小写C.变量可不声明，系统会默认它为变体类型 D.变量名不可以是关键字28. 下列代码执行完毕后在窗体上输出（ ） 。Print 3=2A.3=2 B.3 C.True D.False29.说明全局级变量，应在变量名前加上（ ） 。A Public B Str C Stati

8、c D ByVal30. 修改 Text 文本框控件中显示的文本，则需要修改文本框的（ ）属性。A.Name B.Caption C.Text D.Enabled31.时钟控件只响应一个( )事件。AInterval BTimer CLoad DEnable32.使窗体全屏显示的属性是( )。AName BWidowstate CCaption DBackcolor33. 修改 Label 标签控件的显示文本，则需要修改标签的（ ）属性。5 A.Name B.Caption C.Test D.Enabled 34. 控件中的 Height 属性表示（ ） 。A.控件的宽度 B.控件左上角的坐标

9、 C.控件到屏幕顶部的距离 D.控件的高度35. 下列代码执行完毕后在窗体上输出（ ） 。Print 1 + “2”；1 & “2”A.12 12 B.3 12 C.12 3 D.3 336.将文本框的（ ）属性设置为 True 时，文本框允许输入多行文本。A. Font B. Name C. Text D. MultiLine37.要使标签中的文本居中显示，应设置标签框的（ ）属性。ABackcolor B. Name C. Alignment D. Font38.以下各项，可作为 VB 变量名的是（ ） 。A23.456 B. 21_luck C. gluck D. go-luck39.V

10、isual Basic 中，可以在（ ）中检测函数或表达式的值。A工具箱窗口 B. 属性窗口 C. 立即窗口 D. 工程资源管理器窗口40.在窗体上画一个名为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim n as Integern=4If n 2 Then n =n+1Print nEnd Sub程序运行后,如果单击命令按钮,则窗体上显示的内容是( )。A错误 B5 C6 D3二、程序填空题（每空 2 分，共 20 分）1.下面代数式的 Visual Basic 表达式是_(1)_。3ab2.下列语句功能为交换两个整型变量

11、 x 和 y 的值。请将代码补充完整。Dim x As Integer，y As Integer，t As Integer（2） x=y（3） 3.执行下列循环语句，退出循环后的 i 值为_(4)_，n 的值为_(5)_。Dim n As Integern=0For i = 1 To 3 n=n+1Next i4.欲使计时器控件每隔 1 秒触发一次 Timer 事件，需将其 Interval 属性值设定为 (6) 。5.RndSub 函数的功能为产生一个0，9之间的随机整数，并将该数报存在变量 x 中，如果该数能被 2 整除则输出信息“偶数” ，否则输出信息“奇数” ，请将代码补充完整。Pri

12、vate Sub RndSub（）4Dim x As Integer（7） =（8）(Rnd*10)If （9） ThenPrint “奇数”（10） Print “偶数”End IfEnd Sub三、读程序，写出程序的运行结果（每题 5 分，共 20 分）1、窗体上有一个名称为 Command1 的命令按钮，其事件过程如下，运行状态下点击 Command1按钮，写出窗体上的输出结果Private Sub Command1_Click（）s=1 ：i=1 re: If i1Print num : num = num + 3LoopEnd Sub3.写出下列程序段的输出结果。Do While 2009Print “2009”Exit DoPrint “2008”5 Loop4.写出下列程序段的输出结果。A=60If A60 thenM=1ElseIf A50 ThenM=3ElseIf A=40 ThenM=4End IfPrint M四、写程序（每题 10 分，共 20 分）1.求和。功能：求解【1，100】以内所有奇数的累加和。2.计算分段函数 。功能：用户输入 x 的值显示在文本框 Text1 中，然后单击1,2xy【计算】按钮(Command1)，便在标签框 Label1 中显示出 y 的值。