visual basic程序設(shè)計(jì) 第二版 復(fù)習(xí)大綱

visualbasic程序設(shè)計(jì)第二版復(fù)習(xí)大綱第2章基本數(shù)據(jù)類型表達(dá)式

字符集和詞匯集基本數(shù)據(jù)類型常量與變量表達(dá)式常用內(nèi)部函數(shù)控制臺(tái)的輸入和輸出2.1程序設(shè)計(jì)語(yǔ)言單位字符、詞匯、表達(dá)式、語(yǔ)句、過(guò)程、函數(shù)等稱為“語(yǔ)法單位”。字符是構(gòu)成程序設(shè)計(jì)語(yǔ)言的最基本符號(hào)單詞是具有語(yǔ)法意義的最小語(yǔ)法單位。命名規(guī)則以字母開頭，由字母、數(shù)字和下劃線組成。變量名的最后一個(gè)字符可以是類型說(shuō)明符（%整型,&長(zhǎng)整型）。不能和關(guān)鍵字同名。允許使用漢字作為用戶自定義標(biāo)識(shí)符。例.下面4組字符序列中,只有()中的所有字符序列可以作為VB的變量名A)Apple、Pupil_Mark、E30B）Ball、5C、sssf&C)Car-5、Track、Wm424D）M7k、Product、string答案A基本數(shù)據(jù)類型數(shù)值型字符型邏輯型日期型對(duì)象型整型實(shí)型字節(jié)型、短整型、整形、長(zhǎng)整形（有符、無(wú)符）單精度、雙精度、小數(shù)型變長(zhǎng)字符串單字符類型關(guān)鍵字存儲(chǔ)字節(jié)取值范圍有符號(hào)整型Integer4-2147483648～2147483647有符號(hào)長(zhǎng)整型Long8-9223372036854775808～9223372036854775807單精度浮點(diǎn)型Single4負(fù)數(shù)：-3.4028235E+38～-1.401298E-45正數(shù)：1.401298E-45～3.4028235E+38雙精度浮點(diǎn)型Double8負(fù)數(shù)：-1.79769313486231570E+308～-4.94065645841246544E-324正數(shù)：4.94065645841246544E-324～1.79769313486231570E+308小數(shù)型Decimal16有效數(shù)字28位無(wú)小數(shù)點(diǎn)：+/-79228162514264337593543950335有小數(shù)點(diǎn)：+/-7.9228162514264337593543950335最小非零數(shù)：+/-0.0000000000000000000000000001單字符Char20～65535變長(zhǎng)字符串String取決于平臺(tái)0～約20億個(gè)Unicode字符邏輯型Booleam取決于平臺(tái)True或False日期型Date80001年1月1日0:00:00～9999年12月31日23:59:59對(duì)象型Object4保存引用對(duì)象的地址類型說(shuō)明符：%整型&長(zhǎng)整型!單精度浮點(diǎn)型#雙精度浮點(diǎn)型2.3常量與變量

常量：在程序執(zhí)行期間不發(fā)生變化。

ConstMax=1000變量：代表內(nèi)存中指定的存儲(chǔ)單元，根據(jù)需要賦予不同的數(shù)值，可以變化。Consta=2a=4Writeline(a)

Sub

main()

Dim

b

a=100

writeline(a)

End

Sub

其中變量a和b的數(shù)據(jù)類型分別是

A、整型，整型

B、可變型，可變型

C、整型，可變型

D、可變型，整型答案：C2.4運(yùn)算符與表達(dá)式運(yùn)算符:對(duì)基本數(shù)據(jù)類型的運(yùn)算使用的描述符號(hào)運(yùn)算量:被運(yùn)算的對(duì)象——數(shù)據(jù)表達(dá)式:由運(yùn)算符和運(yùn)算量構(gòu)成的式子主要運(yùn)算符:算術(shù)運(yùn)算符字符串連接關(guān)系運(yùn)算邏輯運(yùn)算一、VisualBasic的算術(shù)運(yùn)算符運(yùn)算符運(yùn)算表達(dá)式例子^指數(shù)x^y（xy)*乘法x*y/浮點(diǎn)除法x/y\整數(shù)除法x\yMod取模xMody+加法x+y–取負(fù)，減法–x,x–y１．浮點(diǎn)數(shù)除法與整數(shù)除法

浮點(diǎn)除運(yùn)算符:“/”。左右操作數(shù)可以為整數(shù)或者浮點(diǎn)數(shù).運(yùn)算結(jié)果的類型由其值決定。

例：3/2 結(jié)果等于1.5，浮點(diǎn)數(shù)２．整數(shù)除法整除運(yùn)算符:“\”整除的操作數(shù)為整型數(shù)。操作數(shù)帶有小數(shù)點(diǎn)，對(duì)其四舍五入為整型數(shù)，進(jìn)行整除運(yùn)算。運(yùn)算結(jié)果簡(jiǎn)單地截取整數(shù)部分，小數(shù)部分不作舍入處理。例：20\2.6 結(jié)果等于63．取模運(yùn)算

