vb本科清考.doc

河北农业大学课程考试试卷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标签控件的名称，则需要修改标签的（ ）属性。A.NameB.FontC.TestD.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.6B.6.667C.6.7D.79. Len(“中国”)的输出结果是（ ）。 A0 B 2 C 3 D410.任何控件都有（ ）属性。 ANameB.CaptionC. BackColorD.BorderStyle11.用情况选择语句Select Case X，选择X 5情况的语句为Case（ ）。 A. Not (-5 To 5) B. 5 To -5 C. Is 5D. ABS(X) 512.若X =1，执行If X1 Then X = 0 Else X = 1 的结果为（ ）。 A. 实时错误B. 编译错误 C. X = 1D. X = 013.窗体是应用程序的界面，如果想在窗体的标题栏中显示应用程序的名字，可通过( )实现。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.续行符的正确书写格式是（ ）。A. 一个下划线“_”B. 一个空格加一个下划线“ _”C. 一个连字符“-”D. 一个空格加一个连字符“ -”18. 控件的（ ）属性用于控制该控件是否可见，为True时，可见；否则，不可见。A.EnabledB.VisibleC.NameD.BorderStyle19. 下列代码执行完毕后在窗体上输出（）。Print 54 ；4 Mod 2A.1.25 0B.1 0C.1 2D.1.25 220. 控件的（ ）属性用于控制该控件是否有效，为True时，有效；否则，可见但是无法操作。A.EnabledB.VisibleC.NameD.BorderStyle21. 下列哪个属于对象的三要素之一（）。A.类别B.外观C.事件D.行为22.设a = 10，b = 5，执行语句Print ab后，窗体上显示的是（ ）。ATrueBFalseC1D出错信息23. 设置窗体的背景色，应该设置窗体的（ ）属性。A.FontB.BackColor CForeColor D.FontSize24. 用VB的表达式写出求根公式中的判别式b2-4ac正确的是（）。A.b2-4acB.b*b-4*a*cC.b2-4*a*cD.b2-4ac25.设有以下循环结构Do循环体Loop While 则以下叙述中错误的是（ ）。A若“条件”是False，则一次也不执行循环体B“条件”可以是关系表达式.逻辑表达式或常数C循环体中可以使用Exit Do语句D如果“条件”总是为True，则不停地执行循环体26.下列不是图形控件的是( )。 APicture BText CLine DShape27. 关于vb的编程规则,说法错误的是( )。 A.符号常量的名字可与关键字一样 B.可不区分大小写 C.变量可不声明，系统会默认它为变体类型 D.变量名不可以是关键字28. 下列代码执行完毕后在窗体上输出（）。Print 3=2A.3=2B.3C.TrueD.False29.说明全局级变量，应在变量名前加上（ ）。 A Public B Str C Static D ByVal30. 修改Text文本框控件中显示的文本，则需要修改文本框的（ ）属性。 A.NameB.CaptionC.Text D.Enabled31.时钟控件只响应一个( )事件。 AInterval BTimer CLoad DEnable32.使窗体全屏显示的属性是( )。 AName BWidowstate CCaption DBackcolor33. 修改Label标签控件的显示文本，则需要修改标签的（ ）属性。A.NameB.CaptionC.TestD.Enabled 34. 控件中的Height属性表示（ ）。A.控件的宽度 B.控件左上角的坐标 C.控件到屏幕顶部的距离 D.控件的高度35. 下列代码执行完毕后在窗体上输出（）。Print 1 + “2”；1 & “2”A.12 12B.3 12C.12 3D.3 336.将文本框的（ ）属性设置为True时，文本框允许输入多行文本。 A. Font B. NameC. TextD. MultiLine37.要使标签中的文本居中显示，应设置标签框的（ ）属性。 ABackcolor B. Name C. Alignment D. Font38.以下各项，可作为VB变量名的是（ ）。 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 Integer n=4 If n 2 Then n =n+1 Print nEnd Sub程序运行后,如果单击命令按钮,则窗体上显示的内容是( )。A错误B5C6D3二、程序填空题（每空2分，共20分）1.下面代数式的Visual Basic表达式是_(1)_。 2.下列语句功能为交换两个整型变量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=0 For i = 1 To 3 n=n+1 Next i4.欲使计时器控件每隔1秒触发一次Timer事件，需将其Interval属性值设定为 (6) 。5.RndSub函数的功能为产生一个0，9之间的随机整数，并将该数报存在变量x中，如果该数能被2整除则输出信息“偶数”，否则输出信息“奇数”，请将代码补充完整。Private Sub RndSub（）Dim 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 i1 Print num : num = num + 3 Loop End Sub3.写出下列程序段的输出结果。Do While 2009 Print “2009” Exit Do Print “2008” Loop4.写出下列程序段的输出结果。 A=60 If A6