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位整數(shù)是7439";(Chr(10));"加密后的結(jié)果是";lEndSub初始界面單擊窗體運行后的界面自測練習1PrivateSubForm_Click()Dima%,b%,c%,d%,e%,f!a=Val(InputBo*("輸入第一個數(shù)","輸入一個數(shù)",8))b=Val(InputBo*("輸入第一個數(shù)","輸入一個數(shù)",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,,"輸出的結(jié)果"EndSub自測練習2PrivateSubForm_Click()Dima%,b%,c%,d%,e%,f!a=Val(InputBo*("輸入第一個數(shù)的值"))b=Val(InputBo*("輸入第二個數(shù)的值"))c=Val(InputBo*("輸入第三個數(shù)的值"))d=Val(InputBo*("輸入第四個數(shù)的值"))e=a+b+c+df=e/4Print"和=";ePrint"平均值=";fEndSub自測練習3PrivateSubForm_Click()Dimh%,f%,*%,y%h=Val(InputBo*("輸入總頭數(shù)"))f=Val(InputBo*("輸入總腳數(shù)"))*=(4*h-f)/2y=(f-2*h)/2Print"籠中雞的頭數(shù)為";*;"只"Print"籠中兔的頭數(shù)為";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不是三角形運行結(jié)果：初始窗口：輸入三條邊：運行結(jié)果：直角三角形運行結(jié)果：等邊三角形運行結(jié)果如下：等腰三角形：一般三角形自測練習2：PrivateSubForm_Click()Dima%,b!a=Val(InputBo*("請輸入"))IfaMod2=0AndaMod3=0AndaMod5=0Thenb=Sqr(a)Printa,bElseEndEndIfEndSub初始化窗口：輸入一個數(shù)：運行結(jié)果：自測練習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初始界面：運行結(jié)果界面：自測練習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運行初始界面：運運行結(jié)果界面：自測練習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運行初始界面：運行結(jié)果界面：驗證其他數(shù)字：自測練習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運行初始界面：運行結(jié)果：自測練習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運行初始界面：輸入數(shù)據(jù)：運行結(jié)果：自測練習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的值","輸入數(shù)據(jù)"))Insertfuna%(),YPrintFori=1To6Printa(i);"";Ne*tiEndSub運行初始界面：插入數(shù)據(jù)：運行結(jié)果：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運行初始界面：運行結(jié)果：自測練習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="我是農(nóng)民"EndSub運行初始界面：運行結(jié)果：自測練習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運行初始界面：運行結(jié)果：自測練習1：PrivateSubmyhelp_Click()frmAbout.ShowEndSubPrivateSubmymenu1_Click()Te*t1.Te*t="百貨大樓"EndSubPrivateSubmymenu2_Click()Te*t1.Te*t="利客隆"EndSubPrivateSubmymenu3_Click()Te*t1.Te*t="稻香村"EndSub運行初始界面：運行結(jié)果界面：自測練習2：PrivateSubDis_Click()Te*t1.Te*t="菜單程序設計"Te*t1.FontSize=20Te*t1.FontName="黑體"EndSubPrivateSubHid_Click()Te*t1.Visible=FalseEndSub運行初始界面：運行結(jié)果界面：自測練習3：PrivateSubvbhelp_Click()r=MsgBo*("幫助",,"程序設計題")EndSubPrivateSubVbnew_Click()r=MsgBo*("新建",,"程序設計題")EndSubPrivateSubvbopen_Click()r=MsgBo*("打開",,"程序設計題")EndSubPrivateSubvbsave_Click()r=MsgBo*("存盤",,"程序設計題")EndSub運行初始界面：運行結(jié)果：自測練習4：PrivateSubCommand1_Click()CommonDialog1.Action=1List1.AddItemCommonDialog1.FileNameEndSub運行初始界面：運行結(jié)果