取模運(yùn)算符:Mod(通常和“\”結(jié)合截取數(shù)據(jù)各位）用于求余數(shù)，結(jié)果是第一個(gè)操作數(shù)整除以第二個(gè)操作數(shù)所得的余數(shù)。如果左右操作數(shù)為實(shí)數(shù)，對(duì)其進(jìn)行四舍五入取整，然后求模。運(yùn)算結(jié)果的符號(hào)取決于左操作數(shù)的符號(hào)。例：25.63Mod-6.78 結(jié)果等于5“年份year不能被4整除”的表達(dá)式Y(jié)earmod4<>04．算術(shù)運(yùn)算符的優(yōu)先級(jí)

指數(shù)運(yùn)算符 ^取負(fù)運(yùn)算符 –乘、除運(yùn)算符 */整除運(yùn)算符 \取模運(yùn)算符 Mod加、減運(yùn)算符 +–５．求值順序同級(jí)算符從左到右運(yùn)算式子中含有括號(hào)，先計(jì)算括號(hào)內(nèi)表達(dá)式的值；有多層括號(hào)，從內(nèi)層括號(hào)往外層括號(hào)計(jì)算。7Mod5\2+Int(-4.5)*2答案：-9二、字符串連接

字符串表達(dá)式:兩個(gè)字符串使用連接符“&”或“+”串接起來(lái)，生成一個(gè)新的字符串例：下列關(guān)系運(yùn)算結(jié)果為“True”的是______。A．“2”&4=“24” B．“2”+“4”=“6”C．“2”+4=“24” D．“2”&“4”=“6”答案：A三、關(guān)系運(yùn)算與邏輯運(yùn)算

結(jié)果都是邏輯值(True和False)。通常用在程序的條件判斷中。任何非0值都認(rèn)為是邏輯真

TRUE–1FALSE0比較運(yùn)算表運(yùn)算符測(cè)試關(guān)系表達(dá)式例子=相等x=y<>或><不相等x<>y<小于x<y>大于x>y<=小于或等于x<=y>=大于或等于x>=y2．邏輯運(yùn)算符

XYNotXXAndYXOrYXXorYXEqvYXImpY–1–10–1–10–1–1–1000–1–1000–1–10–1–10–100–1000–1–1邏輯運(yùn)算符的優(yōu)先級(jí)

Not→And→Or→Xor表達(dá)式的運(yùn)算順序

函數(shù)運(yùn)算→算術(shù)運(yùn)算→關(guān)系運(yùn)算→邏輯運(yùn)算例若x=2、y=4、z=6，則邏輯表達(dá)式

Not(x>y)Orx+y+z<50And100/z<y的值為

TRUE“canada”>”china”false有程序段 DimXAsInteger,YAsInteger X=5Y=6PRINTX+Y=11上述程序段運(yùn)行時(shí)輸出的結(jié)果是（）A、X+Y=11B、11C、X+Y=11，D、Trued2.5常用內(nèi)部函數(shù)轉(zhuǎn)換函數(shù)數(shù)學(xué)函數(shù)字符串函數(shù)隨機(jī)函數(shù)一、轉(zhuǎn)換函數(shù)

轉(zhuǎn)換函數(shù):用于數(shù)據(jù)類型或形式的轉(zhuǎn)換包括整型、浮點(diǎn)型、字符串型之間以及與ASCII碼字符之間的轉(zhuǎn)換。1．取整函數(shù)

Int(n)

返回不大于n的最大整數(shù)。Fix(n)

去掉n的小數(shù)部分，返回其整數(shù)部分例:將x四舍五入到百位（例如，若x=12374.52應(yīng)舍入成12400）

Int(x/100+0.5)*100Asc（s）:

返回字符串s的首字符的ASCII碼值。Chr（n）把n轉(zhuǎn)換為相應(yīng)的字符。其中表達(dá)式n的值是一個(gè)的合法ASCII碼值chr(13)+chr(10)Val(s)

函數(shù)返回字符串表達(dá)式s中所含的數(shù)值。若遇到字母（指數(shù)符號(hào)除外）則停止轉(zhuǎn)換。Str(n)

返回?cái)?shù)值n的字符串形式。當(dāng)數(shù)字轉(zhuǎn)成字符串時(shí)，字符串的第一個(gè)位一定是空格或是負(fù)號(hào)。數(shù)值型之間的轉(zhuǎn)換函數(shù)CInt(x)

把x的小數(shù)部分四舍五入，轉(zhuǎn)換成整數(shù)。當(dāng)小數(shù)部分為0.5時(shí)，舍（或入）為最接近的偶數(shù)。?Cint(2344.5678)2345?Cint(2344.5)2344其他函數(shù)CCur(x)CDbl(x)CLng(x)CSng(x)CVar(x)

二、數(shù)學(xué)函數(shù)

數(shù)學(xué)函數(shù)用于各種數(shù)學(xué)運(yùn)算，包括三角函數(shù)、求平方根、絕對(duì)值及對(duì)數(shù)、指數(shù)函數(shù)等常用數(shù)學(xué)函數(shù)。要與數(shù)學(xué)中的函數(shù)形式區(qū)別開來(lái)，寫VB表達(dá)式是，由左至右一個(gè)一個(gè)數(shù)據(jù)轉(zhuǎn)換。1．三角函數(shù)

Sin(x)

返回自變量x的正弦值。Cos(x)

返回自變量x的余弦值。Tan(x)

返回自變量x的正切值。Atn(x)

返回自變量x的反正切值。注意：在Sin，Cos，Tan函數(shù)的自變量是以弧度為單位的角度:1度=π/180=3.14159/180（弧度）絕對(duì)值函數(shù)Abs(x)

返回x的絕對(duì)值。?Abs(–50.3)50.33．符號(hào)函數(shù)

Sgn(x)

返回x的符號(hào)。當(dāng)x的值<0時(shí)，函數(shù)返回–1；當(dāng)x的值=0時(shí)，函數(shù)返回0；當(dāng)x的值>0時(shí)，函數(shù)返回1；PrintSgn(12),Sgn(-2.4),Sgn(0)1–104．平方根函數(shù)

Sqr(x)

返回x的平方根。x的值須大于或等于0。例

Sqr(1+3.14159/2*Cos(48*3.14159/180))5．指數(shù)和對(duì)數(shù)函數(shù)Exp(x)

返回以e為底、以x為指數(shù)的值，即求ex值。例eatExp(a*t)

e^(a*t)

ⅹLog(x)

返回x的自然對(duì)數(shù)。例ln（1+|a+b|10）

Log(1+Abs((a+b)^10)log10(a2+2ab+b2)Log10(a*a+2*a*b+b*b)三字符串函數(shù)

對(duì)字符串進(jìn)行處理1．刪除空白字符函數(shù)LTrim(S)

去掉字符串s左邊的空白字符。RTrim(S)

去掉字符串s右邊的空白字符。Trim(S)

去掉字符串s左右兩邊的空白字符。2．字符串截取函數(shù)Left(s,n)

截取字符串s最左邊的n個(gè)字符。Mid(s,p,n)

在字符串s中，從第p個(gè)字符開始，向后截取n個(gè)字符。Right(s,n)

截取字符串s最右邊的n個(gè)字符。例：已知A$=”12345678”，則表達(dá)式Val(left$(a$,3)+Mid$(a$,3,3))的值為（

）。A、123345

B、12345

C、123456

D.468答案：A3．字符串長(zhǎng)度測(cè)試函數(shù)Len(s)

返回字符串s的長(zhǎng)度，即所含的字符個(gè)數(shù)。PrintLen("HelloWorld")

11PrintLen("華南理工大學(xué)")

66．字母大小寫轉(zhuǎn)換函數(shù)Ucase(s)

把字符串s中的小寫字母轉(zhuǎn)換成大寫字母。Lcase(s)

把字符串s中的大寫字母轉(zhuǎn)換成小寫字母。例：1.LowerS="HelloWorld1234"PrintUCase(LowerS)

HELLOWORLD12342.UpperS="HelloWorld1234"PrintLcase(UpperS)helloworld1234四．隨機(jī)函數(shù)Rnd[(x)]

產(chǎn)生一個(gè)大于或等于0小于1的單精度隨機(jī)數(shù)。例：PrintRnd.5795186生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)Int((upper–lower+1)*Rnd+lower)例MyValue=Int((900*Rnd)+100)

