【精品】03-04学年第2学期VB考试题及标准答案.doc

【精品】03-04学年第2学期VB考试题及标准答案.doc2003-2004学年第二学期计算机应用课程试题命题教叽i M「题教U帀 题目—二三四五总分得分填空题(每空1分,共10分)对象具有属性、方法和 O使用变量而定义变量,则变量的类型为 。存储一个单精度数据要占用 字节。声明PI为一个符号常量,,需要使用的语句为: 将变量X声明为整型变量的语句为: o设x=8,y=5,则表达式No((x>y)Or“ABC">Left(”ACDE”,3)的值为 设a=2,b=3,c=4,d=5,则表达式a*2>cordmoda=candbOcorc〈d的之值为:产生[20,70]范围那的一个随机整数的表达式为: o在VB中〃ASCII〃、〃ascii〃、“Ascii"这三个字符串比较,最小的是 。数据文件按访问方式分为顺序文件和随机文件两种,顺序文件以 形式存储。二、选择题(题每题2分,共10分)在程序运行过程中,要是标签能够显示所需要的文本,则在程序中应设置以下哪个属性的值()A) Caption B)TextC)NameD)Seitext一个控件能实现选择功能的是( )A)文本框控件 B)框架控件C)命令按钮控件 0)列表框控件正确的VB逻辑表达式是()A)X>YNOTY>ZB)X>Y>ZC)X>YAND>ZD)X>YNOTY>Z设a=5,b二8下列程序中能实现交换两个变量值的代码是( ),B)A)a=bb二aPrinta,bc=aa二bA)max=aIfb>athenmax二bendifPrintmaxC)ifa>bthenPrintaPrintba=bb二aswap(a,b)D)b=aa二bPrinta,b正确的是()Ifb>athenmax=bendifmax二aPrintmaxD)max=iif(a>b,b,a)三、写出程序运行结果(每小题4分,共24分)程序运行时从键盘输入5,则下面程序运行结果为:DimxAsInteger,yAsIntegerx=Val(InputBox(M请输入变量的值”))Ifx<>0ThenIfx>0Theny=xA2+1Elsey=xA2-1EndIfElsey=0EndIfPrint”x=“;x,” “;”y=”;y写出下面程序运行结果。DimyasString,xasStringy二〃abcd〃Fori%二1TO4Forj%=lTOi%X=mid(y,j,1)Printx;Nextj%PrintNexti%写出下而程序运行结果。DimsAsInteger,nAsInteger,fAsIntegerf=・1s=0:n=1DoWhilen<=10s=s+f*nf=-fn=n+1LoopPrint”s=”;s写出下而程序运行结果。Dimm%,i%,flagAsBooleanForm=2to10flag=TrueFori=2Tom・1Ifm/i=m\iThenflag=FalseExitForEndIfNextiIfflag=TrueThenPrintm;Nextm写岀下面程序运行结果。Dima(3,3)AsIntegerFori=1To3Forj=1To3Ifi=jThena(i,j)=1Elsea(i,j)=0EndIfNextjNextiFori=1To3Forj=1To3Printa(i,j);Next,jPrintNextI写岀下面程序运行结果。DimsAsIntegerDimiAsIntegers=0Fori=1To3s=s+sum(i)NextiPrint,fsum=,r;sFunctionsum(nAsInteger)AsIntegerDimiAsInteger,fAsIntegerf=0Fori=1Tonf=f+iNextisum=fEndFunction四、完善程序(每小题5分,共20分)输入a,b,c三个数,输出最大的数。a=Val(InputBox(,M,))b=Val(InputBox(,M,))c= IFb>=aThenMax二aElseEndIfIf ThenEndIfPrint 对给定的一组数123、32、90、、8、170、51,键盘输入一个数,用顺序查找法找出该数在数组中的位置。Dima(),m%,n%,i%Dimx!,pAsBooleana=Array仃23,32,90,13,65,8,170,51)m=LBound(a)X=InputBox(z/请输入要查找的数〃)P= Fori=mTo Ifx=a(i)Thenp=TrueEndIfNextiIfp=TrueThenPrint〃找到了,在数组中的位置为第〃&i&〃位〃ElseEndIf己知某班学生共30人,每人有4门课程成绩,求每个学生的平均成绩,每门课平均成绩。DIMA(30,4)For1=1TO30Fo