VB程序设计-试题与答案-1

《VB程序设计基础》试卷第1页共11页《VB程序设计基础》试题得分评卷人一、选择题：（每空2分，共20分）1.与传统的程序设计语言相比,VisualBasic最突出的特点是___________。A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术2.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是________。A.属性、事件、方法B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块3.窗体模块保存在一个扩展名为__________的文件中。A.basB.vbpC.vbgD.frm4.下面正确的赋值语句是_________。A.x+y=30B.y=π*r*rC.y=x+30D.3y=x5.设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。A.“492”B.“249”C.“294”D.“429”6.将数学表达式a≤b≤c写成VisualBasic表达式，正确的是__________。A.a=b=cB.a=bOrb=cC.a=bAndb=cD.a=bNotb=c7.为了把焦点移到文本框，所使用的方法是___________。A.SetFocusB.VisibleC.RefreshD.GetFocus8.INT（100*RND）产生的随机整数的闭区间是_____________。A.[0，100]B.[1，100]C.[1，99]D.[0，99]9.一个数组说明为Dima(0to5，1to5)AsInteger，则该数组共有_________个元素。A.5B.36C.30D.不确定10.下面过程定义语句合法的是____________。《VB程序设计基础》试卷第2页共11页A.FunctionP1（P1）B.FunctionP1（ByValxAsInteger）AsIntegerC.SubP1（xAsInteger）AsSingleD.SubP1（ByValx（））1．找出100以内能同时被3、5、7整除的最小5个数据。PrivateSubCommand1_Click()Dimcountn%,n%n=1:countn=0Don=n+1If___________________________________________ThenPrintncountn=countn+1EndIfLoop_______________________EndSub2.输出杨辉三角前五行。OptionBase1PrivateSubCommand1_Click()Dima(5,5)AsInteger,iAsInteger,jAsIntegerFori=1To5a(i,1)=1得分评卷人二、填空题：（每空3分，共18分）《VB程序设计基础》试卷第3页共11页_____________________________NextiFori=1To5Forj=2Toi-1________________________________NextjNextiFori=1To5Forj=1ToiPrinta(i,j),NextjPrintNextiEndSub3.求水仙花数。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,xAsIntegerFora=1To9Forb=0To9Forc=0To9x=_____________________If____________________________ThenPrintxNextcNextbNexta《VB程序设计基础》试卷第4页共11页EndSub1.点击窗体时，分析程序的执行结果。PrivateSubForm_Click()Fori=1To5Forj=1ToiPrint*;NextjPrintNextiEndSub程序功能结构分析：程序执行结果：2.单击命令按钮时，分析程序的执行结果。PrivateFunctionP(NAsInteger)dimsum%ForI=1ToNsum=sum+1NextI得分评卷人三、程序分析题：（每题6分，共12分）《VB程序设计基础》试卷第5页共11页P=sumEndFunctionPrivateSubCommand1_Click()S=P(1)+P(2)+P(3)+P(4)PrintS;EndSub程序功能结构分析：程序执行结果：1.编制如下图所示的程序。本程序根据如下公式，由输入的身高计算标准体重。男：标准体重（kg）=身高（cm）-100女：标准体重（kg）=身高（cm）-105得分评卷人四、基本操作题：（每题10分，共20分）《VB程序设计基础》试卷第6页共11页2.编写一个窗体，窗体上有一个标签，并且标签上字的颜色可以不停的变化，标签从窗体的上部向下部滚动出现。1．求：1+2！+3！+4！+……+n!（n为任意输入的一个正整数）。得分评卷人五、综合应用程序设计题：（每题15分，共30分）《VB程序设计基础》试卷第7页共11页2.输入若干个学生的成绩（以-1为结束标志），存入一维数组中，统计输入的成绩个数、最高分、最低分、平均分和及格率。《VB程序设计基础》试卷第8页共11页参考答案一、选择题：（每空2分，共20分）1.C2.A3.D4.C5.B6.C7.A8.D9.C10.B二、填空题：（每空3分，共18分）1.nmod3=0Andnmod5=0Andnmod7=0untilcountn=52.a(i,i)=1a(i,j)=a(i-1,j)+a(i-1,j-1)3.x=100*a+10*b+cx=a^3+b^3+c^3三、程序分析题：（每题6分，共12分）1.程序功能结构分析：单击窗体，在窗体上输出五行星号，第1行输出一个*号，第2行输出两个*号，以此类推，第5行输出五个星号。该程序结构为双重循环结构，循环体中Print*语句一共执行15次。程序执行结果：2.程序功能结构分析：程序中定义了一个函数过程P，含一个形参N，其功能是求N个1之和。当点击命令按钮时，分别四次调用函数过程P，并分别将实参1、2、3、4传递给形参N。然后，将P返回的值求和，并输出。程序执行结果：四、基本操作题：（每题10分，共20分）《VB程序设计基础》试卷第9页共11页1.参考答案：PrivateSubCommand1_Click()IfOption1.ValueThenText2.Text=Val(Text1.Text)-100ElseText2.Text=Val(Text1.Text)-105EndIfEndSub2.参考答案：PrivateSubForm_Click()Label1.Caption=欢迎学习VB程序设计&vbNewLine&NowTimer1.Interval=500EndSubPrivateSubTimer1_Timer()Label1.ForeColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))IfLabel1.TopForm1.HeightThenLabel1.Top=Label1.Top+50ElseLabel1.Top=0EndIfEndSub五、综合应用程序设计题：（每题15分，共30分）1.参考答案：PrivateSubCommand1_Click()DimnAsInteger,sumAsDouble,fAsDouble,iAsInteger《VB程序设计基础》试卷第10页共11页sum=1f=1n=Val(Text1.Text)Fori=2TonStep1f=f*isum=sum+fNextiText2.Text=Str(sum)EndSub2.参考答案：OptionBase1PrivateSubCommand1_Click()Dims(100)AsSingle,nAsInteger,maxAsInteger,minAsInteger,sumAsSingle,fAsSingle,iAsInteger,countAsIntegern=0:count=0sum=0Fori=1To1000s(i)=InputBox(请输入第&i&个学生的成绩：,成绩录入)Ifs(i)=-1ThenExitForn=n+1Print第&i&个学生的成绩：&s(i)NextiText1.Text=nmax=0min=100Fori=1Tonsum=sum+s(i)Ifs(i)maxThenmax=s(i)《VB程序设计基础》试卷第11页共11页Ifs(i)minThenmin=s(i)Ifs(i)60Thencount=count+1NextiText2.Text=maxText3.Text=minText4.Text=sum/nText5.Text=(count/n)*100&%EndSub