‘生成100到999的隨機(jī)數(shù)值‘用隨機(jī)函數(shù)產(chǎn)生三位整數(shù)

Int((upper–lower+1)*Rnd+lower)

表達(dá)式Int(Rnd*41)+10產(chǎn)生的隨機(jī)整數(shù)范圍是（

）。

A．[10，40]

B．[10，41]

C．[10，51]

D．[10，50]答案：D2.6控制臺(tái)數(shù)據(jù)的輸入和輸出Console類在System.Console命名空間定義，使用聲明語(yǔ)句：

ImportsSystem.Console之后調(diào)用Console類的方法時(shí)不需要添加Console前綴。2.6.1鍵盤輸入Read()：從標(biāo)準(zhǔn)輸入流讀取一個(gè)字符。ReadLine()：從標(biāo)準(zhǔn)輸入流讀取一行字符。

由于在鍵盤中輸入的符號(hào)都是字符，為了把這些字符轉(zhuǎn)換成所需要的數(shù)據(jù)類型，通常會(huì)使用Val函數(shù)。

2.6.2控制臺(tái)輸出若輸出多個(gè)表達(dá)式項(xiàng)，則需要用格式字符串參數(shù)指定輸出格式。一般形式：

Write(<字符串>,<輸出項(xiàng)列表>)WriteLine(<字符串>,<輸出項(xiàng)列表>)其中<字符串>可以包含直接輸出的字符串和用一對(duì)花括號(hào)“{}”界定的格式串。2.格式串

格式串用于設(shè)置各輸出項(xiàng)的輸出格式。一個(gè)格式串可以包含多個(gè)用花括號(hào)界定的格式項(xiàng)。

格式項(xiàng)的語(yǔ)法形式為：

{<索引>[,<對(duì)齊>][:<格式說(shuō)明>]}

2.格式串

通過(guò)指定相同的索引參數(shù)，一個(gè)輸出項(xiàng)可以用多種格式輸出。例如：Console.WriteLine("{0:X}{0:E}{0,10:N}",2478)分別將同一個(gè)數(shù)值設(shè)置為十六進(jìn)制、科學(xué)記數(shù)法和帶分隔符輸出。結(jié)果：9AE2.478000E+0032，478.00第3章程序流程控制

順序結(jié)構(gòu)分支結(jié)構(gòu)循環(huán)結(jié)構(gòu)3.1分支結(jié)構(gòu)單行結(jié)構(gòu)條件語(yǔ)句（沒有Endif）塊結(jié)構(gòu)條件語(yǔ)句（if…endif)

情況語(yǔ)句(不能用比較、邏輯表達(dá)式）一、單行結(jié)構(gòu)條件語(yǔ)句格式:

If<condition>Then<statements>[Else<elsestatements>]注意:1.在一行上書寫,沒有Endif語(yǔ)句

2.else總是跟最靠近的那個(gè)then匹配下面程序段顯示的結(jié)果是（

）。DimxIfxthenwriteline(x)elsewriteline(x+2)答案：2二、塊結(jié)構(gòu)條件語(yǔ)句格式:

If<condition_1>Then<statements_1>[ElseIf<condition_2>Then[<elseifstatements_2>]...[ElseIf<condition_n>Then[<elseifstatements_n>][Else[<elsestatements_n+1>]]

EndIf注意:1.else總是跟最靠近的那個(gè)then匹配

2.語(yǔ)句塊<statements><elsestatements>不能與其前面的Then寫在同一行上，否則VB認(rèn)為是一個(gè)單行結(jié)構(gòu)的條件語(yǔ)句。三、情況語(yǔ)句SelectCase<testexpression>[Case<expressionlist_1>[<statements_1>]][Case<expressionlist_2>[<statements_2>]]……[CaseElse[<statements_n>]]EndSelectSelectCase說(shuō)明：

測(cè)試表達(dá)式<testexpression>可以是數(shù)值表達(dá)式或字符串表達(dá)式；表達(dá)式表列<expressionlist>中的表達(dá)式必須與測(cè)試表達(dá)式<testexpression>的類型相同。<expressionlist>稱為域值，可以是下列形式之一：a.<expression_1>[，<expression_2>]……b.<expression_1>To<expression_2>c.Is<expression>下面的程序段，輸入8后，輸出結(jié)果Y是（）。X=readline()SelectcasexCase1to8Y=1Case8to10Y=0Caseis=8Y=1Endselectwriteline(“{0},Y)答案：1例Submain()Dimx%,y%x=readline()SelectCasexCase1,3,5y=x-1Case6To10y=x+1Case2,4y=2*x結(jié)果:CaseIs>10x=3y=2y=x*x+1x=2y=4EndSelectWritel.ine({"x={0}“"y={1}“,x,y)EndSub（x的輸入值為2.53,2.5）把一個(gè)實(shí)數(shù)賦給一個(gè)整變量，則只能獲取它的整數(shù)部分了。3.2循環(huán)結(jié)構(gòu)

While…Wend語(yǔ)句Do…Loop語(yǔ)句For…Next語(yǔ)句嵌套循環(huán)一、While…Wend語(yǔ)句While<condition>[<statements>]Wend二、Do…Loop語(yǔ)句先判斷條件形式

Do[While|Until<condition>][<statements>]Loop后判斷條件形式

Do[<statements>]Loop[While|Until<condition>]循環(huán)結(jié)構(gòu)注意問(wèn)題do、while循環(huán)體內(nèi)都必須有修改循環(huán)條件的語(yǔ)句在do、while循環(huán)語(yǔ)句前應(yīng)對(duì)變量賦初值一般情況，累加器賦0值，累乘器賦1值“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)例：s=0(s=1)k=0whilek<=5s=s+k(s=s*k)k=k+1wend與以下語(yǔ)句功能相同的語(yǔ)句是______

DoWhilea=True…LoopA．Do…LoopWhilea=TrueB．Do…LoopWhilea=FalseC．DoUntila=True…LoopD．DoUntila=False…Loop答案：d答案：c三、For…Next語(yǔ)句For<counter>=<start>To<end>[Step<step>][<statements>][ExitFor][<statements>]Next[<counter>]步長(zhǎng)<step>≥0時(shí)，作遞增循環(huán),即應(yīng)有<end>≥<start>；<step>＜0時(shí)，作遞減循環(huán),應(yīng)有<end>≤<start>；<step>＝1時(shí)，可省略Step子句。for循環(huán)結(jié)構(gòu)注意問(wèn)題For循環(huán)結(jié)束后，其循環(huán)控制變量的值一定超過(guò)終值。例：

Fori=1to5write(“*”)

Nextiwriteline(i)

(i=6)Submain()n=0Fori=1To4Forj=4To0Step-2n=n+jNextjNextiwrite(“{0}{1}{2}”,j,I,n)EndSub答案：-2524x=4fori=1to10step3x=x+inexti?xa)27b)26c)57d)38答案b有程序段(int(end-start)/step+1)DimIAsIntegerFORI=7TO90STEP5write(“{0}”,I)NEXTI上述程序共執(zhí)行（）次循環(huán)。A、17B、16C、15D、14答案a四、嵌套循環(huán)外層循環(huán)與內(nèi)層循環(huán)必須層層相套，循環(huán)體之間不能交叉

