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

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

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語(yǔ)言的說(shuō)法中，正確的是A、VisualBasic是一種面向過(guò)程的語(yǔ)言B、VisualBasic是一種面向?qū)ο笳Z(yǔ)言C、VisualBasic是一種低級(jí)語(yǔ)言D、VisualBasic是一種機(jī)器語(yǔ)言7.下列不屬于對(duì)象的基本特征的是A、屬性B、方法C、事件D、過(guò)程一、填空題2

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

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

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

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

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

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