08-09-2《计算机语言与程序设计》试卷_A卷一、选择题（2分/题，15小题，共30分）1. 在VB6.0集成开发环境中不能完成的功能是（）。

A 输入编辑源程序B 编译生成可执行程序C 调试运行程序D 自动查找并改正程序中的错误2. 在一行内写多条语句时，语句之间要用某个符号分隔，这个符号是（）。

A 逗号B 句号C 顿号D 冒号3. 下面关于对象的描述中，错误的是（）。

A 对象就是自定义结构变量B 对象代表正在创建的系统中的一个实体C 对象是一个特征和操作的封装体D 对象之间的信息传递是通过消息进行的4. 当程序运行时，系统自动执行启动窗体的（）事件过程。

A LoadB ClickC UnloadD GotFocus5、要使某控件在运行是不可显示，应对（）属性进行设置。

A EnabledB VisibleC BackColorD Caption6. 下面（）是合法的单精度型变量。

A num! (单精度)B sum% （整型）C xinte$ （字符串）D mm# （双精度）7. 函数Left(“Guangdong”,5)返回的值是（）。

A “gdong”B “Guang”C “Guan”D “g”8、 MsgBox函数返回值的类型是（）。

A 整型数值B 字符串C 变体D 数值或字符串9. 下面正确的赋值语句是（）。

A x+y=30B a()=i^3+4C y=x+30D 3y=x10. 为了给x,y,z三个变量赋初值1，下面正确的赋值语句是（用冒号隔开）。

A x=1:y=1:z=1B x=1,y=1,z=1C x=y=z=1D xyz=111. 能正确表示关系表达20≤x＜50的VB表达式是（）。

A 20<=x<50B x>=20 And x<50C x>=20 Or x<50D x≥20 And x<5012. 下列语句中（假定变量n有值），能正确声明可调数组的是（）。

A Dim a() As integerB Dim A() As integer ReDim a(n) ReDim a(n) As StringC Dim a() As integerD Dim A() As integer ReDim a(3,4) ReDim a(n+10) Redim Preserve a(4,4)13. 下面子过程语句说明合法的是（）。

A Sub f1(ByVal n%()) （传址）B Sub f1(n) As IntegerC Function f1%(f1%)D Function f1(ByVal n%)14. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（）关键字在过程中定义局部变量。

A DimB PrivateC PublicD Static15. 要从磁盘上读入一个文件名为“c:\t1.txt”顺序文件，正确的是（）。

A F= “c:\t1.txt”B F= “c:\t1.txt” Open F For Input As #1 Open “F” For Input As #1C Open “c:\t1.txt” For output As #1D Open c:\t1.txt For input As #2二、填空题（1分/空，20空，共20分）1. VB程序的执行方式有和两种。

2. 在VB中，程序设计是基于对象的，对象的三要素是指、和事件。

3. 表达式3^2*8/4 Mod 9\2的值是。

分清楚/ \以及Mod的符号2 (18mod 4=2取模)4. 表达式Len(“Visual”)-Len(“BASIC”)的值是（Len表示字符长度）6-5=1______。

5. 把数学式T+3≠V-2且T+V>100写成VB关系或逻辑表达式。

6. 在VB中将PI声明为常量3.1415，使用的语句是 ConstPI=3.1415 。

7. 把“变量x和变量y均大于变量z”用VB表达式描述是。

8. 在表示整型数据时，可作为整型数据尾部符号的是。

9. 用随机函数产生一个两位的随机正整数的VB表达式是。

10. VB是一种结构化的程序设计语言，有三种基本的控制结构，分别是、选择结构和。

11. 下面的程序段合计显示_________个“*”。

For i=2 To 6For j=1 To 4Print ” * ”Next jNext i12. 使用动态数组时，要用到____ReDim___语句对其进行重定义，若希望重定义的数组保留重定义操作前的所有元素赋值，则应使用保留字 Peserve 。

13. 要获得数组的上界值通过_____ ____函数，获得数组的下界值通过__ _____函数。

14. 按照如下要求写函数过程定义的首语句，即：Function____MyF_( a%, b ! c( ) as string )____________。

要求：形参有3个，从第1个到第3个依次分别是a, b, c, 其中a为整型，b为单精度浮点型，c为一维整型数组，函数名为MyF，函数返回值为整型。