Forj=k1Tok2DoWhileb……LoopNextj（正確）DoWhileb1Forj=k1Tok2……LoopNextj（錯(cuò)誤）在窗體上輸出以下形式的星星陣列

*

***

*****

*******

……Submain()Dimline%,i%,j%writeline("請(qǐng)輸入行數(shù)：")line=readline()Fori=1Toline'外循環(huán)控制輸出行數(shù)

PrintSpace(20-i);'每行前面的空格數(shù)

Forj=1Toi*2-1‘內(nèi)循環(huán)控制輸出個(gè)數(shù)i

write("*")Nextj

writeline '換行NextiEndSub*********************2.退出循環(huán)

(1)ExitDo語(yǔ)句

(2)ExitFor語(yǔ)句功能：強(qiáng)制退出循環(huán)，并轉(zhuǎn)到Do┅Loop語(yǔ)句或next的下一個(gè)語(yǔ)句去執(zhí)行。第4章復(fù)合數(shù)據(jù)類型

數(shù)組是由固定數(shù)目的同類元素按一定順序排列而成；

結(jié)構(gòu)則由不同類型元素組成的數(shù)據(jù)類型。數(shù)組一維數(shù)組二維數(shù)組5.1一維數(shù)組

數(shù)組說(shuō)明格式為：

Dim<數(shù)組名>(<下標(biāo)上界>)[As<數(shù)據(jù)類型>]注意：下標(biāo)下界為0

數(shù)組元素個(gè)數(shù)：下標(biāo)的上界

+1一維數(shù)組主要內(nèi)容數(shù)組元素的輸入、輸出數(shù)組元素的平均值、最大、最小值數(shù)組元素的排序兩數(shù)組合并數(shù)組元素的輸入

方法一：（readline方法）

Fori=1To20writeline("請(qǐng)輸入第"&Str(i)&"個(gè)元素")a(i)=readline()Next方法二:（隨機(jī)函數(shù)）RandomizeFori=1To20A(i)=Int(900*Rnd)+100Nexti

數(shù)組元素的輸出Fori=1To20write("a(,{0},)=",I,a(i))

IfiMod5=0ThenwritelineNext一維數(shù)組初始化語(yǔ)句的一般格式：

Dim<數(shù)組名>(

)As<數(shù)據(jù)類型>={<常量1>，<常量2>，…，<常量n>}例如：

Dimb()AsInteger={1,2,3}注意：VB.NET不允許對(duì)指定了上界的數(shù)組進(jìn)行初始化。一維數(shù)組的初始化ModuleModule1SubMain()DimS()AsSingle={90,76,80,75,82,93,57,75,85,68} DimSumAsSingle,iAsIntegerSum=0Fori=0To9Sum=Sum+S(i) '對(duì)數(shù)組S的每個(gè)元素S(i)求累和NextiConsole.WriteLine("平均成績(jī)

={0:f}",Sum/10)EndSubEndModule例：某班有10名學(xué)生參加計(jì)算機(jī)等級(jí)考試，求這些學(xué)生的平均成績(jī)。ImportsSystem.ConsoleModuleModule1SubMain()Dima(9)AsInteger,iAsInteger,maxAsInteger

Fori=0To9Write("a({0})=",i)a(i)=Val(ReadLine()) '輸入數(shù)組a的元素NextI

max=a(0)Fori=1To9'使用循環(huán)過(guò)程求最大值Ifa(i)>maxThenmax=a(i)NextI

WriteLine("max={0}",max)EndSubEndModule求10個(gè)數(shù)中的最大值5.2二維數(shù)組

數(shù)組說(shuō)明格式為：

Dim<數(shù)組名>(<下標(biāo)上界1>，<下標(biāo)上界2>)[As<數(shù)據(jù)類型>]第一維和第二維下標(biāo)下界都規(guī)定為0，數(shù)組元素的個(gè)數(shù)：

(下標(biāo)上界1+1)*(下標(biāo)上界2+1)二維數(shù)組元素的輸入

使用readine函數(shù)為:Fori=0To2Forj=0To2Console.Write("d({0},{1})=",i,j)d(i,j)=Val(Console.ReadLine())NextjNexti二維數(shù)組元素的輸出

Fori=0To2Forj=0To2Console.Write("{0}",d(i,j))Nextj

Console.WriteLine()Nexti二維數(shù)組初始化語(yǔ)句的一般格式：

