visualbasic程序的設計教程第四版劉炳文編著清華大學

........................VisualBasic程序設計教程部分習題參考第四版炳文編著清華大學第五章、從鍵盤上輸入4個數(shù)，編寫程序，計算并輸出這4個數(shù)的和及平均值。通過inputbox函數(shù)輸入數(shù)據(jù)，在窗體上顯示和及平均值。DimaassingleFori=1to4a=inputbosum=sum+an=n+1avg=sum/nnextiprint,sumprint、編寫程序，要求用戶輸入下列信息據(jù)用適當?shù)母袷皆诖绑w上顯示出來。DimaasvariantFontsize=20a=inputbo）printaa=inputboprintaa=inputboprint；aa=inputboprint；aa=inputbo）print“a5.7．設a=5，b=2.5，c=7.8，編程序計算：y=（πab）/（a+bc）程序：Dimaassingle，bassingle，cassinglea=5b=2.5c=7.8pi=3.14y=（pi*a*b）/（a+b*c）print“結(jié)果是：”;y5.8Dimaaslong，dasinteger，hasinteger，sasintegera=inputbo）d=int（a/86400）h=in（a-d*8640）/360）s=a-d*86400-h*3600printh其中v0gtsginputbox函數(shù)輸入v0和t量的值。Dimvassingle，tassingle，sassingleg=9.81v=inputbo）v=val（v）t=inputbo“請輸入經(jīng)歷的時間t=val（t）s=g*t*t/2+v*tprint第七章7.1．編程計算并輸出S的值:s=2+4+6+8+…+100dimi,sasintegers=0fori=2to100step2s=s+inextprints131%，編寫程序，計算多少年后增加到20PrivateSubForm_click()DimpAsDoubleDimrAsSingleDimnAsIntegerp=130000000r=0.01n=0DoWhilep<=200000000p=p*(1+r)n=n+1LoopPrintn;"年后";"中國人口增加到";pEndSub3條邊長，計算三角形的面積。編寫程序：首先判斷給出的3-1時結(jié)束程序。Dimaassingle；bassingle；casStart:a=inputbox-1a=val（a）ifa=-1endendifb=inputbo“請輸入第二條邊長b=val（b）c=inputbo“請輸入第三條邊長c=val（c）ifa+b<=cora+c<=borb+c<=athenmsgbo“您輸入的三條邊長不能構(gòu)成三角形，請重新輸入gotostartelsel=（a+b+c）/2s=sq（l（l-）l-b）（l-）endifprint“三角形的面積為；s7.5、編寫程序，打印如下所示的“數(shù)字金字塔”12112 3 21……12345678987654321PrivateSubForm_Click()Dima(1To5)AsForj=1Toa(j)=jNextjFori=1To5PrintTab(30-i*3);Forj=1To2*i-Ifj>iThenPrinta(2*i-ElsePrinta(j);EndIfNextjNextiEndSub7.6．勾股定理中三個數(shù)的關(guān)系是a*a+b*b=c*c。編寫程序，輸出30以滿足上述關(guān)系的整數(shù)組合。例如3，4，5就是一個滿足要求的整數(shù)組合PrivateSubCommand1_Click()DimMaxAsInteger,IAsInteger,JAsInteger,KMax=30ForI=3ToMax-2ForJ=I+1ToMax-1K=Sqr(I^2+J^2)IfK=Int(K)AndK<=MaxThenPrintI,J,KNextNextEndSub7.8．如果一個數(shù)的因子之和等于這個數(shù)的本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù)2828從鍵盤上輸入整數(shù)MN，求出MNformload()'inti,j,m,n,summ=inputbox(=inputboxforj=mtonsum=0fori=1tojif(jmodi=0)and(i<>j) thensum=sumnextifj=sumthenprintsum&"是完全數(shù)"nextprint"查找完畢"beependsub成績80～10060～7950～5940～490～39評語verygoodgoodfairpoorfailPrivateSubForm_Click()n=InputBox("請輸入學號")s=InputBox("請輸入分數(shù)")Ifs>=80ThenPrintn;s;"VeryElseIfs>=60Ands<=79ThenPrint"學號：";n;"，";"分數(shù)：";s;",";"學生評語：";ElseIfs>=50Ands<=59ThenPrint"學號：";n;"，";"分數(shù)：";s;",";"學生評語：";ElseIfs>=40Ands<=49ThenPrint"學號：";n;"，";"分數(shù)：";s;",";"學生評語：";"Poor"ElseIfs>=0Ands<=39ThenPrint"學號：";n;"，";"分數(shù)：";s;",";"學生評語：";"Fail"EndIfEndSub一個兩位的正整數(shù)，如將它的個位數(shù)字與十位數(shù)字對調(diào)，則產(chǎn)生另一個正整數(shù)正整數(shù)，把具有這種特征的每一對兩位正整數(shù)都找出來PrivateSubCommand1_Click()DimaAsStringDimiAsLonga=InputBox("輸入一個兩位的正整數(shù):")IfVal(a)<=0OrVal(a)>=100MsgBoxExitSubEndIfThen

