云南师范大学2007-2008学年下学期统一考试《计算机技术基础》（VB6.0）期末考试试卷考试方式（闭卷）考试时量：100分钟试卷编号（ A 卷）1. ActiveX 部件是可以重复使用的编程代码和数据。

AA. 对B.错2. 在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。

BA. 对B.错3. 定义菜单项时，可以不设置分隔线的菜单项控件名称。

BA. 对B.错4. 用Dim 语句声明变量时，VB 系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。

BA. 对B.错5. 数组作为过程参数时，使用的是地址传送方式。

AA. 对B.错6. 用Public 申明的变量能被其它模块存取。

AA. 对B.错7. 列表框的列表项只能在属性窗口中添加。

BA. 对B.错8. 菜单选项“ Enabled” 属性与“ Visible ”属性是相同的。

BA.对B.错9. 三种基本控制结构是：顺序结构、选择结构和循环结构。

AA.对B.错10. 用For循环写的程序不能用While循环来写。

BA.对B.错二、单选题（在本题的每一小题的被选答案中只有一个正确答案，多选不给分，每题 1 分，共40 分）11. InputBox函数的返回值的类型为B__oA.数值B.字符串C.逻辑值D.日期值12. 下面关于打印对话框属性的说法错误的是C__oA.Copies 属性指定打印的份数。

B. HDC 属性指定分配给打印机的句柄，用来识别对象的设备环境。

C. FromPage属性指定要打印文档的页范围。

使用该属性时必须把Flags属性设置为1。

D. Max和Min属性用来显示FromPage和ToPage的范围，其中Min指定允许的起始页码，Max 指定允许的最后页码。

13. Print #1，STR1$中的Print 是AA.顺序文件的写语句B.在窗体上显示的方法C.子程序名D.打印命令14. 文本框没有__D___属性。

A.EnabledB.VisibleC.BackColorD.Caption15. 下面四项中，_A _____ 是VB中的数值变量。

A.ABCB.E+2C."True"D.1.35E-216. 下列不能打开菜单编辑器的操作是___D___。

A. 按Ctrl+EB. 单击工具栏中的菜单编辑器”按钮C. 执行工具”菜单中的菜单编辑器”命令D. 按Shift + Alt + M17. 语句Print Format("HELLO", "<") 的输出结果是_B ____ 。

A.HELLOB.helloC.HeD.he18. 如果文本框的Enabled属性设为False则—A _____ 。

A. 文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B. 文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C. 文本框的文本将变成灰色，用户仍然能改变文本框中的内容D. 文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容A.1B.2C.3D.4第2 页共11 页20. 如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是___D___。

A.HideB.ShowC.LoadD.Unload21. 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为__D 。

A.Get 文件号，记录号，变量名B. Get 文件号，变量名，记录号C. Put 文件号，变量名，记录号D. Put 文件号，记录号，变量名22. 以下__C _ 不能作为VB 中的变量名。

A.Abx45B.P1234C.89TasFFD.xy23. 为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用__A _______ 。

A.自定义类型B.数组C.字符串类型D.变体类型24. 引用列表框(Listl)最后一个数据项应使用—B _______ 。

A. List1.List(List1.ListCount)B. List1.List(List1.ListCount-1)C. List1.List(ListCount)D. List1.List(ListCount-l)25. 在下面选项中，不能完成对顺序文件的读操作的是 _____ D__。

A丄i nel nput# 语句 B.l nput# 语句C.Input ()函数D.Get#语句26. 执行下面程序段后，变量c$的值为___D___。

a$= "Visual Basic Programming"b$= "Quick"c$=b$ & Ucase(Mid$(a$,7,6)) & Right$(a$,12)A. Visual BASlC ProgrammingB. Quick Basic ProgrammingC. QUlCK Basic ProgrammingD. Quick BASlC Programming27. 执行下面程序段后，变量a 的值为___C___。

For I=1 To 3For j=1 To IFor k=j To 3a=a+1Next kNext jNext IA.3B.9C.14D.2128. 假定有一个菜单项，名为MenuItem ，为了在运行时使该菜单项失效变灰），应使用的语句为__A __ 。