Dim<數(shù)組名>(，)As<數(shù)據(jù)類型>={{<第0行各常量>}，{<第1行各常量>}，

…，{<第m-1行各常量>}}例如:Dimd(，)AsInteger={{2,1,8}，{3,5,4}，{6,9,0}}注意：與一維數(shù)組類似，VB.NET也不允許對(duì)指定了上界的二維數(shù)組進(jìn)行初始化。

5.二維數(shù)組的初始化例：以下能對(duì)二維數(shù)據(jù)正確初始化的語(yǔ)句是（）

A)dima(,)asinteger={{1,2,,3},{4,5,6,}}b)dima()asinteger={{1,2,,3},{4,5,6,}}c)dima(0to1,0to2,)asinteger={{1,2,,3},{4,5,6,}}d)dima(1,2)asinteger={{1,2,,3},{4,5,6,}}答案:aUBound函數(shù)用于求數(shù)組各維的下標(biāo)上界。一般形式為：

UBound(<數(shù)組名>[，<第n維>])功能：求指定數(shù)組第n維的下標(biāo)上界，省略[，<第n維>]時(shí)，默認(rèn)為求一維數(shù)組的下標(biāo)上界。例如：UBound(s，1)=29UBound(s，2)=2UBound(h)=29

6．UBound函數(shù)

已知某個(gè)班三個(gè)學(xué)生進(jìn)行三門課考試，成績(jī)?nèi)缦拢?/p>

計(jì)算機(jī)基礎(chǔ)

英語(yǔ)

高等數(shù)學(xué)學(xué)生1859080學(xué)生2657075學(xué)生3758580計(jì)算出每個(gè)學(xué)生三門課的平均成績(jī)。

例4-4

ImportsSystem.ConsoleModuleModule1SubMain()Dims%(,)={{85,90,80},{65,70,75},{75,85,80}}Dimi%,j%,sum%,save%(2）WriteLine("每個(gè)學(xué)生的平均成績(jī):")sum=0Fori=0To2 '計(jì)算和輸出每個(gè)學(xué)生的平均成績(jī)

sum=0Forj=0To2sum=sum+s(i,j)Nextjsave(i)=sum/3WriteLine("save({0})={1}",i,save(i))NextIEndSubEndModule在VB.NET中，提供了ForEach…Next語(yǔ)句專門用于遍歷數(shù)組或集合中的元素。

一般格式：

ForEach<變量名>In<數(shù)組或集合名><循環(huán)體>Next<變量名>其中，<變量名>存放數(shù)組或集合中當(dāng)前訪問(wèn)的元素值。

功能：遍歷數(shù)組或集合中的每個(gè)元素，執(zhí)行循環(huán)體內(nèi)的語(yǔ)句。執(zhí)行循環(huán)體的次數(shù)一般由數(shù)組元素的個(gè)數(shù)確定。ForEach…Next語(yǔ)句5.編一程序，把一個(gè)m行n列矩陣中的元素存放到一個(gè)二維數(shù)組中，并求出該數(shù)組最小值。ImportsSystem.ConsoleModuleModule1SubMain()Dimi%,j%,m%,n%,min!,x!write("請(qǐng)輸入矩陣的行數(shù)：")m=readline()writeline("請(qǐng)輸入矩陣的列數(shù)：")n=readline()

Dima!(m,n)WriteLine("輸入的矩陣為：")Fori=1TomForj=1Tona(i,j)=readline()Write("{0}",a(i,j))NextjWriteLine()Nextimin=a(1,1)foreachxinaIfx<minThenmin=x'求最小值NextiWriteLine("最小值為：{0}",min)EndSubEndModule重新定義一維數(shù)組長(zhǎng)度的ReDim語(yǔ)句的一般格式：

ReDim[Preserve]<數(shù)組名>(<下標(biāo)上界>)例如：

DimA1(5)AsIntegerReDimA1(10)AsInteger說(shuō)明：不能改變?cè)摂?shù)組的類型。

不能改變?cè)摂?shù)組的維數(shù)。

數(shù)組的重定義5.4結(jié)構(gòu)類型

記錄類型定義的一般形式如下：Structure<typename><elementname>[([<subscripts>])]As<type>[<elementname>[([<subscripts>])]As<type>]……EndStructure結(jié)構(gòu)類型可以在標(biāo)準(zhǔn)模塊或窗體模塊中定義，但不能在事件過(guò)程中定義。日期數(shù)據(jù)類型dat，可以用如下定義：

StructuredatyearAsintegermonthAsstring*3dayAsintegerEndStructure學(xué)生記錄可以說(shuō)明為：StructurestunoAsIntegernameAsString*8sexAsString*2birthdayAsdatscoreAsSingleEndStructure

Dims1asstu記錄變量的訪問(wèn)一般形式為：<varname>.<elementname>對(duì)嵌套記錄變量s1的元素birthday的賦值：s1.no=15=“張勇”

s1.birthday.year=1980

編寫一個(gè)過(guò)程，輸入和顯示一個(gè)學(xué)生的學(xué)習(xí)情況。

PrivateStructurerecnoAsIntegernameAsString*8mathsAsIntegerphysicsAsIntegerprogrammingAsIntegertotalAsIntegerEndStructureSubmain()DimstudentAsrecstudent.no=InputBox("學(xué)號(hào)：")=InputBox("姓名：")student.maths=InputBox("數(shù)學(xué)成績(jī)：")student.physics=InputBox("物理成績(jī)：")gramming=InputBox("程序設(shè)計(jì)成績(jī)：")student.total=student.maths+student.physics+_grammingPrint"學(xué)號(hào)：";student.noPrint"姓名：";Print"數(shù)學(xué)：";student.mathsPrint"物理：";student.physicsPrint"程序設(shè)計(jì)：";grammingPrint"總成績(jī)：";student.totalEndSub2．With語(yǔ)句

With語(yǔ)句格式為：

With<object>[<statements>]EndWith

Submaink()DimstudentAsrec

Withstudent.no=InputBox("學(xué)號(hào)：").name=InputBox("姓名：").maths=InputBox("數(shù)學(xué)成績(jī)：").physics=InputBox("物理成績(jī)：").programming=InputBox("程序設(shè)計(jì)成績(jī)：").total=.maths+.physics+.programmingPrint"學(xué)號(hào)：";.noPrint"姓名：";.namePrint"數(shù)學(xué)：";.mathsPrint"物理：";.physicsPrint"程序設(shè)計(jì)：";.programmingPrint"總成績(jī)：";.total

