《计算机语言与程序设计》试卷 - A卷(1)

试卷编号 命题人： 试卷分类（A卷或B卷） A

五邑大学 试 卷

学期： 2008 至 2009 学年度 第 2 学期 课程： 计算机语言与程序设计 专业： 班级：

一 二 姓名： 学号：

题号 得分 三 四 五 六 七 八 九 十 总分

一、 得分 选择题（2分/题，15小题，共30分）

1. 在VB6.0集成开发环境中不能完成的功能是（ ）。 A 输入编辑源程序 B 编译生成可执行程序 C 调试运行程序 D 自动查找并改正程序中的错误

2. 在一行内写多条语句时，语句之间要用某个符号分隔，这个符号是（ ）。 A 逗号 B 句号 C 顿号 D 冒号 3. 下面关于对象的描述中，错误的是（ ）。 A 对象就是自定义结构变量 B 对象代表正在创建的系统中的一个实体 C 对象是一个特征和操作的封装体 D 对象之间的信息传递是通过消息进行的 4. 当程序运行时，系统自动执行启动窗体的（ ）事件过程。 A Load B Click C Unload D GotFocus 5、 要使某控件在运行是不可显示，应对（ ）属性进行设置。 A Enabled B Visible C BackColor D Caption 6. 下面（ ）是合法的单精度型变量。 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=30 B a()=i^3+4

第 1 页 共 6 页

C y=x+30 D 3y=x

10. 为了给x,y,z三个变量赋初值1，下面正确的赋值语句是（用冒号隔开）。 A x=1:y=1:z=1 B x=1,y=1,z=1 C x=y=z=1 D xyz=1 11. 能正确表示关系表达20?x?50的VB表达式是（ ）。 A 20<=x<50 B x>=20 And x<50 C x>=20 Or x<50 D x≥20 And x<50 12. 下列语句中（假定变量n有值），能正确声明可调数组的是（ ）。 A Dim a() As integer B Dim A() As integer ReDim a(n) ReDim a(n) As String C Dim a() As integer D 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 Integer C Function f1%(f1%) D Function f1(ByVal n%)

14. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ ）关键字在过程中定义局部变量。 A Dim B Private C Public D Static 15. 要从磁盘上读入一个文件名为“c:\\t1.txt”顺序文件，正确的是（ ）。 A F= “c:\\t1.txt” B F= “c:\\t1.txt” Open F For Input As #1 Open “F” For Input As #1 C Open “c:\\t1.txt” For output As #1 D 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. 在表示整型数据时，可作为整型数据尾部符号的是 。

第 2 页 共 6 页

9. 用随机函数产生一个两位的随机正整数的VB表达式是 。 10. VB是一种结构化的程序设计语言，有三种基本的控制结构，分别是 、选择结构和 。

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

For i=2 To 6 For j=1 To 4 Print ” * ”

Next j Next i

12. 使用动态数组时，要用到____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 Integer Dim i% Randomize For i = 1 To 10

a(i) = Next i

Picture1.Print End Sub

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

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

第 3 页 共 6 页

For i = ' 百位数 For j = 0 To 9 ' 十位数 For k = 0 To 9 ' 个位数 s=100 * i + 10 * j + k

If __ ___ Then Print s; Next k Next j Next i

3. 设计一个选课界面如右图所示。它包含2个列表框，当单击左边某课程名后，将该课程加入到右边列表框中，并在左边列表框中删除该课程，选课数不能超过5门。

Private Sub List1_Click()

If List2.ListCount < 5 Then

List2.AddItem

List1. List1.ListIndex Else

MsgBox \超过5门课程，不能再选\ End If End Sub

4. 编写一子过程，求一维数组中的最大值。

Sub procMax(ByRef a%(), ByRef max%) Dim i%

max = a (Lbound (a) )

For i = Lbound (a)+1 To If max < a(i) Then Next i End Sub

四、 得分 程序阅读（5分/题，4小题，共20分）

1. 有如下事件过程：

Private Sub Form_Click() a = 10 b = 5 c = 3

If a < b Then b = c If a> c Then a = a - 2 Print a, b, c End Sub

问题：

第 4 页 共 6 页