VB试题及其答案(2005.7)

1高级语言程序设计（VB）试卷及答案2005.7院（系）：班级：学号：姓名：注意事项:1．本试卷共五大题，满分100分，考试时间120分钟。2．所有答案请写在答卷上，答在其它地方无效；3．试卷作草稿纸，与答卷同时提交，答卷才有效。一、填空题（每题1分，共10分）1.数值表达式x+1/y*Exp(a*t)+z所表示的数学式子是（zeyxat1）。2．数值表达式11Mod9\2的值为（3）。3．表示条件5≤A≤10的逻辑表达式是（5=aAnda=10）。4．若x=2、y=4和z=6,则逻辑表达式Not(xy)Orx+y+z50And100/zy^x的值为（True）。5．用语句Dima(2To7,6),b(-10To10)定义的数组a和b一共有（63）个元素。6．要把图形文件“D:\P1.jpg”装载到图片框Picture3上，使用的语句为（Picture3.Picture=LoadPicture(“D:\P1.jpg”)）。7．在窗体上使用Print方法输出列表框List1中序号为5项目内容，语句为（PrintList1.List(5)）。8．当单选按钮OptionButton的Value属性值为（False）时，表示该单选按钮处于未选中状态。9．自定义函数过程Cap的功能是求字符串X的首字符,如果首字符是字母,还要把它转换成大写字母,则该自定义函数过程应为:FunctionCap(ByValXasString)AsStringCap=(UCase(Left(X,1))或Left(UCase(X),1))EndFunction10．若在标准模块中以关键字public定义子过程，则在（整个应用程序）中都可以调用该子过程。二、单项选择题（每题1.5分，共30分）1．&是（B）的类型说明符。A）整型B）长整型C）单精度实型D）双精度实型2．在下面4组字符序列中,只有（A）中的所有字符序列可以作为VB的变量名。A）Apple、Pupil_Mark、E30B）Ball、5C、φ0C）Car-5、Track、Wm424D）M7K、Product、Sgn3．能够产生绝对值小于50的随机整数的表达式是（B）。A）Int(98*Rnd)-49B）Int(99*Rnd)-49C）Int(100*Rnd)-50D）Int(101*Rnd)-504．下列程序段运行后输出的结果是（D）。PrivateSubForm_ClickDimX#,Y#X=5:Y=6PrintX+Y=112EndSubA）X+Y=11B）5+6=11C）11D）True5．在使用情况语句时，想在Case子句中指定测试表达式的值的范围为闭区间[5,10]，现有如下Case子句：(1)Case5To10(2)CaseIs=5,Is=10(3)CaseIs=5AndIs=10那么，在这3个Case子句中，正确的有（B）个。A）0B）1C）2D）36．执行下列程序段输出结果是（D）。x%=2whilex10Print“*”；x=x+2wendA)*B)**C)***D)****7．下列程序段执行后，i的输出值是（C）。Fori=1To3i=i+1NextiPrintiA）3B）4C）5D）68．控件的(A)属性不会影响控件的显示和外观。A）NameB）CaptionC）FontNameD）BackColor9．文本框可以使用（B）方法。A）Print方法B）SetFocus方法C）Print方法和Cls方法D）Print方法、Cls方法和SetFocus方法10．命令按钮不能接受(D)事件。A)GotFocusB)LostFocusC)ClickD)DblClick11．拥有Autosize属性的控件是（A）。A）图片框和标签（控件去适应内容）B）图像框和标签C）图片框和图像框D）图片框、图像框和标签12．属性（C）决定控件在父对象中的位置。A）CurrentX、CurrentYB）Height、WidthC）Left、TopD）Max、Min13．（C）控件没有Height和Width属性。A）复选框B）单选按钮C）计时器D）驱动器列表框14．删除列表框中的某一个项目，需要使用（D）方法。A)ClearB)RemoveC)MoveD)RemoveItem15．组合框控件不拥有(A)属性。A）ScrollBarB）IndexC）BackColorD）Top16．在程序中，能否出现语句：DimA(1toN)?正确的回答是（B）。A)不可以B)若在这个语句前面已经把N设置为正整数的符号常量，就可以出现这个语句3C)若在这个语句前面已经对N赋了正整数值，就可以出现这个语句D)B)和C)都对17．设有数组说明语句：Dimc（-１To１，１To５），则下列表示数组c的元素选项中（C）是正确的。A)c(i+j)B)c(i)(j)C)c(i+1,j-1)D)c(1,0)18．在以下关于变量作用域的描述中，不正确的是（D）。A)当某过程级变量与全局变量同名，全局变量在这个过程中就会被屏蔽B)静态变量不是模块级或工程级变量，其作用域只限于在它所定义的过程内部C)在某一个过程中定义的变量的作用域只能是这一过程D)在某一个模块中定义的变量的作用域只能是这一模块19．假设已定义子过程p，它有3个数值参数；再设a为实型变量，调用子过程p的正确语句为（C）。A)pB)callp0.5,a,100C)callp(0.5,cos(0.1),a+10)D)p(0.5,1.2,100)20．当目录列表框的Path属性被修改时，会引发(A)事件。A）ChangeB）ClickC）GotFocusD）KeyPress三、程序阅读题(第1,2题各6分，其余题各4分，共24分)1．写出执行下列事件过程的输出结果。PrivateSubForm_Click()Dimi,x,yFori=1To3x=(-2)^i+2SelectCasexCase6,Is=-3y=x/4+6Case10To50y=x*x/2CaseElsey=0EndSelectPrintx=;x,y=;yNextiEndSubx=0y=0x=6y=7.5x=-6y=4.52．写出执行下列事件过程的输出结果。PrivateSubCommand1_Click()Dimi%,j%,x%,y%x=0:y=1Fori=1To3Forj=2To3x=x+jNextj4y=y+iPrintx,yNextiEndSub521041573.写出运行程序后下列窗体模块的输出结果。Dima%,x%PrivateSubForm_Activate()a=25CallZich(a)Printa,xEndSubSubZich(ByRefx%)x=Sqr(x)*2Printa,xEndSub10101004．给出下面程序代码，写出执行事件过程Form_Click的输出结果。PrivateSubForm_Click()Dimi%i=1DoWhilei=2PrintAA(i,BB(i-1,i+1)),BB(AA(i-1,i+1),i)i=i+1LoopEndSubFunctionAA(ByValx,ByValy)AsIntegerAA=x*x+yEndFunctionFunctionBB(ByValx,ByValy)AsIntegerBB=x+y*yEndFunction531485．假设窗体上放置了一个计时器Timer1，其Interval属性设置为100。写出以下事件过程执行后的输出结果。PrivateSubTimer1_Timer()StaticmAsIntegerDimnAsIntegerIfm4Then5m=m+1:n=n+3IfmMod2=0ThenPrintm,nEndIfEndSub2343四、程序填空题(每空2分，共20分)1．在窗体上显示如右图所示的图形。【程序】PrivateSubForm_Click()Dima,bFora=1To5PrintTab(6-a);Forb=1To（1）2*a-1Print*;Nextb（2）printNextaEndSub2．求的值。【程序】PrivateSubForm_Click()DimN%,S!,C%,T&,I%N=InputBox(N=)（3）T=1:C=0或T=1ForI=1TONC=C+IT=（4）T*IS=（5）S+C/TNextIPrintSEndSub3．下面Form_Click事件过程的功能是：用随机函数产生一个有10个元素的数组a，在数组a中的元素是互不相等的两位随机整数，并在窗体上输出该数组。【程序】PrivateSubForm_Click()Dim（6）AsIntegera(1To10)DimiAsInteger,jAsInteger,xAsIntegerRandomizeFori=1To10*************************!21!3321!2211nnS6Ifi=1Thena(i)=Int(Rnd*90)+10ElseDox=Int(Rnd*90+10)Forj=1Toi-1If（7）ThenExitForx=a(j)NextjIf（8）Thena(i)=xj=iLoopUntilj=iEndIfPrinta(i);NextiEndSub4．某校举行校园歌手卡拉OK大赛，参赛同学的得分分别由4位评判员给出，现用以下程序把每个参赛同学的姓名及其得分作为记录存放到随机文件Match.dat中，以备后用。【程序】PrivateTypeKararOKNameAsString*8AAsSingleBAsSingleCAsSingleDAsSingleEndTypePrivateSubForm_Load()DimSingerAsKararOK,IAsInteger,NAsIntegerN=InputBox(输入参赛同学人数：)OpenMatch.datForRandomAs#1（9）Len=24或Len=Len(Singer)ForI=1ToNWithSinger.Name=InputBox(歌手姓名：).A=InputBox(输入评判A的评分：).B=InputBox(输入评判B的评分：).C=InputBox(输入评判C的评分：).D=InputBox(输入评判D的评分：)EndWith（10）put#1,I,Singer或put#1,,SingerNextIClose#1EndSub五、程序设计题（第1题10分，第2题6分，共16分）1．某校举行田径运动会，跳高比赛共有8人参加，比赛结果如下表：运动员姓名王小虎赵铁军康健民李辉陈刚刘文山徐强郭大伟成绩（米）1.761.651.701.781.811.601.721.787以上运动员的姓名及成绩已经通过下面的Form_Load事件过程分别存放在Player数组和H数组中:DimPlayer(1To8)AsString,H(1To8)AsSinglePrivateSubForm_Load()Player(1)=王小虎:Player(2)=赵铁军:Player(3)=康健民Player(4)=李辉:Player(5)=陈刚:Player(6)=刘文山Player(7)=徐强:Player(8)=郭大伟H(1)=1.76:H(2)=1.65:H(3)=1.70:H(4)=1.78H(5)=1.81:H(6)=1.60:H(7)=1.72:H(8)=1.78EndSub现要编写一个Form_Click事件过程将比赛结果排出名次并按照下列格式在窗体上输出，成绩相同的并列名次。名次姓名成绩1陈刚1.812李辉1.78郭大伟1.784王小虎1.765徐强1.726康健民1.707赵铁军1.658刘文山1.60PrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsInteger,xAsSingle,sAsStringFori=1To7k=iForj=i+1To8