EndWithEndSub第5章過(guò)程

過(guò)程的定義與調(diào)用參數(shù)傳遞過(guò)程與變量的作用域子過(guò)程的定義[Private|Public][Static]Sub<name>[(<arglist>)][<statements>]

EndSub

函數(shù)過(guò)程的定義[Public|Private][Static]Function

<name>[(<arglist>)][As<type>][<statements>]…..

[<name>=<expression>]/return<expression>EndFunction過(guò)程調(diào)用1.子過(guò)程調(diào)用(獨(dú)立語(yǔ)句）<name>[(<argumentlist>)]或 Call<name>[(<argumentlist>)]例:Callfac(m,c1):Callfac(n,c2)cmn=c1/c2

fac(m,c1)/

fac(n,c2)錯(cuò)2.函數(shù)過(guò)程調(diào)用（是一個(gè)數(shù)值）<name>[(<argumentlist>)]例:cmn=fac(m)/fac(n)定義過(guò)程中參數(shù)的確定需要傳入的數(shù)據(jù)傳值參數(shù)(ByVal)需要傳出的數(shù)據(jù)傳址參數(shù)(ByRef，或缺省)函數(shù)傳出的數(shù)據(jù)可由函數(shù)名返回

變量的作用域過(guò)程（局部）級(jí)變量：在過(guò)程內(nèi)部用Dim或Static聲明的變量，作用域?yàn)楸具^(guò)程。文件級(jí)（模塊級(jí)）變量：在文件中各過(guò)程之外，用Dim或Private語(yǔ)句聲明的變量，其作用域?yàn)楸疚募虮灸K。工程級(jí)（項(xiàng)目級(jí)、全局）變量：在文件中各過(guò)程之外，用Public語(yǔ)句定義的變量，其作用域?yàn)檎麄€(gè)工程或整個(gè)項(xiàng)目或全局。注意在同一模塊不同過(guò)程中定義的變量可以同名；如:form1中有sub1、sub2，均可定義Ａ變量同一模塊不同級(jí)的變量可以同名；如:form1中可定義模塊級(jí)Ａ，亦可定義過(guò)程級(jí)Ａ不同模塊中定義的全局變量可以同名，但引用另一模塊的全局變量時(shí)必須在變量名之前加上模塊名。如:form1中可定義全局級(jí)Ａ(form1.A),

module1中可定義全局級(jí)A(module1.A)過(guò)程中引用的變量，總是同名變量中作用范圍最小的那一個(gè)變量。

變量的生存期

動(dòng)態(tài)變量靜態(tài)變量動(dòng)態(tài)變量

使用Dim說(shuō)明當(dāng)程序執(zhí)行到動(dòng)態(tài)變量所在的過(guò)程時(shí)才給動(dòng)態(tài)變量分配存儲(chǔ)單元。過(guò)程執(zhí)行結(jié)束后，動(dòng)態(tài)變量所占用的存儲(chǔ)單元被系統(tǒng)回收。過(guò)程再次被調(diào)用時(shí)，重新分配存儲(chǔ)單元和初始化。靜態(tài)變量

使用Static說(shuō)明在整個(gè)應(yīng)用程序運(yùn)行期間，分配有固定存儲(chǔ)單元。過(guò)程執(zhí)行結(jié)束時(shí)，變量的值仍保存該過(guò)程再次被調(diào)用時(shí)，變量的值為上次過(guò)程調(diào)用結(jié)束時(shí)的值。輸出：0在以下關(guān)于變量作用域的描述中，不正確的是（）A)當(dāng)某過(guò)程變量與全局變量同名,全局變量在這個(gè)過(guò)程中就會(huì)被屏蔽B)靜態(tài)變量不是模塊級(jí)或工程級(jí)變量,其作用域只限于在它所定義的過(guò)程內(nèi)部C)在某一個(gè)過(guò)程中定義的變量的作用域只能是這一過(guò)程D)在某一個(gè)模塊中定義的變量的作用域只能是這一模塊答案DDimxAsIntegerPublicSubsub1(xasInteger)x=x+1EndSubPublicFunctionfun1(ByValxasInteger)asintegerFun1=2*xEndfunctionSubmain()staticyAsIntegercallsub1(y)Writeline(“x={0}y={1}”,x,y)x=fun1(y)Writeline(“x={0}y={1}”,x,y)EndSub運(yùn)行結(jié)果:X=0y=1X=2y=1編寫過(guò)程程序設(shè)計(jì)的步驟輸入數(shù)據(jù)處理數(shù)據(jù)(調(diào)用過(guò)程)輸出數(shù)據(jù)定義過(guò)程中參數(shù)的確定需要傳入的數(shù)據(jù)通常是輸入的數(shù)據(jù)需要傳出的數(shù)據(jù)通常是處理的結(jié)果

給定求組合數(shù)公式為：，編一程序，輸入m和n的值，求的值。PrivateSubfac(ByValk&,f&)PrivateFunctionfac(ByValk&)aslongDimt&,i&t=1Fori=1Tokt=t*iNexti

f=tfac=t/returntEndSubSubmain()Dimm&,n&,cmn&,c1&,c2&,c3&n=readline()m=readline()

Callfac(m,c1):Callfac(n,c2):Callfac(m-n,c3)cmn=c1/(c2*c3)

cmn=fac(m)/(fac(n)*fac(m-n))writeline(“cmn={0}”,cmn)EndSub第6章面向?qū)ο蟪绦蛟O(shè)計(jì)基礎(chǔ)

6.2.1類的定義1．類定義語(yǔ)句一般格式：[<訪問(wèn)修飾符>]Class<類名>[<訪問(wèn)修飾符>]<數(shù)據(jù)成員說(shuō)明>[<訪問(wèn)修飾符>]<屬性定義>[<訪問(wèn)修飾符>]<方法定義>[<訪問(wèn)修飾符>]<事件定義>EndClass<訪問(wèn)修飾符>為關(guān)鍵字Private、Protected或Public等（1）在標(biāo)準(zhǔn)模塊中定義類或與標(biāo)準(zhǔn)模塊并列定義類。（2）在窗體類中定義類或在窗體的代碼窗口中與窗體類并列定義類。2．類定義的位置

