《Visual_Basic程序设计基础》陈庆章_课后习题参考答案

《VisualBasic程序设计基础》教材习题参考答案第1章VisualBasic6.0程序设计概述一、判断题1．√2．√3．×说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。4．√5．×6．√7．×8．√9．√10．×11．√12．√13．×14．√15．×16．√17．√18．√19．√20．√二、选择题1.C2.B3．D4．C5．B6．A7．D8．A9．B10．A11．C12．D三、填空题1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）4．对象5．Left、Top6．属性、对象名.属性名=表达式7．网格8．Form19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。表10-1实例2各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件1Name(Label1)Caption(我的第一个VB程序)标签控件2Name(Label2)Caption(请输入你的姓名)FontUnderLine(True)FontItalic(True)命令按钮1Name(Command1)Caption(确定(&O))命令按钮2Name(Command2)Caption(结束(&X))过程设计如下：PrivatesubForm_Click()Command2.Enabled=FalseEenSubPrivateSubCommand1_Click()Label2.Visible=FalseLabel1.Caption=Text1.Text+:欢迎使用+Label1.CaptionText1.Visible=FalseCommand1.Enabled=False:Command2.Enabled=TrueEndSubPrivateSubCommand2_Click()EndEndSub程序2．界面设计略，过程设计如下：PrivateSubCommand1_Click()'字体变大Form1.FontSize=Form1.FontSize+3Form1.Cls:Print欢迎使用VBEndSubPrivateSubCommand2_Click()'字体变小Form1.FontSize=Form1.FontSize-3Form1.Cls:Print欢迎使用VBEndSubPrivateSubCommand3_Click()'字体加粗Form1.FontBold=TrueForm1.Cls:Print欢迎使用VBEndSubPrivateSubCommand4_Click()'字体不加粗Form1.FontBold=FalseForm1.Cls:Print欢迎使用VBEndSub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。程序3．界面设计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight值仅与窗体有效绘图区域的高度有关）：PrivateSubForm_Load()Text1.Text=VisualBasic程序设计EndSubPrivateSubForm_Resize()Text1.Top=0:Text1.Left=0Text1.Width=Form1.ScaleWidth/2'用Form1.ScaleWidth效果优于用Form1.WidthText1.Height=Form1.ScaleHeight/2'用Form1.ScaleHeight优于用Form1.HeightCommand1.Top=Form1.ScaleHeight-Command1.HeightCommand1.Left=Form1.ScaleWidth-Command1.WidthEndSub第2章程序设计基础一、判断题1．√2．×3．×4．×5．√6．×7．√8．√9．√10．×二、选择题1．B2．D3．A4．C5．C6．B7．A8．D9.C10．A三、填空题1．String2．43．aaa4．1455．66．37．188．False9．(xMod10)*10+x\1010．10+Int(Rnd*90)11．a*bModc12．Log(x)+Sin(3.141593/6)13．ConstPI=3.141592614．日期15．Int(x)+1四、程序设计题程序1．界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径PrivateSubCommand1_Click()DimxAsSinglex=Text1.TextLabel1.Caption=x*x*3.141593EndSub方法二、用InputBox函数输入圆的半径PrivateSubCommand1_Click()DimxAsSingle'若要求计算结果具有15位有效位数，声明x为Double类型x=InputBox(r=,输入圆的半径)Label1.Caption=x*x*3.141593EndSub程序2．略。第3章结构化程序设计与数组一、判断题1．√2．×3．√4．×5．√6．×7．×8．√9．×10．√二、选择题1．A2．D3．C4．C5．D6．B三、填空题1．IfxyThent=y:y=x:x=t2．IS3．Fori=0to9:B(i)=InputBox(B(&i&)=):Nexti4．Dim5．String6．8四、程序阅读题（写出下列程序的运行结果）程序1.05程序2.20程序3.2471116程序4.1491625程序5.程序6.五、程序填空题1．（1）q*i（2）s+p*i/q（3）Nexti2．（1）r=0（2）mModn3．（1）i+j-1（2）7-i（3）Print4．（1）10+Int(Rnd*90)（2）i+1To30（3）a(i)=a(j)（4）a(i)Mod2=1六、程序设计题程序1．界面设计略，过程设计如下：PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerDimmaxAsInteger,middAsInteger,minAsIntegerx=InputBox(请输入x的值：)y=InputBox(请输入y的值：)z=InputBox(请输入z的值：)IfxyThenmax=xElsemax=yIfzmaxThenmax=zIfxyThenmin=xElsemin=yIfzminThenmin=zmidd=x+y+z-max-minPrintmax;midd;minEndSub程序2．界面设计略，过程设计如下：PrivateSubForm_Click()DimxAsSingle,yAsSinglex=InputBox(请输入x的值：)Ifx3Theny=x+3ElseIfx=1Theny=x*xElseIfx0Theny=Sqr(x)Elsey=0EndIfPrintyEndSub程序3．界面设计略，过程设计如下：PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To9Forj=1To9PrintTab((j-1)*4);i*j;NextjPrintNextiEndSub程序4．界面设计略，过程设计如下：PrivateSubForm_Click()DimxAsSingle,sAsSingle,tAsSingleDimiAsInteger,nAsIntegerx=InputBox(请输入x的值：)n=InputBox(请输入n的值：)t=x/2:s=tFori=3Tont=t*x/is=s+tNextiPrintsEndSub程序5．界面设计略，过程设计如下：PrivateSubForm_Click()DimeAsSingle,tAsSingle,iAsIntegere=2:t=1:i=1Whilet=0.0001i=i+1:t=t/i:e=e+tWendPrinteEndSub程序6．界面设计略，过程设计如下：OptionBase1PrivateSubForm_Click()DimnAsInteger,a(9,9)AsInteger,iAsInteger,jAsIntegerOnErrorGoTok'下列代码中若出现错误，转到标号为K的语句执行。n=InputBox(请输入n，0n10)Fori=1Ton:a(i,1)=1:a(i,i)=1:NextiFori=3TonForj=2Toi-1a(i,j)=a(i-1,j-1)+a(i-1,j)Nextj,iFori=1TonPrintTab(30-2*i);Forj=1ToiPrintSpace(4-Len(Trim(Str(a(i,j)))));Trim(Str(a(i,j)));NextjPrintNextiExitSubk:MsgBox输入n值小于1或大于10，数组下标超界。EndSub第4章函数与过程一、判断题1．×2．√3．×4．×5．√6．×7．×8．√二、填空题1．按地址传送2．b()AsLong3．64．按值传递5．按地址传递6．PublicxAsSingle7．StaticxAsInteger8．Form2.y三、程序阅读题（写出下列程序的运行结果）程序1.s=2程序2.1程序3.112112122223s=511s=9121133114641四、程序填空题1．（1）ByeVal（2）kModi（3）k=k\i（4）Callpp(i)2．（1）a()AaDouble（2）n-1（3）a(j)a(k)3．（1）a()AsDouble,nAsInteger（2）t=t*x（3）f=s五、程序设计题程序1．界面设计略，过程设计如下：PrivateFunctionfsum(x()AsDouble,nAsInteger)AsDoubleDimiAsIntegerFori=1Tonfsum=fsum+x(i)Nextifsum=fsum/nEndFunction程序2．界面设计略，过程设计如下：PrivateSubff(a()AsSingle,nAsInteger)DimiAsInteger,xAsSingleFori=1Ton\2x=a(n-i+1):a(n-i+1)=a(i):a(i)=xNextiEndSub程序3．界面设计略，过程设计如下：PrivateSubfind(x()AsSingle,mAsbyte,nAsByte,_xmaxAsSingle,kiAsByte,kjAsByte）xmax=x(1,1):ki=1:kj=1Fori=1TomForj=1TonIfAbs(x(i,j))Abs(xmax)Thenxmax=x(i,j):ki=i:kj=jNextj,iEndSub第5章常用控件一、判断题1．×2．×3．×4．√5．×6．√7．×8．√9．√10．√11．×12．×13．√14．√15．×16．×17．×18．√19．√20．×21．√22．×23．√24．×25．√二、选择题1．C2．D3．B4．B5．B6．C7．B8．B9．B10．A11．D12．C13．B14．B15．A16．D17．B18．B19．B20．A三、填空题1．上、下、左、左2．缇、无关3．&、Alt+Y4．Enabled5．MaxLength6．Text1.SetFocus7．MultiLine8．Visible9．Alignment10．AutoSize11．ForeColor12．0或113．True14．115．AddItem16．117．List1.Clear18．文本框、列表框19．下拉式组合框、简单组合框、下拉式列表框20．Scroll21．Value22．Change23．定时器不起作用24．Timer25．65535四、程序阅读题程序1.116程序2.8