《《VisualBasic程序设计基础》陈庆章课后习题参考答案》由会员分享，可在线阅读，更多相关《《VisualBasic程序设计基础》陈庆章课后习题参考答案（41页珍藏版）》请在金锄头文库上搜索。
1、VisualBasic程序设计基础教材习题参考答案第1章VisualBasic6.0程序设计概述、判断题3. X4. V说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、5.X6.V7.X8.V9.V10.X“置后”属性。11.V12.V13.X14.V15.X16.V17.V18.V19.V20.V二、选择题1.C2.B3.D4.C5.B6,A7.D8,A9.B10.A11.C12.D三、填空题1.对象、事件4.对象7.网格2.属性、方法、事件5.Left、Top8.Form19.Load或Initialize或Resize或Activate3.控件、屏幕（Screen）6.属性
2、、.=（自动执行的先后顺序也按此排列）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_
3、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.Fo
4、ntSize+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运行时，不得连续、过多次单击“字体变小”按钮，
5、因为当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.ScaleHe
6、ight优于用Form1.HeightCommand1.Top=Form1.ScaleHeight-Command1.HeightCommand1.Left=Form1.ScaleWidth-Command1.WidthEndSub第2章程序设计基础一、判断题1. V 2. X3. X 4. X5. V 6.X 7. V8. V 9. V 10. X二、选择题1 B 2 D3 A 4 C 5 C6 B三、填空题1 String 2 43 aaa 4 1455 67 A6 38 D 9. C 10 A7 188 False11 a * b Mod c14 日期15 Int(x)+19(xMod1
7、0)*10+x101010+Int(Rnd*90)12Log(x)+Sin(3.141593/6)13ConstPI=3.1415926四、程序设计题程序1界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径PrivateSubCommand1_Click()DimxAsSinglex=Text1.TextLabel1.Caption=x*x*3.141593EndSub方法二、用InputBox函数输入圆的半径PrivateSubCommand1_Click()DimxAsSingle若要求计算结果具有15位有效位数，声明x为Double类型x=InputBox(r=,输入圆的半径)L
8、abel1.Caption=x*x*3.141593EndSub程序2略。第3章结构化程序设计与数组一、判断题1.V2.X3.V4.X5.V6.X7.X8.，9.X10.V二、选择题1A2D3C4C5D6B三、填空题1.IfxyThent=y:y=x:x=t2.IS3. Fori=0to9:B(i)=InputBox(B(&i&)=):Nexti4. Dim5.String6.8四、程序阅读题（写出下列程序的运行结果）程序 3. 2 4 7 1116程序1.05程序2.20程序4.1491625wWWWwvwwV程序5.nWWWWWWWWwwwwwwwwwww234程序6.:45五、程序填空题
9、(1) ( 1) q * i(2) ( 1) r= 0(3) s + p * i / q(4) m Mod n(5) Next i3. (1)i+j-1(2)7-i(3)Print(4) a(i) Mod 2 = 14. (1)10+Int(Rnd*90)i+1To30(3)a(i)=a(j)六、程序设计题程序1.界面设计略，过程设计如下：PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerDimmaxAsInteger,middAsInteger,minAsIntegerx=InputBox(请输入x的值：)y=InputBox(
10、请输入y的值：)z=InputBox(请输入z的值：)IfxyThenmax=xElsemax=yIfzmaxThenmax=zIfxyThenmin=xElsemin=yIfz3Theny=x+3ElseIfx=1Theny=x*xElseIfx0Theny=Sqr(x)Elsey=0EndIfPrintyEndSub程序3界面设计略，过程设计如下：PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To9Forj=1To9PrintTab(j-1)*4);i*j;NextjPrintNextiEndSub程序4界面设计略，过程设计如下：P
11、rivateSubForm_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,iAsIntegerWhilet=0.0001i=i+1:t=t/i:e=e+tWendPrinteEndSub程序6界面设计略，过程设计如下：Optio
12、nBase1PrivateSubForm_Click()DimnAsInteger,a(9,9)AsInteger,iAsInteger,jAsIntegerK 的语句执行。OnErrorGoTok下列代码中若出现错误，转到标号为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
13、(i,j);NextjPrintNextiExitSubk:MsgBox输入n值小于1或大于10，数组下标超界。EndSub第4章函数与过程一、判断题1.X2.V3.X4.X5.V二、填空题1按地址传送2b()AsLong366PublicxAsSingle7StaticxAsInteger三、程序阅读题(写出下列程序的运行结果)6.X7.4按值传递8Form2.y程序1.s=2程序2.1程序3.112112X8.V5按地址传递122223四、程序填空题3) k = k i3) a(j) a(k)2) t = t * x4) Call pp(i)3) f = s1(1)ByeVal(2)kModi2(1)a()AaDouble(2)n-13(1)a()AsDouble,nAsInteger五、程序设计题程序1界面设计略，过程设计如下：PrivateFunctionfsum(x()AsDouble,nAsInteger)AsDoubleDimiAsIntegerFori=1Tonfsum=fsum+x(i)Nexti
