1、1河 北 农 业 大 学 试 题 纸专业年级_姓名_学号_卷别 B科目 Visual Basic 现科 （共三页）一 二 三 四 五 六 七 八 九 十 十一 十二 十三 总分一、单项选择题（每题 1 分，共 40 分）1.Visual Basic 有三个版本， （ ）包括另外两个版本的全部功能。A学习版 B. 企业版 C. 专业版 D.以上全错2.Visual Basic 有三种工作模式， （ ）是错误的。A设计模式 B. 停止模式 C.中断模式 D. 运行模式3.窗体文件的扩展名是（ ） 。A.bas B. .cls C. .frm D. .res4.以下说法中正确的是（ ） 。A. Vi
2、sual Basic 是一种可视化编程工具 B. Visual Basic 是面向过程的编程语言C. Visual Basic 是非结构化程序设计语言 D. Visual Basic 采用代码驱动编程机制5.VB 可根据工程开发需要，把对象添加到应用程序中，在设计阶段可通过（）设置对象属性。A. 对象浏览器 B. 属性窗口 C. 工程窗口 D.代码窗口6.表示检查框被选中的属性是( )。A. Alignment B. Enable C. Value D. Check7.用 Shight!声明的变量类型是（ ） 。A单精度型 B整型 C字符串型 D日期型8.以下叙述中错误的是（ ）A双击鼠标可以
3、引发 DblClick 事件 B窗体或控件的事件的名称可以由编程人员确定C移动鼠标时会引发 MouseMove 事件 D控件的名称可以由编程人员设定9. Len(“我的 12.124”)的输出结果是（ ） 。A0 B 9 C 8 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 = -5，执行 If X Then X = 0
4、 Else X = 1 的结果为（ ） 。A. 实时错误 B. 编译错误 C. X = 1 D X = 0213.窗体是应用程序的界面，如果想在窗体的标题栏中显示应用程序的名字，可通过( )实现。A. 修改窗体的 Caption 属性 B. 修改窗体的 Name 属性 C. 修改应用程序中窗体文件的名字 D. 修改工程文件的名字14.Print 方法及图形方法可在某些对象上显示文本信息或绘制图形，但不能用于哪一个对象。A. 图片框 B. 窗体 C.文本框 D. 打印机15.图象框（Image）控件可用于显示图形信息,若想使装入的图片自动拉申，以恰好适应图象框的大小，应修改其( )属性。A. D
5、ragMode B. DragIcon C. Stretch D. Picture16.定义数组 Dim B（1 To 3，4，-2 To 1） As String 后， B 有( )个元素A12 B24 C60 D12017.续行符的正确书写格式是（ ） 。A. 一个下划线“_” B. 一个空格加一个下划线“ _”C. 一个连字符“-” D. 一个空格加一个连字符“ -”18.一个命令按钮（CommandButton）为“缺省命令钮”时按回车键即可激活其 Click 事件，要使一个命令钮为缺省的，应修改其( )属性。A. MouseIcon B. MousePointer C. Defaul
6、t D. Caption19.程序运行时如果改变了滚动条的滚动块，则哪一项属性随之改变。A.Max B. Min C. Value D. Largechange20.设窗体上有一个列表框控件 List1，且其中含有若干列表项。则能表示当前被选中的表项内容的是 ( )。AList1.List BList1.ListIndex CList1.Index D List1.Text21.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是( )。AMouseDown BMouseUp CLoad DClick22.设 a = 10，b = 5，c = 1，执行语句 Print abc 后，窗体上显
7、示的是（ ） 。ATrue BFalse C1 D出错信息23.以下正确的描述是（ ） 。A窗体 ScaleHeight 属性值与 Height 属性值相等 B 窗体 ScaleHeight 总小于 Height 属性值C窗体 ScaleHeight 属性值总大于 Height 属性值 DScaleHeight 属性值有时大于 Height 属性值23.以下能判断是否能达到文件尾的函数是（ ） 。ABOF BLOC CLOF D EOF24.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为（ ） 。A= B * C num = num + 2.1LoopEnd Sub程序运行
8、结果为：52.执行下面的代码：Dim x ，yx = ”123” ：y = x-23 x = x xPrint “y=”;y3. dim x,j,kx=0for j=1 to 3x=x+1for k=1 to 3x=x+1next knext jprint “x=”;xprint “j=”;j4.写出连续三次单击 Command1，分别输入”2”， ”4”， ”6”后，窗体显示的内容为结果。 Private Sub Command1_Click()Static Y as integerDim X as integer, Z as integerX = Val(InputBox(“请输入 X：“
9、)If Y 5 ThenY = Y - XZ = Z + Y + XElseIf Y 0 ThenY = Y + XZ = Z + Y + X ElseY = Y + 4Z = Z + Y + XEnd IfPrint X; Y; ZEnd Sub四、程序设计题（每题 10 分，共 20 分）1.计算 1 到 200 所有偶数之和，即 s=2+4+6+200，并将结果显示在 Lable1 中（要求：将所使用变量声明为整型）Private Sub Command1_Click()程序运行结果为：x=y=程序运行结果为：x=j=6End Sub2.用定义法求正整数 1000 以内的所有素数。 （要求：在 Picture1 中以每行 8 个数显示 1000 以内所有素数）Private Sub Command1_Click()End Sub
