搜索
409华南理工大学2005年攻读硕士学位研究生入学考试试卷（试卷上做答无效，请在答题纸上做答，试后本卷必须与答题纸一同交回）科目名称：高级语言程序设计适用专业：建筑技术科学共9页第1页说明1．请把答案写到答卷内，不写入答卷内的不得分。2．试题包括微机应用基础及VisualBASIC语言两部分。3．试题及答案中均以“ㄩ”表示一个空格。4．全部试题共4大题，满分150分。一、选择填空，在下面各小题4个可能的答案中选出唯一正确的答案填入空格中：（第1～24号空格每空1分，第25～30号空格每空2分，共36分）第一部分：微机应用基础1．微机上操作系统的作用是(1)。(1)A)解释执行源程序B)编译源程序C)进行编码转换D)控制和管理系统资源2．在计算机中，—个字节是由(2)个二进制位组成的。(2)A)4B)8C)16D)323．将高级语言编写的程序翻译成机器语言程序，通常采用两种翻译方式，这两种方式是(3)。(3)A)编译和解释B)编译和汇编C)汇编和链接D)解释和汇编4．计算机在工作中突然断电，则存放在(4)中的信息将会丢失(4)A)ROMB)RAMC)ROM和RAMD)硬盘5．在Windows中剪贴板是程序和文件间用来传递信息的临时存储区，此存储区是(5)。若要将当前窗口存入剪贴板中，可以按(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)所有图标都可以重命名7．当选定文件或文件夹后，不将文件或文件夹放到“回收站”中而直接删除的布丁考研网，在读学长提供高参考价值的考研真题资料页操作是(8)。(8)A)按【Delete】键B)按【Alt】+【Delete】键C)按【Shift】+【Delete】键D)用“我的电脑”窗口中“文件”菜单中的删除命令。8．在下面的四个操作中，除了(9)外，都可以使当前正在运行的一个应用程序窗口转到另一个应用程序窗口。(9)A)按【Alt】+【Tab】键B)按【Alt】+【Shift】键C)按【Alt】+【Esc】键D)用鼠标单击另一应用程序窗口9．阅读下面两条关于多媒体计算机的叙述：甲、多媒体计算机系统与普通计算机系统一样，仍由硬件系统和软件系统组成。乙、多媒体计算机技术是指、用计算机交互地综合处理磁盘信息、磁带信息和光盘信息等多种信息。经判断，(10)。(10)A)甲正确、乙不正确B)乙正确、甲不正确C)甲、乙都正确D)甲、乙都不正确10．在以下四项中，(11)是宏病毒的主要感染对象。(11)A)com文件B)exe文件C)doc文件D)引导区11．在万维网地址栏输入框中，(12)为非法的访问方式(12)A))telnet://center.njt.edu.cnC))Open://第二部分：VisualBASIC语言12．定义VisualBASIC变量为双精度变量的类型说明符是(13)。(13)A)%B)#C)＄D)＆13．在下列运算符的排列顺序中，只有(14)是按照运算符优先级的顺序从高到低排列。(14)A)\Mod/B)/Mod\C)Mod\/D)/\Mod14．如果想把命令按钮设置为如右图那样的形式，那么必须把命令按钮的Caption属性设置为:(15)。(15)A)#RUNB)_RUNC)&RUND)@RUN15．当驱动器列表框的Drive属性被修改时，会引发(16)事件。(16)A)ClickB)ChangeC)GotFocusD)Load16．文本框没有(17)属性。如果要设置文本框最多可以接受的字符个数，则应当使用(18)属性设置。(17)A)BackColorB)CaptionC)EnabledD)Visible(18)A)LengthB)MaxC)MaxLengthD)MultilineRUN布丁考研网，在读学长提供高参考价值的考研真题资料．在下列选项中，选项(19)不可以实现变量a和b值的交换。(19)A)a=b:b=aB)x=b:b=a:a=xC)t=a:a=b:b=tD)a=a+b:b=a-b:a=a-b18．下列四个一维数组说明语句中，(20)是错误的。(20)A)DimB(100)AsSingleB)DimB(-5To5)AsDoubleC)DimB(-10To-20)AsStringD)DimB(5To5)19．不能拥有子对象的对象是(21)。(21)A)窗体B)框架控件C)图片框控件D)图像框控件20．当命令按钮的(22)属性被设置为True时，按【ESC】键与单击该命令按钮的作用相同。(22)A)CancelB)DefaultC)EnabledD)Visible21．应使用(23)函数来判断顺序文件的数据是否读完，。(23)A)EOFB)LOFC)LOCD)FreeFile22．在VisualBASIC的标准模块中不能定义(24)。(24)A)公共过程B)函数过程C)子过程D)事件过程23．设X是一个正实数，可使用表达式(25)对X进行只保留一位小数的四舍五入运算。(25)A)Int(X+0.05)/10B)Int((X+0.05)/10)C)Int(10*(X+0.05))/10D)Int(10*(X+0.05)/10)24．已知A＝93、B＝90、C＝82，下列两式的逻辑值分别是：(26)。甲、A=100ORB=85ANDCA-15乙、A+B+C(A-B)*C(26)A)甲、乙均为逻辑真B)甲、乙均为逻辑假C)甲为逻辑真、乙为逻辑假D)乙为逻辑真、甲为逻辑假25．阅读下面求S=1!＋2!＋3!＋……＋10!的程序：PrivateSubForm_Click()Dimm,n,s,tForm=1To10Forn=1Tomt=t*nNextns=s+tNextmPrintS=;sEndSub该程序有错误，正确的改正办法是：(27)。(27)A)在位置①插入s=0:t=1①②③布丁考研网，在读学长提供高参考价值的考研真题资料)在位置②插入s=0:t=1C)在位置①插入s=0，在位置②插入t=1D)在位置②插入s=0，在位置③插入t=126．以下过程和函数定义中，(28)是错误的。(28)A)PrivateSubSF(AAsString)B)PrivateSubSF(AAsString)AsIntegerC)PrivateFunctionSF(AAsString)D)PrivateFunctionSF(AAsString)AsInteger27．阅读下列事件过程:PrivateSubForm_Click()DimA&,B&,X&Openfile.datForRandomAs#1Len=4A=1B=2Put#1,A,BGet#1,1,XClose#1PrintXEndSub上述程序执行后在窗体上的输出结果是(29)。(29)A)1B)2C)1，2D)ㄩ1ㄩㄩㄩㄩㄩㄩㄩㄩㄩㄩㄩㄩㄩ2ㄩ28．求正整数A和B的最大公约数的子过程如下:SubGCD(ByValAAsInteger,ByValBAsInteger)DimRAsIntegerDoR=AModBA=BB=RLoopUntilR=0Form.PrintA,BEndSub现判断下面两个关于该子过程的叙述的正确性:甲、调用该子过程时,要保证形式参数A、B满足A≥B。乙、最后在窗体上输出的A、B中,B是最大公约数。经判断，在这两个叙述中，(30)。(30)A)甲正确，乙不正确B)甲不正确，乙正确C)甲、乙都正确D)甲、乙都不正确布丁考研网，在读学长提供高参考价值的考研真题资料页二、填空题：（第31～39号空格每空2分，第40～45号空格每空3分，共36分）1．53cos21的VisualBASIC表达式是(31)。2．求下列表达式的值：Sqr(Asc(z)-Asc(a))的值为(32)；45\2Mod3.2*Int(5.2)的值为(33)；InStr(VisualBasic6.0,BASIC)的值为(34)。3．一个工程的界面如下图，其窗体上共有三个控件：命令按钮CmdRun、命令按钮CmdExit、列表框List1。该工程的代码如下：PrivateSubCmdRun_Click()DimiAsIntegerFori=List1.ListCount-1To0Step-1IfList1.Selected(i)ThenList1.RemoveItemiNextiEndSubPrivateSubCmdExit_Click()EndEndSub阅读代码后，请回答：①列表框的Columns属性值是(35)。②该工程的功能是什么？(36)。③For语句可否改写为Fori=List1.ListCountTo1Step–1？(37)。4．控件数组由一组类型相同和(38)相同的控件组成，共享(39)。5．下列程序运行后共输出了8个数，输出的第三个数为(40)，输出的最后一个数为(41)。Subp(xAsInteger,ByValyAsInteger)x=xMody:y=Int(x/3)+yPrintx,yEndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=25:y=7Callp(y,x-10):Printx,ypx,y:Printx,yEndSub布丁考研网，在读学长提供高参考价值的考研真题资料．以下程序运行后输出了(42)个“?”。PrivateSubForm_Click()DimI%ForI=1To4PrintST(2)NextIEndSubFunctionST(ByValNAsInteger)AsStringStaticX$DimI%ForI=1ToNX=X&?NextIST=XEndFunction7．以下程序运行后，s的值为(43)，x的值为(44)。PrivateSubCommand1_Click()Dimx,y,sForx=2To6Step0.5SelectCasexCase4y=2.4Case1To3y=-0.7CaseIs5y=8.2CaseElsey=5EndSelects=s+yNextxPrints,xEndSub8．以下程序运行后，x的值为(45)。PrivateSubCommand1_Click()Dimx$,n%x=ABCDEFGHIJKDo布丁考研网，在读学长提供高参考价值的考研真题资料=Len(x)x=Mid(x,2,n-2)LoopUntiln7PrintxEndSub三、根据题意往程序的空格中填上正确的内容，每个空格只能填写一个语句或一个语句的一部分：（每空3分，共60分）1．求满足1×2×3×…×n≥1000的最小n值。【程序】PrivateSubForm_Click()DimN%,T%N=0:T=1While(46)N=N+1T=(47)WendPrint最小的N值=;NEndSub2．一个正方体骰子6个面。现在按照如下方法进行掷骰子试验：连续掷骰子直到全部6个面每个面至少有一次向上为止，记录下此时的投掷次数N，假定这样的试验进行20轮，共记录下20个N值，求N的平均值。【程序】PrivateSubForm_Click()DimA%(1To6),M%,N%,K%,X%RandomizeForK=1To20(48)A(1)=0:A(2)=0:A(3