1、409华南理工大学2005 年攻读硕士学位研究生入学考试试卷（试卷上做答无效，请在答题纸上做答，试后本卷必须与答题纸一同交回）科目名称：高级语言程序设计适用专业：建筑技术科学共 9 页第 1 页说明1请把答案写到答卷内，不写入答卷内的不得分。2试题包括微机应用基础及 Visual BASIC 语言两部分。3试题及答案中均以“ ”表示一个空格。4 全部试题共 4 大题，满分 150 分。一、选择填空，在下面各小题 4 个可能的答案中选出唯一正确的答案填入空格中：（第 124 号空格每空 1 分，第 2530 号空格每空 2 分，共 36 分）第一部分：微机应用基础1微机上操作系统的作用是 (1)
2、 。(1) A) 解释执行源程序 B) 编译源程序C) 进行编码转换 D) 控制和管理系统资源2在计算机中，个字节是由 (2) 个二进制位组成的。(2) A) 4 B) 8 C) 16 D) 323将高级语言编写的程序翻译成机器语言程序，通常采用两种翻译方式，这两种方式是 (3) 。(3) A) 编译和解释 B) 编译和汇编 C) 汇编和链接 D) 解释和汇编4计算机在工作中突然断电，则存放在 (4) 中的信息将会丢失 (4) A) ROM B) RAM C) ROM 和 RAM D) 硬盘5在 Windows 中剪贴板是程序和文件间用来传递信息的临时存储区，此存储区是 (5) 。若要将当前窗
3、口存入剪贴板中，可以按 (6) 。(5) A) 回收站的一部分 B) 硬盘的一部分C) 内存的一部分 D) 软盘的一部分(6) A) 【Alt】+【PrintScreen】键 B) 【Ctrl】+【PrintScreen】键C) 【PrintScreen】键 D) 【Shift】+【PrintScreen】键 6在以下关于 Windows 桌面上图标的叙述中，唯一错误的是 (7) 。(7) A) 图标可以复制 B) 图标可以重新排列C) 所有图标都可以移动 D) 所有图标都可以重命名第 2 页7当选定文件或文件夹后，不将文件或文件夹放到“回收站”中而直接删除的操作是 (8) 。(8) A) 按
4、【Delete】键 B) 按【Alt】+【Delete】键C) 按【Shift】+【Delete】键 D) 用“我的电脑”窗口中“文件”菜单中的删除命令。8在下面的四个操作中，除了 (9) 外，都可以使当前正在运行的一个应用程序窗口转到另一个应用程序窗口。(9) A) 按【Alt】+【Tab】键 B) 按【Alt】+【Shift】键C) 按【Alt】+【Esc】键 D) 用鼠标单击另一应用程序窗口9阅读下面两条关于多媒体计算机的叙述：甲、多媒体计算机系统与普通计算机系统一样，仍由硬件系统和软件系统组成。乙、多媒体计算机技术是指、用计算机交互地综合处理磁盘信息、磁带信息和光盘信息等多种信息。经判
5、断， (10) 。(10) A) 甲正确、乙不正确 B) 乙正确、甲不正确C) 甲、乙都正确 D) 甲、乙都不正确10在以下四项中， (11) 是宏病毒的主要感染对象。(11) A) com 文件 B) exe 文件 C) doc 文件 D) 引导区11在万维网地址栏输入框中， (12) 为非法的访问方式 (12) A) http:/ B) telnet:/C) ftp:/ D) Open:/第二部分：Visual BASIC 语言12定义 Visual BASIC 变量为双精度变量的类型说明符是 (13) 。(13) A) % B) # C) D) 13在下列运算符的排列顺序中，只有 (14
6、) 是按照运算符优先级的顺序从高到低排列。(14) A) Mod / B) / Mod C) Mod / D) / Mod14如果想把命令按钮设置为如右图那样的形式，那么必须把命令按钮的 Caption 属性设置为: (15) 。(15) A) “#RUN“ B) “_RUN“ C) “ sEnd Sub该程序有错误，正确的改正办法是： (27) 。第 4 页(27) A) 在位置插入 s = 0 : t = 1B) 在位置插入 s = 0 : t = 1C) 在位置插入 s = 0 ，在位置插入 t = 1D) 在位置插入 s = 0 ，在位置插入 t = 126以下过程和函数定义中， (2
7、8) 是错误的。(28) A) Private Sub SF(A As String)B) Private Sub SF(A As String) As IntegerC) Private Function SF(A As String)D) Private Function SF(A As String) As Integer27阅读下列事件过程:Private Sub Form_Click()Dim A&, B&, X&Open “file.dat“ For Random As #1 Len = 4A = 1B = 2Put #1, A, BGet #1, 1, XClose #1Prin
8、t XEnd Sub上述程序执行后在窗体上的输出结果是 (29) 。(29) A) 1 B) 2C) 1，2 D) 1 2 28求正整数 A 和 B 的最大公约数的子过程如下:Sub GCD(ByVal A As Integer, ByVal B As Integer)Dim R As IntegerDoR = A Mod BA = BB = RLoop Until R = 0Form.Print A, BEnd Sub现判断下面两个关于该子过程的叙述的正确性:甲、调用该子过程时, 要保证形式参数 A、B 满足 AB。乙、最后在窗体上输出的 A、B 中, B 是最大公约数。经判断，在这两个叙述
9、中， (30) 。(30) A) 甲正确，乙不正确 B) 甲不正确，乙正确第 5 页C) 甲、乙都正确 D) 甲、乙都不正确二、填空题：（第 3139 号空格每空 2 分，第 4045 号空格每空 3 分，共 36 分）1 的 Visual BASIC 表达式是 (31) 。53cos22求下列表达式的值：Sqr(Asc(“z“)-Asc(“a“) 的值为 (32) ；45 2 Mod 3.2 * Int( 5.2 ) 的值为 (33) ；InStr(“Visual Basic 6.0“,“BASIC“) 的值为 (34) 。3一个工程的界面如下图，其窗体上共有三个控件：命令按钮 CmdRun
10、、命令按钮 CmdExit、列表框 List1。该工程的代码如下：Private Sub CmdRun_Click()Dim i As IntegerFor i = List1.ListCount - 1 To 0 Step -1If List1.Selected(i) Then List1.RemoveItem iNext iEnd SubPrivate Sub CmdExit_Click()EndEnd Sub阅读代码后，请回答： 列表框的 Columns 属性值是 (35) 。 该工程的功能是什么？ (36) 。 For 语句可否改写为 For i = List1.ListCount T
11、o 1 Step 1 ？ (37) 。4控件数组由一组类型相同和 (38) 相同的控件组成，共享 (39) 。5下列程序运行后共输出了 8 个数，输出的第三个数为 (40) ，输出的最后一个数为 (41) 。Sub p(x As Integer, ByVal y As Integer)x = x Mod y: y = Int(x / 3) + yPrint x, yEnd SubPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = 25: y = 7Call p(y, x - 10): Print x, y第 6 页p x,
12、 y: Print x, yEnd Sub6以下程序运行后输出了 (42) 个“?” 。Private Sub Form_Click()Dim I%For I = 1 To 4Print ST(2)Next IEnd SubFunction ST(ByVal N As Integer) As StringStatic X$Dim I%For I = 1 To NX = X & “?“Next IST = XEnd Function7以下程序运行后，s 的值为 (43) ，x 的值为 (44) 。Private Sub Command1_Click()Dim x, y, sFor x = 2 T
13、o 6 Step 0.5Select Case xCase 4y = 2.4Case 1 To 3y = -0.7Case Is 5y = 8.2Case Elsey = 5End Selects = s + yNext xPrint s, xEnd Sub8以下程序运行后，x 的值为 (45) 。Private Sub Command1_Click()Dim x$, n%第 7 页x = “ABCDEFGHIJK“Don = Len(x)x = Mid(x, 2, n - 2)Loop Until n a(j+1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) =
14、x(58) End IfNext jIf (59) Then Exit ForNext iEnd Sub* *第 9 页5程序运行后，自动生成一个由 10 个随机整数组成的数组并在窗体上显示该数组，然后根据提示输入数组序号，删除数组中指定序号的元素，接着再将删除后的数组重新输出。【程序】Dim a()，n As Integer(60) Private Sub Form_Activate()Randomize(61) For n = 0 To ka(n) = Int(Rnd * 100)Next nPrint “输出数组：“ : Output aEnd SubPrivate Sub Comman
15、d1_click()Don = Val(InputBox(“请输入删除数组中第几个元素（0-10）：“)Loop Until (62) (63) Print “重新输出数组：“ : Output aEnd SubPrivate Sub DeleteArray(x(), ByVal i)For n = i To k - 1x(n) = (64) NextReDim Preserve x(n - 1)End SubPrivate Sub Output(x()For n = 0 To (65) Print x(n)Next nEnd Sub四、根据下列题意编写 Visual BASIC 程序：（18
16、 分）【程序】假设在 D 盘 DATA 文件夹中有一个直接存取文件 Source.DAT，内有 20个记录，记录长度为 10，每个记录内有一个实数。程序运行后从文件 Source.DAT中读入这 20 个实数并在窗体上输出，同时提示要求从键盘输入一个实数 X，然后找出 20 个数中所有大于 X 的实数，并将全部大于 X 的实数存入一个新的直接存取文件Target.DAT 中，如果 20 个数中没有任何数大于 X。则在窗体上输出“没有数大于 第 10 页X（X 用实际输入的数字） ”。答 卷一、选择填空（36 分）(每空 1 分)(1) (2) (3) (4) (5) (6)(7) (8) (9
17、) (10) (11) (12)(13) (14) (15) (16) (17) (18)(19) (20) (21) (22) (23) (24)(每空 2 分)(25) (26) (27) (28) (29) (30)二、填空（36 分）(每空 2 分)(31)(32) (33)(34) (35)(36)(37) (38)(39)(每空 3 分)(40) (41)第 11 页(42) (43)(44) (45)三、程序填空（60 分）（每空 3 分）(46)(47)(48)(49)(50)(51)(52)(53)(54)(55)(56)(57)(58)(59)(60)(61)(62)(63)第 12 页(64)(65)四、编程序（18 分）