屬性定義語(yǔ)句的一般格式：

[<訪問(wèn)修飾符>][ReadOnly|WriteOnly]Property<屬性名>([<形式參數(shù)表>])As數(shù)據(jù)類型

Get

<語(yǔ)句塊>[Return<數(shù)據(jù)成員名>]EndGet

Set(ByValValueAs數(shù)據(jù)類型

)<語(yǔ)句塊>

<數(shù)據(jù)成員名>=<值>EndSetEndProperty6.2.3屬性的定義及其使用6.2.4事件的定義及其觸發(fā)1．事件的定義[<訪問(wèn)修飾符>]Event<事件名>([<形式參數(shù)表>])2．事件處理函數(shù)(事件過(guò)程)Private|Public]Sub<事件處理函數(shù)名>([<形式參數(shù)表>])_Handles<對(duì)象名>.<事件名><函數(shù)體>EndSub3．事件的觸發(fā)RaiseEvent<事件名>([<實(shí)際參數(shù)表>])4．能夠觸發(fā)事件對(duì)象的定義[Dim|Private|Public]WithEvents<對(duì)象名>As[New]<類名>6.2.5方法的定義及其調(diào)用

（1）類中Sub子過(guò)程定義格式[<訪問(wèn)修飾符>]Sub<方法名>([<形式參數(shù)表>])<子過(guò)程體>EndSub（2）類中Function函數(shù)過(guò)程定義格式[<訪問(wèn)修飾符>]Function方法名([形式參數(shù)表])[As數(shù)據(jù)類型]

<函數(shù)過(guò)程體>EndFunction1．對(duì)象定義語(yǔ)句

定義對(duì)象語(yǔ)句的一般格式：[Dim|Private|Public]<對(duì)象名>As[New]<類名>關(guān)鍵字New用來(lái)創(chuàng)建類的實(shí)例（即分配存儲(chǔ)空間）。例如：DimD1AsNewD2．對(duì)象成員的訪問(wèn)在程序中訪問(wèn)對(duì)象成員的一般形式：<對(duì)象名>.<成員名>例如，對(duì)象Date1的數(shù)據(jù)成員year表示為：Date1.year它的方法成員SetDate、IsLeapYear和PrintDate表示為：Date1.SetDateDate1.IsLeapYearDate1.PrintDate

6.3.1構(gòu)造函數(shù)

對(duì)象變量的初始化由一個(gè)特殊的成員函數(shù)來(lái)完成，這個(gè)成員函數(shù)稱為構(gòu)造函數(shù)。定義構(gòu)造函數(shù)的語(yǔ)法格式：PublicSubNew([<形式參數(shù)表>])<函數(shù)體>EndSub調(diào)用構(gòu)造函數(shù)的語(yǔ)法格式：[Dim|Private|Public]<對(duì)象名>AsNew<類名>([<實(shí)際參數(shù)表>])

6.3.1構(gòu)造函數(shù)

例：PublicSubNew(ByValidAsString,ByValNameAsString)id_s=id:Name_s=NameEndSubDimemp1AsNewEmp("0001","何欣欣")6.4.2派生類的定義

在VB.NET中，定義派生類時(shí)要使用Inherits語(yǔ)句來(lái)指定派生類的基類。即定義派生類的語(yǔ)法格式：

Class<派生類名>

Inherits<基類名>[<訪問(wèn)修飾符>]<數(shù)據(jù)成員說(shuō)明>[<訪問(wèn)修飾符>]<屬性定義>[<訪問(wèn)修飾符>]<事件定義>[<訪問(wèn)修飾符>]<方法定義>EndClass6.4.3派生類的構(gòu)造函數(shù)

基類的構(gòu)造函數(shù)是不能被派生類繼承的。所以，如果要對(duì)派生類對(duì)象初始化，則需要定義派生類的構(gòu)造函定義派生類的構(gòu)造函數(shù)的語(yǔ)法形式：PublicSubNew(<形式參數(shù)表>)‘基類和派生類

MyBase.New(<實(shí)際參數(shù)表>)‘基類<函數(shù)體>EndSub

調(diào)用構(gòu)造函數(shù)的語(yǔ)法格式：[Dim|Private|Public]<對(duì)象名>AsNew<類名>([<實(shí)際參數(shù)表>])

‘基類和派生類注意：調(diào)用派生類構(gòu)造函數(shù)NEW時(shí)，先調(diào)用基類構(gòu)造函數(shù)，再調(diào)用派生類構(gòu)造函數(shù)。作業(yè)講評(píng)2.定義一個(gè)Rectangle類，它包含兩個(gè)數(shù)據(jù)成員length和width；以及包含用于求長(zhǎng)方形面積的成員函數(shù)。再定義Rectangle的派生類Rectangular，它包含一個(gè)新數(shù)據(jù)成員height和用來(lái)求長(zhǎng)方體體積的成員函數(shù)。在main函數(shù)中，使用兩個(gè)類，求某個(gè)長(zhǎng)方形的面積和某個(gè)長(zhǎng)方體的體積。ImportsSystem.ConsoleModuleModule1PublicClass

rectangleProtectedlengthAsSingleProtectedwidthAsSinglePublicSub

New(ByVallAsSingle,ByValwAsSingle)length=l:width=w

EndSub

PublicProperty

x()AsSingleGetReturnlengthEndGetSet(ByValVAsSingle)length=VEndSet

EndPropertyPublicProperty

y()AsSingleGetReturnwidthEndGetSet(ByValVAsSingle)width=VEndSet

EndProperty

PublicFunction

area()Returnlength*width

EndFunction

EndClass

PublicClassrectangular

InheritsrectanglePrivateheightAsSinglePublicSub

New(ByVallAsSingle,ByValwAsSingle,ByValhAsSingle)

MyBase.New(l,w)height=h

EndSub

PublicProperty

z()AsSingleGetReturnheightEndGetSet(ByValVAsSingle)height=VEndSet

EndProperty

PublicFunction

volume()Returnlength*width*height

EndFunction

EndClass

SubMain()write(“輸入長(zhǎng)：”)l=val(readline())write(“輸入寬：”)w=val(readline())Dimobj1AsNewrectangle(l,w)WriteLine("length={0}",obj1.x())WriteLine("width={0}",obj1.y())WriteLine("area={0}",obj1.area())

