vb選修模塊復(fù)習(xí)要點(diǎn)

《vb選修模塊復(fù)習(xí)要點(diǎn)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、一、for語句格式：For???循環(huán)變量=初值??To??終值??Step??步長(zhǎng)值語句組（循環(huán)體）Next??循環(huán)變量例如：Fori=10To1Step-1PrintiNexti二、利用循環(huán)實(shí)現(xiàn)　累加　累乘　計(jì)數(shù)　字竄連接功能1累加器格式：S=S+i(i為循環(huán)變量)經(jīng)常用于有規(guī)律的加法運(yùn)算計(jì)算s=1+3+5++7+….+99S=0Fori=1to99step2S=s+iNexti計(jì)算s=1+3+5++7+….+99S=0Fori=1to50S=s+2*i-1Nexti計(jì)算s=1+2+3+….100S=0Fori=1to100step1S=S+iNext

2、i2記數(shù)器．：格式：s=s+1（數(shù)字1）經(jīng)常用于統(tǒng)計(jì)個(gè)數(shù)統(tǒng)計(jì)1到1000之間既能被3整除又能被7整除的數(shù)的個(gè)數(shù)s=0Fori=1to1000Ifimod3=0andimod7=0thens=s+1Nexti3、累乘計(jì)算格式：s=s＊I(i為循環(huán)變量)計(jì)算t=1*2*3*…*10s=1Fori=1to10s=s*iNextI三、典型例題2、100到200之間能被3整除的數(shù)的個(gè)數(shù)是DimIAsIntegerDimSAsIntegerS=0Fori=100To200IfIMod3=0ThenS=s+1EndIfNextiPrint"100到200之間能被3整除

3、的數(shù)的個(gè)數(shù)是：";S1、求5*6*…*25的積DimIAsIntegerDimSAsDoubleS=1Fori=5To25Step1S=S*iNextIPrint"求5*6*…*25的積：";S3、計(jì)算1到100之間,所有能被3整除數(shù)的積DimIAsIntegerDimSAsDoubleS=1Fori=3To100Step3s=s*iNextPrint"計(jì)算1到100之間,所有能被3整除數(shù)的積：";S4、10到200之間所有的奇數(shù)的和是DimIAsIntegerDimSAsIntegerS=0Fori=10To200Step1IfInt(I/2)<>I/

4、2Thens=s+iEndIfNextPrint"10到200之間所有的奇數(shù)的和是：";Sl其中int(x)函數(shù)的含義：取不大于x的最大整數(shù)，l例如：int(3.8)=3int(6.5)=65、3到100之間所有能被3整除的數(shù)的個(gè)數(shù)DimIAsIntegerDimSAsIntegerS=0Fori=3To100Step3s=s+1NextPrint"3到100之間(包括3)所有能被3整除的數(shù)的個(gè)數(shù)：";S6、從1累加到10的值是：DimiAsIntegerDimsAsIntegers=0Fori=1To10S=s+iNextiPrint"從1累加到10的

5、值是：";s7、2到100的所有偶數(shù)和是DimiAsIntegerDimsAsIntegers=0Fori=2to100Step2s=s+iNextiPrint"2到100的所有偶數(shù)和是：";s8、1到100的所有奇數(shù)和是DimiAsIntegerDimsAsIntegers=0Fori=1To100step2s=s+iNextiPrint"1到100的所有奇數(shù)和是：";slIf語句例：IFx>=80thenprint“優(yōu)良”IFx>=ythena=xelsea=y格式一：(簡(jiǎn)單格式)if條件then語句if條件then語句1else語句2格式二：(分段

6、書寫)例：IFx>=60thenprint“合格”Elseprint“不合格”EndIFif條件then語句1else語句2endif典型例題第1題:程序代碼:dimxasinteger-----(變量定義)x=text1------------（輸入語句）ifx<3thentext2=8--------（輸出語句）elsetext2=3*xendif在窗體"Form1.frm"的"Command1_Click"事件中編寫代碼(請(qǐng)不要隨便更改其它代碼)，使之能夠?qū)崿F(xiàn)如下功能：編程實(shí)現(xiàn)求下列分段函數(shù)的值。例：在text1文本框中輸入大于0的正整數(shù)x，計(jì)算當(dāng)

7、x<3時(shí)在text2文本框中輸出"8"，否則text2文本框中輸出x與3的積。測(cè)試數(shù)據(jù)在text1文本框中輸入2，text2文本框輸出8；在text1文本框中輸入5，text2文本框輸出15。在text1文本框中輸入6，text2文本框輸出18。第2題:程序代碼：dimaasintegerdimbasintegera=text1b=text2if24^2+a^2=b^2thentext3=="成立"elsetext3="重試"endif在窗體"Form1.frm"的"Command1_Click"事件中編寫代碼(請(qǐng)不要隨便更改其它代碼)，使之能夠?qū)崿F(xiàn)如下

8、功能：求35以內(nèi)與24匹配的勾股數(shù)。例：在Text1輸入小于35的正整數(shù)a、Te