Fori=1To99IfVal(a)+i=Val(getDuiTiao(a))+getDuiTiao(CStr(i))Debug.PrintiEndIfNextEndSubPrivateFunctiongetDuiTiao(ByValvStrAsString)AsDimstrTmpAsStringstrTmp=Right(CStr(vStr),1)&Left(CStr(vStr),1)getDuiTiao=strTmpEndFunction第八章10551102910與第1個元素互換。分別輸出數(shù)組原來各元素的值和對換后各元素的值。OptionBase1PrivateSubForm_Click()arr=Array(1,2,3,4,5,6,7,8,9,10)Print"原來數(shù)組："Fori=1To10Printarr(i);NextiPrintFori=1To5Forj=6Tot=arr(i)arr(i)=arr(j)=tNextjNextiPrint"對換后數(shù)組："Fori=1To10Printarr(i);NextiEndSub設有如下兩組數(shù)據(jù)。（1）2，8，7，6，4，28，70，25（2）79，27，32，41，57，66，78，80加，即組的值。OptionBase1PrivateSubForm_Click()DimA,B,C(8)AsA=Array(2,8,7,6,4,28,70,25)B=Array(79,27,32,41,57,66,78,80)Fori=1To8C(i)=A(i)+B(i)NextiPrint"第一個數(shù)組為：";Fori=1To8PrintA(i);NextiPrintPrint"第二個數(shù)組為：";Fori=1To8PrintB(i);NextiPrintPrint"第三個數(shù)組為：";Fori=1To8PrintC(i);NextiPrintEndSub8.7編寫程序，把下面的數(shù)據(jù)輸入到一個二維數(shù)組中：25367813122688937518223256443658然后執(zhí)行以下操作：輸出矩陣兩個對角線上的數(shù)；分別輸出各行和各列的和。交換第一行和第三行的位置。交換第二行和第四行的位置。輸出處理后的數(shù)組。Dima(4,4),b(4,4)AsIntegerFori=0To3Forj=0To3a(i,j)=Val(InputBox("請輸入第"&i+1&"行第"&j+1&"列的數(shù)"))NextjNextiPrint"原始數(shù)據(jù)"Fori=0To3Printa(i,0)&""&a(i,1)&""&a(i,2)&""&a(i,3&""&Val(a(i,0)+a(i,1)+a(i,2)+a(i,3))NextiPrint"和和和和"Forj=0To3Print"";Val(a(0,j)+a(1,j)+a(2,j)+a(3,j));NextjPrint'對角線Fori=0To3PrintTab(i*2);a(i,i)NextiPrintFori=0To3PrintTab((3-i)*2);a(i,3-i)NextiPrint'調(diào)整Forj=0To3b(2,j)=a(0,j) b(0,j)=a(2,j)b(1,j)=a(3,j)b(3,j)=a(1,j)NextjPrint"調(diào)整后數(shù)據(jù)"Fori=0To3Printb(i,0)&""&b(i,1)&""&b(i,2)&""&b(i,3)Nexti設有如下人員名冊：性別年齡文化程度 籍貫得功男24大學本科得勝男30高中畢業(yè)王麗女25研究生……試編寫一個程序，對該名冊進行檢索。程序運行后，只要在鍵盤上輸入一個人名，就可以在屏幕上顯示出這個人的情況。例如，輸入“得功，則顯示： 得功 男 24 大學本要求：使用動態(tài)數(shù)組，輸入的人數(shù)可以根據(jù)實際情況改變。當檢索名冊中不存在的人名時，輸出相應的信息。每次檢索結(jié)束后，詢問是否繼續(xù)檢索，根據(jù)輸入的信息確定是否結(jié)束程序。dimarr() 定義數(shù)組Adodc1.RecordSource="select*from數(shù)據(jù)表where1=1and="&text1.textAdodc1.Refreshi_count=Adodc1.Recordset.RecordCount'/////取出數(shù)據(jù)庫中滿足條件的數(shù)據(jù)記錄，并且計算記錄條數(shù)ifi_count=0thenmsgbox"查找人員不存在",64,"提示信息"elseredimarr(i_count)'//重新定義數(shù)組，使符合動態(tài)數(shù)目............'//這里對取得數(shù)據(jù)進行顯示處理endifDimMsg,ResponseMsg="確認退出?"Response=MsgBox(Msg,vbQuestion+vbYesNo,"提示")SelectCaseResponseCasevbYes'//退出CasevbNo'//繼續(xù)EndSelect10100207號14.5秒077號15.1秒156號14.2秒231號14.7秒453號15.2秒276號13.9秒096號15.7秒122號13.7秒339號14.9秒302號14.5秒編寫程序，按成績排出名次，并按如下格式輸出：名次運動員成績1..........2..........3......................10..........在Form1中加入一個Command控件，粘貼入以下代碼：DimiAsInteger,jAsIntegerDimnAsInteger,mAsIntegerDimw(9,1)AsDoublePrivateSubCommand1_Click()Dima1AsDouble,a2Asa1=0a2=0Fori=1To10Forj=0To9-iIfw(j,1)>w(j+1,1)a1=w(j,0)a2=w(j,1)w(j,0)=w(j+1,0)w(j,1)=w(j+1,1)w(j+1,0)=a1w(j+1,1)=a2EndIfNextjNextiFori=0To9Printw(i,0)NextPrint名"&" 運動"&" 成績Fori=0To9Print""&i+1&" "&Format(w(i,0),"000")&" "&w(i,1)NextEndPrivateSubForm_Load()Fori=0To9w(i,0)=InputBox("請輸入第"&i+1&"運動員的編號")w(i,1)=InputBox("請輸入第"&i+1&"運動員的成