SubMain()write(“輸入長(zhǎng)：”)l=val(readline())write(“輸入寬：”)w=val(readline())write(“輸入高：”)h=val(readline())Dimobj2AsNewrectangular(l,w,h)WriteLine("length={0}",obj2.x())WriteLine("width={0}",obj2.y())WriteLine("height={0}",obj2.z())WriteLine("volume={0}",obj2.volume())EndSubEndModule

控件概述窗體標(biāo)簽與文本框圖片框命令按鈕、復(fù)選框和單選按鈕框架列表框和組合框滾動(dòng)條計(jì)時(shí)器第7章常用控件Control類是所有控件的基類，它提供了所有控件都具有一些公共屬性、方法和事件。分

類名

稱說(shuō)

明布局Location控件的左上角相對(duì)于其容器左上角的坐標(biāo)MaximumSize控件大小的上限MinmumSize控件大小的下限Size控件的寬度Width和高度Height設(shè)計(jì)Name控件的名稱數(shù)據(jù)Tag包含有關(guān)控件的數(shù)據(jù)的對(duì)象外觀BackColor控件的背景色BackgroundImage在控件中顯示的背景圖像Font控件顯示的文字的字體ForeColor控件的前景色Text與此控件關(guān)聯(lián)的文本行為Enabled一個(gè)邏輯值，指示控件是否可以對(duì)用戶交互作出響應(yīng)TabIndex在控件的容器的控件的Tab鍵順序TabStop一個(gè)邏輯值，指示用戶能否使用Tab鍵將焦點(diǎn)放到該控件上Visible一個(gè)邏輯值，指示是否顯示該控件及其所有子控件屬性分類名稱說(shuō)

明布局Move在移動(dòng)控件時(shí)發(fā)生Resize在調(diào)整控件大小時(shí)發(fā)生操作Click在單擊控件時(shí)發(fā)生DoubleClick在雙擊控件時(shí)發(fā)生MouseClick在鼠標(biāo)單擊該控件時(shí)發(fā)生MouseDoubleClick當(dāng)用鼠標(biāo)雙擊控件時(shí)發(fā)生鍵盤KeyDown在控件有焦點(diǎn)的情況下按下鍵時(shí)發(fā)生KeyPress在控件有焦點(diǎn)的情況下按下并釋放鍵后發(fā)生KeyUp在控件有焦點(diǎn)的情況下釋放鍵時(shí)發(fā)生焦點(diǎn)GotFocus在控件接收焦點(diǎn)時(shí)發(fā)生LostFocus當(dāng)控件失去焦點(diǎn)時(shí)發(fā)生鼠標(biāo)MouseDown當(dāng)鼠標(biāo)指針位于控件上并按下鼠標(biāo)鍵時(shí)發(fā)生MouseUp在鼠標(biāo)指針在控件上并釋放鼠標(biāo)鍵時(shí)發(fā)生MouseWheel在移動(dòng)鼠標(biāo)滾輪并且控件有焦點(diǎn)時(shí)發(fā)生事件7.3.1窗體

窗體是一個(gè)重要的圖形對(duì)象。窗體（Form）是程序員的“工作臺(tái)”，當(dāng)用戶新建一個(gè)項(xiàng)目時(shí)，系統(tǒng)自動(dòng)創(chuàng)建一個(gè)名為Form1主窗體，它用來(lái)設(shè)計(jì)圖形用戶界面。

窗體除了具有自己的屬性、事件和方法外，還像一個(gè)容器一樣，可以在它上面放置除了窗體之外的其他控件。

窗體顯示出來(lái)時(shí)，它上面的控件是可見的；窗體移動(dòng)時(shí)，它們也隨之移動(dòng)；窗體隱藏時(shí)，上面的控件也不可見了。窗體的常用方法名

稱說(shuō)

明Show加載并顯示窗體Close卸載窗體Hide隱藏窗體窗體的常用事件名

稱說(shuō)

明Load顯示窗體前發(fā)生Activated當(dāng)使用代碼激活或用戶操作激活窗體時(shí)發(fā)生Show顯示窗體時(shí)發(fā)生Deactivate當(dāng)窗體失去焦點(diǎn)不再是活動(dòng)窗體時(shí)發(fā)生Resize窗體、控件的Size屬性值改變時(shí)發(fā)生SizeChanged窗體、控件的Size屬性值改變時(shí)發(fā)生FormClosing關(guān)閉窗體前發(fā)生FormClosed關(guān)閉窗體后發(fā)生

語(yǔ)法形式：InputBox(PromptAsString,TitleAsString,

DefaultResponseAsString,XPosAsInteger,

YPosAsInteger)AsString1．InputBox函數(shù)必選項(xiàng)，指定在對(duì)話框中的顯示的提示信息?？蛇x項(xiàng)，指定在對(duì)話框標(biāo)題欄中的顯示的提示信息。如果省略

Title，則標(biāo)題欄中顯示應(yīng)用程序名稱。

可選項(xiàng)，指定在對(duì)話框文本框中給定的默認(rèn)值。如果省略，則彈出對(duì)話框時(shí)顯示的文本框?yàn)榭?。可選項(xiàng)，用于指定屏幕左邊緣與對(duì)話框左邊緣之間的距離。

如果省略

，則對(duì)話框水平居中。

可選項(xiàng)，用于指定屏幕頂部與對(duì)話框上邊緣之間的距離。如果省略，則對(duì)話框垂直定位在屏幕向下大約三分之一處。標(biāo)簽

Label控件一般用于顯示靜態(tài)的不可編輯的文本信息。例如：Label控件由Text屬性提供描述性文字?？梢允褂肍ont屬性設(shè)置字體風(fēng)格、大小、對(duì)齊方式等，還可以使用Image屬性在Label控件上顯示圖像。Label控件參與窗體的Tab順序，但不接受焦點(diǎn)，所以不能用于接收用戶的輸入。Label控件能響應(yīng)很多事件，但在實(shí)際中一般都不使用。

文本框

文本框用于建立文本輸入?yún)^(qū)或編輯區(qū)，以便實(shí)現(xiàn)數(shù)據(jù)的輸入、編輯和修改等功能。

主要屬性：text,顯示文本框中的當(dāng)前文本。

TextAlign，文本框中文本的對(duì)齊方式：

Left左對(duì)齊