A. MenuItem. Enabled=FalseB.MenuItem. Enabled=TrueC.MenuItem.Visible=True D.Menultem. Visible=False29. 以下程序的输出结果是__D __ 。

Private Sub Command1_Click()a=100Dos=s+aa=a+1Loop Until a>100print aEnd SubA.100B.120C.201D.10130. 下列程序运行后，其结果为__A ___ 。

Private Sub Form_Click ( )Filename=“ c:\testfile.txt ”Open filename For Output As #1Print #1,“ ABCD 我是一个学生”Close #1Open filename For Input As #1MsgBox Input(8,1)Close #1End SubA. 在通用对话框中显示“ ABCD我是一个”B. 在通用对话框中显示“ ABCD我是”C. 在窗体中显示“ ABCD我是一个”D. 在窗体中显示“ ABCD 我是”31. VB 的编程机制是A. 可视化B. 面向对象C. 事件驱动D. 面向过程C32. 在Visual Basic中，最简单的数据类型包括 AA.整型、实型、布尔型、字符型B.整型、实型、字符型C.整型、实型、逻辑型D.实型、逻辑型、字符型33. 若要使得文本框的初始值为空，则应更改文本框的属性是A. captionB. textC. nameD. indexB34. 设x=4，y=6，则以下不能在窗体上显示出“ A=10”的语句是A. Print A=x+yB. Print"A=";x+yC. Print "A="+Str(x+y)D. Print"A="&x+y35. 下面程序运行时，内层循环的循环总次数是CFor m = 1 To 3For n = 0 To m - 1 Next nNext mA.4B.5C.6D.736. 属性窗口只能在使用。

A.设计时B.编译时C.运行时D.以上都不对参考答案：A37. 以下各组数据类型中，满足占用存储空间从小到大排序的是A.Byte 、Integer、DoubleB.Byte、Integer、Double、BooleanC.Boolean、Byte、Integer、LongD.Boolean、Byte、Integer、Double 参考答案：A38. Cls 方法可清除窗体或图片框中的信息是。

A.Picture属性设置的背景图案B.在设计时放置的控件C.程序设计时产生的图形和文字D.以上方法都对参考答案：C39. 在VB 中，被称为对象。

A.窗体B.控件C.窗体和控件D.窗体、控件、属性参考答案：C40. 有以下的语句：Option Base 1Dim xscj（3，4，5）As String 声明的数组xscj 有个数组元素。

A.120B.20C.12D.60 参考答案：D 三、填空题：（每空2分，共10分）。

在Visual Basic的菜单设计中，可以建立【1】菜单和【2】菜单。

（答案：下拉式菜单，弹出式菜单）在定义有10个元素的整型静态数组a时，可以定义为【3】；也可以在通用部分添加Option Base 1语句，并定义为【4】。

（答案：dim a（9）as integer或dim a （1 to 10）as integer，dim（10）as integer）图像框的Stretch属性设置为【5】时，图形将适应图像框的大小。

（答案：True）请用正确的内容填空。

下面程序用选择”法将数组a中的10个整数按升序排列。

Option Base 1Private Sub Form_Click（）Dim aa = Array（678, 45, 324, 528, 439, 387, 87, 875, 273, 823）For i=1 To 9For j= i+1 To 10If 【6】Then t=a(I): a(I)=a(j): a(j)=tEnd IfNext jNext iFor i=1 To 10Print a(i);Next iEnd Sub(答案：a (i) >a (j)或 a (j) <a (i))以下程序的功能是：生成20个200-300之间的随机整数，输出其中能被 5 整除的数并求出它们的和。

Private Sub Command1_Click()For i=1 to 20x=int( 【7】*101+200)if 【8】=0 thenprint x s=s+【9】End ifNext iprint "sub=";sEnd sub(答案：Rnd，x mod 5，x) 6、请用正确内容填空，以下程序的输出结构是：4 7 105 8 116 9 12Option Base 1Private Sub Form_Click()Dim i as integerDim j as in tegerDim a(3,3) as in tegerFor i=1 to 3For j=1 to 3 a(i,j)=【10】print a(i,j);Next jprintNext iEnd Sub(答案:3+i+3*(j-1))五、编程题：（共30分）1.窗体设计（7分）请设计如图1所示的界面。