15. 计算机系统中的文件按照访问模式可分为___随机文件____、__顺序文件 _______和二进制文件。

三、程序填空（2.5分/空，2空/小题，4小题，共20分）1. 随机产生1-100之间（含1和100）的10个整数，并在图形框中显示出来。

Private Sub Picture1_Click()Dim a(1 To 10) As IntegerDim i% RandomizeFor i = 1 To 10a(i) =Next iPicture1.Print End Sub2. 求所有的水仙花数。

所谓水仙花数是指一个3位数，其各位数字立方和等于该数字本身。

例153就是水仙花数，因为153=13+53+33。

For i = ' 百位数For j = 0 To 9 ' 十位数For k = 0 To 9 ' 个位数s=100 * i + 10 * j + kIf __ ___ Then Print s;Next kNext jNext i3. 设计一个选课界面如右图所示。

它包含2个列表框，当单击左边某课程名后，将该课程加入到右边列表框中，并在左边列表框中删除该课程，选课数不能超过5门。

Private Sub List1_Click()If List2.ListCount < 5 ThenList2.AddItemList1. List1.ListIndexElseMsgBox "超过5门课程，不能再选", vbOKOnlyEnd IfEnd Sub4. 编写一子过程，求一维数组中的最大值。

Sub procMax(ByRef a%(), ByRef max%) Dim i%max = a (Lbound (a) )For i = Lbound (a)+1 ToIf max < a(i) ThenNext iEnd Sub四、程序阅读（5分/题，4小题，共20分）1. 有如下事件过程：Private Sub Form_Click() a = 10 b = 5 c = 3If a < b Then b = cIf a> c Then a = a - 2Print a, b, cEnd Sub问题：（1）语句“Print a, b, c”的功能是：显示a,b,c 的值。

并分区显示。

（2）程序运行后，单击窗体，输出结果是： 8，5，3 。

2. 有如下事件过程：Private Sub Form_Click()Form1.ClsFor A = 1 To 5Print Space(5 - A); String(A, "*") ‘Space 的意思空出的个数 Next A End Sub问题：（1）语句“Form1.Cls”的功能是：清除窗体上或图片框上在运行Print方法时显示的文本或用绘图方式所产生的图形。

（2）程序运行后，单击窗体，输出的图案是：3. 有如下事件过程：Private Sub Form_Click()Dim n As IntegerDim s As Integern = 1s = 0Do While n <= 3n = n + 2s = s + nLoop Print sEnd Sub问题：（1）语句“Dim n As Integer”的功能是：声明变量n为整型变量。

（2）程序运行后，单击窗体，输出结果是：。

4.在窗体上画一个名称为Command1的命令按钮，然后编写如下函数过程和命令按钮Command1的事件过程：Private Function f (m As Integer ) As IntegerIf m Mod 2 = 0 Then f = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer，s As Integer s = 0For i = 1 To 5s = s + f ( i )Next iPrint sEnd Sub问题：（1）语句“Private Function f (m As Integer ) As Integer”的功能是：定义一个名为f 的函数，其形参m是整型变量，函数返回值也是整型。

（2）程序运行后，单击命令按钮，在窗体上显示的是：9 。

五、程序设计（10分/题，1小题，共10分）1. 编写一个过程，要求使用选择法．．．对一组整数数据进行降．序．排序。

过程名为Sort，需要排序的数据通过数组从外部传入。

参考答案一、选择题（2分/题，15小题，共30分）1. D2. D3. A4. A5. B6. A7. B8. A9. C 10. A 11. B 12. A 13. D 14. D 15. A二、填空题（1分/空，20空，共20分）1. 解释方式、编译方式2. 属性、方法3. 24. 15. (T+3<>V-2) and (T+V>100)6. Const PI=3.14157. x>z And y>z8. %9. Int(Rnd*90+10)10. 顺序结构、循环结构11. 2012. ReDim, Preserve13. Ubound, LBound14. MyF(a%, b!, c() as Integer ) As Integer15. 顺序文件、随机文件三、程序填空（2.5分/空，2空/小题，4小题，共20分）1. Int(Rnd * 100+ 1) Picture1.Print a(i);2. 1 To 9 s=i*i*i+j*j*j+k*k*k3. List1.Text RemoveItem4. UBound(a) max = a(i)四、程序阅读（5分/题，4小题，共20分）1.（1）显示a,b,c的值，且分区显示。