VB課后部分習(xí)題答案

《VB課后部分習(xí)題答案》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、二、選擇題1.VisualBasic中的窗體文件的擴(kuò)展名是A、.regB、.frmC、.basD、.vbp2.VisualBasic中的模塊文件的擴(kuò)展名是A、.regB、.frmC、.basD、.vbp3.VisualBasic中的工程文件的擴(kuò)展名是A、.regB、.frmC、.basD、.vbp4.以下關(guān)于VisualBasic語言的說法中，正確的是A、VisualBasic是一種面向過程的語言B、VisualBasic是一種面向?qū)ο笳Z言C、VisualBasic是一種低級語言D、VisualBasic是一種機(jī)器語言7.下列不屬于對象的基本特征的是A、屬性B、方法C、事件D、過程一、填空題2

2、.13/3MOD57的值除數(shù)為零提示。3.在程序中用到某一整型變量的數(shù)據(jù)范圍為-50000~50000，則該變量類型應(yīng)該是Long。5.聲明單精度常量PI代表3.14159的語句為ConstpiAsSingle=3.14159。11.把條件為1￡x￡5寫成VB表達(dá)式為：x>=1andx<=5。三、程序4.PrivateSubForm_Click()DimyAsIntegerDoy=InputBox("y=")If(yMod10)+Int(y/10)=10ThenPrintyLoopUntily=0EndSub運(yùn)行時，單擊窗體后依次輸入10、37、50、55、56、64、20、2

3、8、19、-19、0，寫出運(yùn)行結(jié)果。3755642819程序8.PrivateSubForm_Click()Fori=1To7PrintSpc(7-i);Ifi=1ThenPrint"*"ElsePrint"*";Spc(2*(i-1)-1);"*"EndIfNextiEndSub寫出程序運(yùn)行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。*************程序9.PrivateSubForm_Click()Dimstr1,str2AsStringDimsAsStringDimiAsIntegerstr1="abcdefghijk"Fori=Len(str1)To1Step-2str2=str2

4、&Mid(str1,i,1)NextiPrintstr2EndSub寫出程序運(yùn)行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。kigeca程序10.PrivateSubForm_Click()DimkAsInteger,sAsInteger,jAsIntegerForm1.ClsFork=1To5s=0Forj=kTo5s=s+1NextjNextkPrint"s=";sEndSub寫出程序運(yùn)行時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。s=1二、程序填空1.【程序說明】從鍵盤上輸入若干個學(xué)生的考試分?jǐn)?shù)，當(dāng)輸入負(fù)數(shù)時結(jié)束輸入，然后輸出其中的最高分?jǐn)?shù)和最低分?jǐn)?shù)。PrivateSubForm_Click()Di

5、miAsInteger,iMaxAsInteger,iMinAsIntegeri=InputBox("輸入一個成績：")iMax=iiMin=iDoWhilei>=0（1）Ifi>iMaxTheniMax=iElseIfi

6、Double,kAsIntegern=Val(InputBox("n=","請輸入自然數(shù)n（n>0且n<30）"))Dowhilen<=0orn>=30（1）n=Val(InputBox("n=","請重輸"))Loopsum=0k=0（2）Dok=k+1sum=sum+1/(k*(k+1))（3）LoopUntilk>=nLabel1.Caption="sum="+Str(sum)EndSub4.5.【程序說明】計算的值并打印出來?！境绦颉縋rivateSubForm_Click()DimiAsIntegerDimkAsSingleDimpAsIntegerDimsAsSinglep=1（1

7、）s=0Fori=1to100（2）k=p/ip=p*(-1)（3）s=s+kNextiForm1.Print"s=";sEndSub三、程序設(shè)計7.搬磚問題：三十六塊磚三十六人搬，男搬四，女搬三，兩個小兒抬一磚，要求一次全搬完，問需男、女、小兒各若干？dimxasinteger,yasinteger,zasintegerforx=0to9fory=0to12z=36-x-yif4*x+3*y+z