《vb課程復(fù)習(xí)題》word版

《《vb課程復(fù)習(xí)題》word版》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、1.設(shè)a=2,b=5,c=8,計(jì)算下列表達(dá)式的值：（1）Not(a>b)1（2）a+b=cAnda*b>c0（3）a<>bOrc<>b1（4）a+c>a+bXorc>b0（5）3+45*6/7Mod8>=902．把下列數(shù)學(xué)表達(dá)式寫成VB中的表達(dá)式：（1）（2）2x3+sin4502、答案：1、(（-b）+sqr(b*b-4*a*c))/(2*a)2、2*x*x*x+sin453．用Rnd產(chǎn)生：（1）0～100之間的隨機(jī)數(shù)，包括0和100。（2）15~35之間的隨機(jī)數(shù)，包括15和35。3、答案：產(chǎn)生隨機(jī)數(shù)的公式：INT(Rnd*(

2、M-N+1))+N,產(chǎn)生的隨機(jī)數(shù)范圍為：[N,M]（1）、Int(Rnd*101)（2）、Int(Rnd*21)+154．利用Format（）函數(shù)顯示有關(guān)的日期和時(shí)間。PrivateSubForm_Click（）T1=#8：30：25AM#D1=#8/25/2005#PrintFormat（D1，＂m/d/yy＂）PrintFormat（D1，＂mmmm－dddd－yyyy＂）PrintFormat（T1，＂h－m－sAM/PM＂）PrintFormat（T1，＂hh：mm：－ssA/P＂）PrintFormat（D1，＂dddd

3、dd＂）PrintFormatDateTime（Now）EndSub4、答案顯示結(jié)果：8-25-05August-Thursday-20058-30-25-AM08:30:-25A2005年8月25日星期四2010-12-2916:14:305．用Print方法在窗體中輸出數(shù)據(jù)。PrivateSubForm_Click（）Dima%,b%a=3:b=6Printa;b;a+bPrinta,b,a+bPrint"a=";a,"b=";b,"a+b=";a+bPrintTab(5);a;Tab(15);b;Tab(25);a+bPri

4、ntSpc(5);a;Spc(5);b;Spc(5);a+bEndSub5、輸出結(jié)果：3、6、93、6、9a=3b=6a+b=93、6、93696．已知三角形的三條邊a,b,c的長(zhǎng)度，求三角形的面積。分析:已知三角形的三條邊a,b,c的長(zhǎng)度,則可用海倫公式求三角形的面積。即：s=其中：p=(a+b+c)運(yùn)行界面如圖3.8所示。6、答案源程序：PrivateSubCommand1_Click()a=Val(Text1.Text())b=Val(Text2.Text())c=Val(Text3.Text())p=(a+b+c)/2s=

5、Sqr(p*(p-a)*(p-b)*(p-c))Text4.Text()=sEndSub7．利用隨機(jī)函數(shù)Rnd產(chǎn)生一個(gè)三位整數(shù)，輸出該數(shù)的顛倒數(shù)。例如產(chǎn)生的隨機(jī)數(shù)為123，應(yīng)輸出321。7、答案源程序：PrivateSubCommand1_Click()a=Int(Rnd*1012)+100'保證輸出的是三位數(shù)的隨機(jī)數(shù)'Print"輸出的隨機(jī)數(shù)為:";a'顛倒順序'b=a100c=(a10)Mod10d=aMod10e=d*100+c*10+bPrint"該隨機(jī)數(shù)的顛倒順序?yàn)?";eEndSub8．編寫一個(gè)程序，判斷某一年是否

6、為閏年。閏年的條件是:①能被4整除，但不能被100整除的年份。②或能被400整除的年份。8、答案源程序：PrivateSubCommand1_Click()n=Val(InputBox("輸入"))IfnMod4=0AndnMod100<>0ThenPrintn;"是閏年"ElseIfnMod400=0ThenPrintn;"是閏年"ElsePrintn;"不是閏年"EndIfEndSub9．為了節(jié)約用電，制定如下隨用電量增加而逐級(jí)提高電費(fèi)的收費(fèi)辦法，根據(jù)用電量的大小分段計(jì)費(fèi)，標(biāo)準(zhǔn)如表3.3所示。表3.3用電量與收費(fèi)標(biāo)準(zhǔn)用電量X（

7、度）每度電收費(fèi)（元）用電量X（度）每度電收費(fèi)（元）x≤1001002001.001.151.30請(qǐng)?jiān)O(shè)計(jì)一個(gè)程序，輸入一個(gè)用戶的用電量后即計(jì)算出應(yīng)交的電費(fèi)。9、答案源程序：PrivateSubCommand1_Click()DimcountAsIntegercount=Val(Text1.Text())SelectCasecountCase0To100Sum=0.55*countCase101To125Sum=0.7*countCase12

8、6To150Sum=0.85*countCase151To175Sum=1*countCase176To200Sum=1.15*countCaseElseSum=1.3*countEndSelectText2.Text()=Str(Sum)EndS