《Visual_Basic程序设计基础》课后编程习题答案

《VisualBasic程序设计基础》教材习题参考答案第1章VisualBasic6.0程序设计概述四、程序设计题程序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．界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径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.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．（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.116程序2.8程序3.23451程序4.小，你好！程序5.您好34512小李，你好！欢迎使用VisualBasic!程序6.李子程序7.y=6程序8.n=1苹果y=14n=3橘子n=5葡萄柚子香蕉五、程序填空题1．（1）a(i)=Mid(str1,i,1)或a(i)=Mid(Text1.Text,i,1)（2）p=j（3）a(i)=a(p)（4）Command2.Enabled=True2．（1）1To2*i–1（2）Command2.Enabled=True（3）Command2.Enabled=False3．（1）Text2.Enabled=False（2）p=2（3）Printi（4）Val(Text1.Text)2或Val(Text1.Text)=1（5）KeyAscii=134．（1）List1.ListCount（2）List1.RemoveItemI（3）i=i+15．（1）Timer1.Enabled=True（2）x\3600（3）(xMod3600)\60或(x-3600*h)\60（4）x=x+16．（1）Label1.Left（2）Label1.Left=-Label1.Width六、程序设计题程序1.界面设计略，过程设计如下：PrivateSubCommand1_Click()IfCommand1.Caption=显示ThenPrint欢迎使用VisualBasic！:Command1.Caption=清除ElseForm1.Cls:Command1.Caption=显示EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Form1.Cls:Command1.Caption=显示:Command2.Caption=退出EndSub程序2．界面设计略，过程设计如下：PrivateSubForm_Load()Text1.MaxLength=1:Text1.Text=EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)Label1.Caption=CStr(KeyAscii)EndSub程序3．界面设计略，过程设计如下：ConstpwdAsString=123456'预设密码为123456PrivateSubCommand1_Click()Cls:Print欢迎进入！EndSubPrivateSubForm_Load()Command1.Caption=进入:Command1.Enabled=FalsewText1.Text=:Text1.PasswordChar=*EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfText1.Text=pwdThenm=MsgBox(口令正确，欢迎进入！):Command1.Enabled=TrueElsem=MsgBox(口令错误,请重新输入！):Text1.Tex