VB程序设计教程实验指导与习题解答上机答案

-.z.自测1程序代码PrivateSubCommand1_Click()Label1.FontSize=Label1.FontSize+3EndSubPrivateSubCommand2_Click()Label1.FontBold=TrueEndSubPrivateSubCommand3_Click()Label1.FontUnderline=TrueEndSubPrivateSubCommand4_Click()Label1.FontSize=10Label1.FontBold=FalseLabel1.FontUnderline=FalseEndSub初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口：单击还原之后窗口：自测2程序代码PrivateSubCommand1_Click()Label1="visualbasic"Te*t1="程序设计题"EndSubPrivateSubCommand2_Click()Te*t1="visualbasic"Label1="程序设计题"EndSub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3PrivateSubCommand1_Click()Label1.FontSize=Label1.FontSize*(0.5)EndSubPrivateSubCommand2_Click()Label1.Top=Label1.Top+30Label1.Width=Label1.Width+20Label1.Alignment=1EndSub初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4程序代码PrivateSubCommand1_Click()Form1.Caption="VB学习"Print"简单的VB程序设计"EndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubCommand3_Click()EndEndSub初始化窗口：单击显示之后的窗口：单击清除之后的窗口：单击退出之后的窗口：自测题5程序代码PrivateSubCommand1_Click()Te*t1.Te*t=""Te*t2.Te*t=""EndSubPrivateSubCommand2_Click()Te*t3.Te*t=Val(Te*t1.Te*t)+Val(Te*t2.Te*t)EndSubPrivateSubCommand3_Click()EndEndSub初始化窗口：单击运算之后窗口：单击清除之后的窗口：单击退出之后的窗口：自测练习1PrivateSubCommand1_Click()Dima$a=Te*t1.Te*tLabel1.Caption=Left(a,2)EndSubPrivateSubCommand2_Click()a=Te*t1.Te*tLabel2.Caption=Right(a,2)EndSubPrivateSubCommand3_Click()Te*t1.Te*t=Label1.Caption&Label2.CaptionEndSub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习2PrivateSubForm_Click()Dima%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%a=7349e=aMod10'个位d=(a\10)Mod10'十位c=(a\100)Mod10'百位b=a\1000'千位i=(e+7)Mod10'个位h=(d+7)Mod10'十位g=(c+7)Mod10'百位f=(b+7)Mod10'千位j=ii=f'交换后的个位f=j'交换后的千位k=hh=g'交换后的十位g=k'交换后的百位l=f*1000+g*100+h*10+iTe*t1.Visible=FalsePrint"加密前的4位整数是7439";(Chr(10));"加密后的结果是";lEndSub初始界面单击窗体运行后的界面自测练习1PrivateSubForm_Click()Dima%,b%,c%,d%,e%,f!a=Val(InputBo*("输入第一个数","输入一个数",8))b=Val(InputBo*("输入第一个数","输入一个数",7))c=a+bd=a-be=a*bf=a/bf=Fi*(f*100+0.5)/100MsgBo*"*+y="&c&Chr(10)&"*-y="&d&Chr(10)&"**y="&e&Chr(10)&"*/y="&f,,"输出的结果"EndSub自测练习2PrivateSubForm_Click()Dima%,b%,c%,d%,e%,f!a=Val(InputBo*("输入第一个数的值"))b=Val(InputBo*("输入第二个数的值"))c=Val(InputBo*("输入第三个数的值"))d=Val(InputBo*("输入第四个数的值"))e=a+b+c+df=e/4Print"和=";ePrint"平均值=";fEndSub自测练习3PrivateSubForm_Click()Dimh%,f%,*%,y%h=Val(InputBo*("输入总头数"))f=Val(InputBo*("输入总脚数"))*=(4*h-f)/2y=(f-2*h)/2Print"笼中鸡的头数为";*;"只"Print"笼中兔的头数为";y;"只"EndSub自测练习1：PrivateSubForm_Click()Dima%,b%,c%a=Val(InputBo*("请输入第一条边","边长"))b=Val(InputBo*("请输入第二条边","边长"))c=Val(InputBo*("请输入第三条边","边长"))Ifa+b>cAnda+c>bAndb+c>aThenIfa*a+b*b=c*cOra*a+c*c=b*bOrb*b=c*c=a*aThenPrint"直角"ElseIfa=bAndb=cThenPrint"等边三角形"ElseIfa=bOra=cOrb=cThenPrint"等腰三角形"ElsePrint"一般三角形"EndIfElsePrint"不是三角形"EndIfEndSub不是三角形运行结果：初始窗口：输入三条边：运行结果：直角三角形运行结果：等边三角形运行结果如下：等腰三角形：一般三角形自测练习2：PrivateSubForm_Click()Dima%,b!a=Val(InputBo*("请输入"))IfaMod2=0AndaMod3=0AndaMod5=0Thenb=Sqr(a)Printa,bElseEndEndIfEndSub初始化窗口：输入一个数：运行结果：自测练习3PrivateSubCommand1_Click()Dima%,b%a=Val(Te*t1.Te*t)SelectCasea>0Casea<20MsgBo*"行李费为0.2元/kg",,"行李费"Casea>=20Anda<50MsgBo*"行李费为0.3元/kg",,"行李费"Casea>=50Anda<100MsgBo*"行李费为0.4元/kg",,"行李费"CaseElseb=0.2*100+(a-100)*0.5:MsgBo*"行李费为"&b&"元",,"行李费"EndSelectEndSub初始窗口：输入10：输入25：输入55：输入120：自测练习1OptionBase1PrivateSubForm_Click()Dimi%,a(1To20)AsIntegera(1)=1:a(2)=1Printa(1);Printa(2);Fori=3To10a(i)=a(i-1)+a(i-2)Printa(i);Ne*tiPrintFori=11To16a(i)=a(i-1)+a(i-2)Printa(i);Ne*tiPrintFori=17To20a(i)=a(i-1)+a(i-2)Printa(i);Ne*ti初始界面：运行结果界面：自测练习2OptionBase1PrivateSubForm_Load()Form1.Width=10000Form1.Height=5000EndSubPrivateSubCommand1_Click()Dimi%,j%,t%,a(1To4,1To4)AsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*10)+1Picture1.Printa(i,j);Ne*tjPicture1.PrintNe*tiPicture3.Print"对角线的元素如下"Fori=1To4Picture3.Printa(i,i);Ne*tiPicture3.PrintFori=1To4Picture3.Printa(i,5-i);Ne*tiFori=1To4t=a(1,i)a(1,i)=a(4,i)a(4,i)=tNe*tiFori=1To4t=a(i,2)a(i,2)=a(i,3)a(i,3)=tNe*tiFori=1To4Forj=1To4Picture2.Printa(i,j);Ne*tjPicture2.PrintNe*tiEndSub运行初始界面：运运行结果界面：自测练习1Subitostr(aAsInteger)Dimb%,c$a=Val(Te*t1.Te*t)Whilea>=1c=Chr(aMod10+48)&ca=a\10WendTe*t2.Te*t=cEndSubPrivateSubCommand1_Click()DimaAsIntegera=Val(Te*t1.Te*t)Callitostr(a)EndSub运行初始界面：运行结果界面：验证其他数字：自测练习2：PublicFunctionarea(n)AsDoubleDimc#,d#,e#,s#n=Val(Te*t2.Te*t)c=(1-0)/nWhilee<=1d=I*c:e=(I+1)*cs=s+(Sin(d)+Sin(e))*c/2I=I+1Wendarea=sEndFunctionPrivateSubCommand1_Click()DimsAsDoubleCallarea(n)Te*t1.Te*t=area(n)EndSub运行初始界面：运行结果：自测练习3PrivateSubForm_click()n=Val(InputBo*("请输入n的值"))*=Val(InputBo*("请输入*的值"))Print"e的值=";es(n,*)EndSubPrivateFunctiones(n,*)DimaAsDouble,bAsDouble,cAsDouble,iAsIntegera=1:b=1:c=1Fori=1Tona=**a:b=b*i:c=c+a/bNe*ties=cEndFunction运行初始界面：输入数据：运行结果：自测练习4：Fori=1To4Forj=i+1To5Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNe*tjNe*tiFori=1To5Printa(i);"";Ne*tiFori=1To5IfY<a(i)Thent=a(i):a(i)=Y:Y=tEndIfNe*tiFori=1To6a(6)=tNe*tiEndFunctionPrivateSubCommand1_Click()Dimi#,a%(1To6),Y%Y=Val(InputBo*("输入y的值","输入数据"))Insertfuna%(),YPrintFori=1To6Printa(i);"";Ne*tiEndSub运行初始界面：插入数据：运行结果：41011060蓝志鹏资源1102实验8自测练习1：PrivateSubCommand1_Click()IfCh1.Value=1ThenTe*t1.Te*t="报名参加羽毛球比赛"EndIfIfCh2.Value=1ThenTe*t1.Te*t="报名参加乒乓球比赛"EndIfIfCh1.Value=1AndCh2.Value=1ThenTe*t1.Te*t="报名参加羽毛球，乒乓球比赛"EndIfEndSub运行初始界面：运行结果：自测练习4：PrivateSubForm_Load()Label1.Alignment=2Label1.FontSize=24Label1.FontName="黑体"Label1.ForeColor=&HFF&EndSubPrivateSubOption1_Click()Label1.Caption="我是学生"EndSubPrivateSubOption2_Click()Label1.Caption="我是教师"EndSubPrivateSubOption3_Click()Label1.Caption="我是工人"EndSubPrivateSubOption4_Click()Label1.Caption="我是农民"EndSub运行初始界面：运行结果：自测练习6：PrivateSubCommand1_Click()Fori=0ToCombo1.ListCount-1IfCombo1.List(i)=Combo1.Te*tThenE*itForEndIfNe*tiIfi>Combo1.ListCount-1ThenCombo1.AddItemCombo1.Te*tEndIfEndSubPrivateSubCommand2_Click()IfCombo1.ListInde*<>-1ThenCombo1.RemoveItemCombo1.ListInde*Fori=0ToCombo1.ListCount-1IfCombo1.List(i)=Combo1.Te*tThenCombo1.RemoveItemiEndIfE*itForNe*tiEndIfEndSubPrivateSubCommand3_Click()Combo1.ClearEndSub运行初始界面:自测练习7：PrivateSubCommand1_Click()Timer1.Interval=1Timer1.Enabled=TrueEndSubPrivateSubForm_Load()lbltemp1.FontSize=20lbltishi.FontSize=20Label1.FontSize=20Label2.FontSize=20EndSubPrivateSubTimer1_Timer()VSbwd.Value=VSbwd.Value+10lbltem=VSbwd.ValueIfVSbwd>=100Thenlbltishi="水开了"Timer1.Enabled=FalseEndIfEndSub运行初始界面：运行结果：自测练习1：PrivateSubmyhelp_Click()frmAbout.ShowEndSubPrivateSubmymenu1_Click()Te*t1.Te*t="百货大楼"EndSubPrivateSubmymenu2_Click()Te*t1.Te*t="利客隆"EndSubPrivateSubmymenu3_Click()Te*t1.Te*t="稻香村"EndSub运行初始界面：运行结果界面：自测练习2：PrivateSubDis_Click()Te*t1.Te*t="菜单程序设计"Te*t1.FontSize=20Te*t1.FontName="黑体"EndSubPrivateSubHid_Click()Te*t1.Visible=FalseEndSub运行初始界面：运行结果界面：自测练习3：PrivateSubvbhelp_Click()r=MsgBo*("帮助",,"程序设计题")EndSubPrivateSubVbnew_Click()r=MsgBo*("新建",,"程序设计题")EndSubPrivateSubvbopen_Click()r=MsgBo*("打开",,"程序设计题")EndSubPrivateSubvbsave_Click()r=MsgBo*("存盘",,"程序设计题")EndSub运行初始界面：运行结果：自测练习4：PrivateSubCommand1_Click()CommonDialog1.Action=1List1.AddItemCommonDialog1.FileNameEndSub运行初始界面：运行结果