《VB程序设计》作业册答案(民办)

1第1-2章VisualBasic导论与算法一、单项选择题题号123456789答案CCBABCBCB二、简答题1、有一个红色、充满氢气的气球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺它，它会爆破。请问，对于气球对象，哪些是属性，哪些是事件，哪些是方法？答：属性：红色、充满氢气事件：松开；刺（松开手抓的引线、针刺）方法：飞走；爆破。2、请简述算法具有哪些特征？答：确定性、可行性、有穷性、输入性和输出性。3、设x和y是同一类型的变量，试设计一个算法，把x与y中的数据相互交换。方法一：T=X：X=Y：Y=T方法二：X=X+Y：Y=X-Y：X=X-Y2第3章常见控件与界面设计一、单项选择题题号12345678910答案CBBDDCABAD题号11121314151617181920答案BCADBDBBCC题号21222324252627282930答案BBADCBCABB二、填空题题号答案题号答案1Click11True2Left12组合框或comboBox3Myfirst13Setfocus4Form1.Show14事件5Picture15Interval6Timer16位图或图标7True17对其它控件8Locked18选中、未选中9Tabindex19项目列表10020Picture三、简答题1、VB的常用控件中，哪些控件具有Caption属性，而没有Text属性？哪些控件具有Text属性，却没有Caption属性？答:有Caption属性，而没有Text属性:Form,Label,Command,Option,Checkbox,Frame,Data有Text属性，却没有Caption属性:Textbox,Listbox,ComboBox3第4章数据、表达式与简单程序设计一、单项选择题题号12345678910答案DCACABDCBD题号11121314151617181920答案CBBBABABCD题号21222324252627282930答案BDACBBDACB题号31323334353637383940答案AABDCBABBA二、填空题题号答案题号答案题号答案1标准模块11a=1XORb=121Beijing2912True22CDEF32313-123-32-224x*ymodz14-324Sin(15*3.14/180)-Log(3*x)5长整型15325xmod5=0ORxmod9=06A=Int（A）ANDB=Int（B）ANDA*B016x=1andx1226False7123.5517True27SCII编码8018528034.69419False29200+Int(Rnd*101)10OptionExplicit20-5630Click三、编程题1、编写程序，输入三角形的两个边长以及夹角的角度数，求三角形的面积。DimaAsSingle,bAsSingle,angAsSingle,SAsSingleConstPiAsSingle=3.1416a=Val(Text1)b=Val(Text2)4ang=Val(Text3)S=1/2*a*Sin(ang/180*Pi)*bText4=S2、写出显示如下信息框的InputBox函数。Dimzz=InputBox(输入一个数：,程序示例,1.5)3、写出显示如下信息框的MsgBox函数。（写出三种方法）方法1：Dimzz=MsgBox(z的值1.5大于0,48,程序示例)方法2：PrintMsgBox(z的值1.5大于0,48,程序示例)方法3：MsgBoxz的值1.5大于0,48,程序示例第5章选择分支与循环一、填空题题号答案题号答案1Case3To751110826556BBABBA3DDEFFDDEFFEDDEF7t=x；Abs(t)esp465831528二、编程题（说明：界面自行设计，并上机调试，作业册上只需写出相应的主要程序代码和正确的运行结果。）1、编写程序代码，随机生成100个两位整数，并统计出其中小于等于40，大于40小于等于70以及大于70的数据个数。方法1：PrivateSubCommand1_Click()Dimsum,a%,b%,c%Dimi%a=0:b=0:c=0Fori=1To100sum=Int((99-10+1)*Rnd)+10SelectCasesumCaseIs=40a=a+1Case40To705b=b+1CaseElsec=c+1EndSelectNextiText1=a:Text2=b:Text3=cEndSub方法2：OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,IAsIntegerDimc1AsInteger,c2AsInteger,c3AsIntegerRandomizeForI=1To100a=Int(90*Rnd)+10Ifa=40Thenc1=c1+1ElseIfa=70Thenc2=c2+1Elsec3=c3+1EndIfNextIPrint其中，小于等于40的数有;c1;个；Print大于40、小于等于70的数有;c2;个；Print大于70的数有;c3;个。EndSub2、编写程序，求下面函数的值。方法1:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=Val(Text1)Ifx=0Theny=2-xElseIfx=2Theny=x+2ElseIfx=5Theny=x^22-xx≤0x+20x≤2y=x22x≤525-xx56Elsey=25-xEndIfText2=yEndSub方法2:PrivateSubCommand2_Click()DimxAsInteger,yAsIntegerx=Val(Text1)SelectCasexCaseIs=0y=2-xCaseIs=2y=x+2Casex=5y=x^2CaseElsey=25-xEndSelectText2=yEndSub3、编写程序，求用InputBox函数输入的10个数的和数以及连乘积。DimIAsInteger,aAsInteger,sumAsLong,factAsLongsum=0'累加器置0fact=1'累乘器置1ForI=1To10a=InputBox(请输入一个数：,提示)Printa;sum=sum+a'累加fact=fact*a'累乘NextIPrintPrint这十个数的和为：;sumPrint这十个数的积为：;fact7第6章数组一、单项选择题题号12345678910答案CCBCACADCA二、填空题题号答案题号答案1104415520:12：34：15210；101；0123DHL；NRV；XBF三、编程题1、随机生成20个100以内的两位正整数，并统计其中有多少个不相同的数。Dima()AsIntegerPrivateSubCommand1_Click()ReDima(20)RandomizeFori=1To20a(i)=Int(100*Rnd)+1Text1=Text1&Str(a(i))NextiEndSubPrivateSubCommand2_Click()i=1:n=20DoWhileinj=i+1DoWhilej=nIfa(i)=a(j)ThenFork=jTon-1a(k)=a(k+1)Nextkn=n-18'ReDimPreservea(n)'该语句不是必需的Elsej=j+1EndIfLoopi=i+1LoopPrintn‘不相同的个数Fori=1TonText2=Text2&Str(a(i))NextiEndSub2、编写一个求由一位随机整数构成的数组每一行与每一列之和。Dima(5,5)AsIntegerPrivateSubCommand1_Click()'生成数组Fori=1To4Forj=1To5a(i,j)=Int(9*Rnd)+1Picture1.Printa(i,j);NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()'求列和Forj=1To5s=0Fori=1To4s=s+a(i,j)NextiText1=Text1&Str(s)NextjEndSubPrivateSubCommand3_Click()'求行和Fori=1To4s=0Forj=1To5s=s+a(i,j)NextjText2=Text2&Str(s)&Chr(13)&Chr(10)9NextiEndSub3、设有一个二维数组A（5,5），编写程序计算：（参考界面如下图所示）（1）所有元素之和；（2）所有靠边元素之和；（3）两条对角线元素之和。Dima(5,5)AsIntegerPrivateSubCommand1_Click()'生成数组Fori=1To5Forj=1To5a(i,j)=Int(100*Rnd)+1Picture1.Printa(i,j);NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()'求所有元素和Fori=1To5Forj=1To5s=s+a(i,j)NextjNextiText1=Str(s)EndSubPrivateSubCommand3_Click()'求靠边元素和Fori=1To5Forj=1To5Ifi=1Orj=1Ori=5Orj=5Thens=s+a(i,j)EndIfNextjNextiText2=Str(s)EndSubPrivateSubCommand4_Click()'两条对角线元素和Fori=1To5Forj=1To5Ifi=jOri=6-jThens=s+a(i,j)EndIf10NextjNextiText3=Str(s)EndSub