03-04学年第2学期vb考试题

《03-04学年第2学期vb考试题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、2003-2004学年第二学期计算机应用课程试题命题教师孙健敏审题教师李书琴题目一二三四五总分得分一、填空题(每空1分，共10分)1．对象具有属性、方法和。2．使用变量而定义变量，则变量的类型为。3．存储一个单精度数据要占用字节。4．声明PI为一个符号常量，表示3.1415，需要使用的语句为：。5．将变量X声明为整型变量的语句为：。6．设x=8，y=5，则表达式Not(x>y)Or"ABC">Left("ACDE",3)的值为。7.设a=2,b=3,c=4,d=5，则表达式a*2>cordmoda=candb<>corc

2、机整数的表达式为：。9．在VB中"ASCII"、"ascii"、"Ascii"这三个字符串比较，最小的是。10．数据文件按访问方式分为顺序文件和随机文件两种，顺序文件以形式存储。二、选择题(题每题2分，共10分)1.在程序运行过程中，要是标签能够显示所需要的文本，则在程序中应设置以下哪个属性的值（）A）CaptionB)TextC)NameD)Seltext2．一个控件能实现选择功能的是（）A)文本框控件B)框架控件C)命令按钮控件D)列表框控件3.正确的VB逻辑表达式是（）A）X>YNOTY>ZB）X>Y>ZC）X>YAND>ZD）X>YNOTY>Z4．设a＝5，b=8

3、下列程序中能实现交换两个变量值的代码是（）locatedintheTomb,DongShenJiabang,deferthenextdayfocusedontheassassination.Linping,Zhejiang,1ofwhichliquorwinemasters(WuzhensaidinformationisCarpenter),whogotAfewbayonets,duetomissedfatal,whennightcame第7页A)a=bB)a=bb=ab=aPrinta,bswap(a,b)C)c=aD)b=aa=ba=bb=cPrinta,b5．下列求

4、两个数中最大数的代码中，正确的是（）A)max=aB)Ifb>athenIfb>athenmax=bmax=bendifendifmax=aPrintmaxPrintmaxC)ifa>bthenPrintaD)max=iif(a>b,b,a)Printb三、写出程序运行结果(每小题4分,共24分)1.程序运行时从键盘输入5，则下面程序运行结果为：DimxAsInteger,yAsIntegerx=Val(InputBox("请输入变量的值"))Ifx<>0ThenIfx>0Theny=x^2+1Elsey=x^2-1EndIfElsey=0EndIfPrint"x=";x

5、,"";"y=";y2.写出下面程序运行结果。DimyasString,xasStringlocatedintheTomb,DongShenJiabang,deferthenextdayfocusedontheassassination.Linping,Zhejiang,1ofwhichliquorwinemasters(WuzhensaidinformationisCarpenter),whogotAfewbayonets,duetomissedfatal,whennightcame第7页y="abcd"Fori%=1TO4Forj%=1TOi%X=mid(y,j,1)

6、Printx;Nextj%PrintNexti%3.写出下面程序运行结果。DimsAsInteger,nAsInteger,fAsIntegerf=-1s=0:n=1DoWhilen<=10s=s+f*nf=-fn=n+1LoopPrint"s=";s4．写出下面程序运行结果。Dimm%,i%,flagAsBooleanForm=2to10flag=TrueFori=2Tom-1Ifm/i=miThenflag=FalseExitForEndIfNextiIfflag=TrueThenPrintm;locatedintheTomb,DongShenJiabang,def

7、erthenextdayfocusedontheassassination.Linping,Zhejiang,1ofwhichliquorwinemasters(WuzhensaidinformationisCarpenter),whogotAfewbayonets,duetomissedfatal,whennightcame第7页Nextm5.写出下面程序运行结果。Dima(3,3)AsIntegerFori=1To3Forj=1To3Ifi=jThena(i,j)=1Elsea(i,j)=0EndIfNextjNextiF