1、第二章 Visual Basic.NET程序設(shè)計(jì)基礎(chǔ) 2.1 控制臺(tái)應(yīng)用程序 n知識(shí)點(diǎn)知識(shí)點(diǎn)1 控制臺(tái)程序控制臺(tái)程序 控制臺(tái)程序沒(méi)有窗體，只顯示DOS窗口和命令行程序代碼，控制臺(tái)程序運(yùn)行快捷，非常適合調(diào)試程序時(shí)使用。 2.1 控制臺(tái)應(yīng)用程序n知識(shí)點(diǎn)2 編碼規(guī)范 1字母不區(qū)分大小寫(xiě)。2語(yǔ)句書(shū)寫(xiě)自由3程序的注釋 可以用英文標(biāo)點(diǎn)符號(hào)單引號(hào)“ ”或Rem開(kāi)頭來(lái)標(biāo)識(shí)一條注釋語(yǔ)句。 4各關(guān)鍵字、標(biāo)識(shí)符之間要用空格隔開(kāi)。 編寫(xiě)一個(gè)控制臺(tái)應(yīng)用程序，程序執(zhí)行時(shí)提示用戶(hù)輸入兩個(gè)整數(shù)，然后輸出兩數(shù)之和。 Module Module1 Sub Main() Dim num1, num2, sum As Integer

2、 定義3個(gè)整型變量 Console.Write(請(qǐng)輸入第一個(gè)整數(shù)：) 輸出一串字符 num1 = Console.ReadLine() 讀取一行字符 Console.Write(請(qǐng)輸入第二個(gè)整數(shù)：) num2 = Console.ReadLine() sum = num1 + num2 Console.WriteLine(num1 & 加上 & num2 & 等于 & sum)輸出一行字符及一個(gè)回車(chē)符 Console.Read() 讀取一個(gè)字符 End SubEnd ModuleConsole類(lèi)的方法在控制臺(tái)應(yīng)用程序中進(jìn)行信息的輸入與輸出，一般要調(diào)用Consol

3、e類(lèi)的方法。 Console類(lèi)的Read方法【格式】：Console.Read()【功能】：從鍵盤(pán)讀取一個(gè)字符，并作為函數(shù)的返回值。 Console類(lèi)的ReadLine方法【格式】：Console.ReadLine()【功能】：從鍵盤(pán)讀取一行字符，并作為函數(shù)的返回值。 Console類(lèi)的Write方法【格式1】：Console.Write(X)【功能】將指定的X顯示在屏幕上。參數(shù)X是任意類(lèi)型的數(shù)據(jù)?！靖袷?】：Console.Write(格式字符串，表達(dá)式列表) 【功能】：按照格式字符串的約定，輸出提示字符和表達(dá)式的值。 Console類(lèi)的WriteLine方法【格式1】：Console.Wr

4、iteLine(X)【功能】:將指定的X顯示在屏幕上，并以換行符結(jié)尾?！靖袷?】：Console.WriteLine(格式字符串，表達(dá)式列表)【功能】：按照格式字符串的約定，輸出提示字符和表達(dá)式的值，并以換行符結(jié)尾。 例如，有下列程序段：x = 120y = 280Console.WriteLine(x=0,y=1,x,y)則輸出結(jié)果為：x=120,y=280 2.2 數(shù)據(jù)類(lèi)型、常量與變量數(shù)據(jù)類(lèi)型、常量與變量n知識(shí)點(diǎn)知識(shí)點(diǎn)1 基本數(shù)據(jù)類(lèi)型基本數(shù)據(jù)類(lèi)型數(shù)據(jù)的類(lèi)型是指數(shù)據(jù)在計(jì)算機(jī)內(nèi)部的表述和存儲(chǔ)形式，不同的數(shù)據(jù)類(lèi)型具有不同的存儲(chǔ)長(zhǎng)度、取值范圍和允許的操作。 Visual Basic.NET提供了豐

5、富的數(shù)據(jù)類(lèi)型，其中主要有數(shù)值型、字符型、布爾型、日期型、對(duì)象型和枚舉類(lèi)型 知識(shí)點(diǎn)知識(shí)點(diǎn)1 基本數(shù)據(jù)類(lèi)型基本數(shù)據(jù)類(lèi)型n1數(shù)值型數(shù)據(jù)數(shù)值型數(shù)據(jù)是指能進(jìn)行數(shù)學(xué)運(yùn)算的數(shù)據(jù)，Visual Basic.NET的數(shù)值型數(shù)據(jù)分為整數(shù)型、浮點(diǎn)型和十進(jìn)制整數(shù)型、浮點(diǎn)型和十進(jìn)制型型3類(lèi)。n2字符類(lèi)型數(shù)據(jù) 字符型（字符型（Char）Char型數(shù)據(jù)用于存放一個(gè)Unicode字符，占2個(gè)字節(jié)，字符可以包括所有西文字符和漢字。例如，A、5都是Char型數(shù)據(jù)。 字符串型（字符串型（String）字符串型數(shù)據(jù)是用雙引號(hào)括起來(lái)的字符序列，其中的字符可以是西文字符和漢字。例如，computer、中國(guó)、我喜歡使用Visual Bas

6、ic.NET等 知識(shí)點(diǎn)知識(shí)點(diǎn)1 基本數(shù)據(jù)類(lèi)型基本數(shù)據(jù)類(lèi)型n3. 布爾型數(shù)據(jù)（Boolean）又稱(chēng)為邏輯型，其取值只有兩個(gè)：True和False。True轉(zhuǎn)換為-，F(xiàn)alse轉(zhuǎn)換為；非0數(shù)據(jù)被轉(zhuǎn)換為T(mén)rue，0被轉(zhuǎn)換為False。n4. 日期型數(shù)據(jù)（Date）日期格式： # mm/dd/yyyy # （月/日/年）時(shí)間格式： # hh:mm:ss # （時(shí):分:秒）表示日期和時(shí)間時(shí)，日期和時(shí)間之間用一個(gè)空格分隔。例如，#7/15/2009#、#17:28:15#和#7/22/2009 12:29:12PM#都是合法的日期型數(shù)據(jù)。n5. 字節(jié)型數(shù)據(jù)（Byte）字節(jié)型數(shù)據(jù)用于存儲(chǔ)一個(gè)字節(jié)的無(wú)符號(hào)整數(shù)

7、，其取值范圍為0255。n6. 對(duì)象型數(shù)據(jù)（Object）對(duì)象型數(shù)據(jù)是VB.NET默認(rèn)的數(shù)據(jù)類(lèi)型，它可以引用應(yīng)用程序中的任何一個(gè)對(duì)象，也可引用其他任何數(shù)據(jù)類(lèi)型的數(shù)據(jù)。知識(shí)點(diǎn)知識(shí)點(diǎn)2 常量與變量常量與變量n1. 常量常量是指在程序運(yùn)行過(guò)程中其值不變的量。 直接常量：直接常量： 以直接明顯的形式給出的數(shù)據(jù)。如：3.14E-8、-780，Computer、#2/9/2004#、True等都是直接常量。 符號(hào)常量：符號(hào)常量：程序中若要多次用到某一常量，用戶(hù)就可以把該常量定義為符號(hào)常量。定義符號(hào)常量的語(yǔ)句格式及功能如下：【格式】：【格式】：Const 符號(hào)常量名符號(hào)常量名 As 數(shù)據(jù)類(lèi)型數(shù)據(jù)類(lèi)型 = 表

8、達(dá)式表達(dá)式【功能】：使用Const定義指定名稱(chēng)的符號(hào)常量，并賦常量值。知識(shí)點(diǎn)知識(shí)點(diǎn)2 常量與變量常量與變量例如：。Const X as Integer = 100 聲明整型常量X代表100Const DAY1 as Date = #3/15/2004# 聲明日期常量DAY1 Const PWD = “Tiger” 聲明字符串常量PWD代表 ”Tiger” 系統(tǒng)常量系統(tǒng)常量系統(tǒng)常量是由Visual Basic.NET提供的具有專(zhuān)門(mén)名稱(chēng)和作用的常量，可以直接在程序中使用。如：vbRed表示紅色，vbCrLf 表示回車(chē)換行。2. 變量變量變量是指那些在程序運(yùn)行過(guò)程中，其值可以改變的量。 變量的命名規(guī)

9、則變量的命名規(guī)則n變量名必須以字母或漢字開(kāi)頭，其后可以是下劃線、字母、漢字和數(shù)字。n變量名的長(zhǎng)度不能大于255個(gè)字符。n不允許將Visual Basic.NET的關(guān)鍵字用作變量名，但可以把關(guān)鍵字嵌入變量名中。下面列出的變量名是有效的：a ABC intMax s_name A1 學(xué)生_1 Sum_ave而下面列出的變量名則是無(wú)效的、非法的：2a（數(shù)字開(kāi)頭） Date（和關(guān)鍵字重名） Y,2（有標(biāo)點(diǎn)符號(hào)） 2. 變量變量n 變量的聲明變量的聲明有顯式聲明和隱式聲明兩種方法。 變量的顯式聲明【格式】：Declare 變量名變量名 As 數(shù)據(jù)類(lèi)型數(shù)據(jù)類(lèi)型 =初值初值【功能】：聲明一個(gè)由“變量名”指定

10、的變量，并可以給它賦初值。Dim x, y, z As Single Dim n As Integer = 12, t As Long = 1 Dim aa, bb, cc As Double = 456.7892. 變量變量n 變量的隱式聲明在Visual Basic.NET中，變量的隱式聲明是在變量名后面加上一個(gè)數(shù)據(jù)類(lèi)型符，直接確定變量的類(lèi)型。 例如，有下列語(yǔ)句：Dim N%, sum!, strName$ 定義N為整型變量，sum為單精度型變量，strName為字符串變量 Option Explicit語(yǔ)句Option Explicit Off Option Explicit On編寫(xiě)一

11、個(gè)程序，由用戶(hù)輸入圓的半徑，計(jì)算并輸出圓的編寫(xiě)一個(gè)程序，由用戶(hù)輸入圓的半徑，計(jì)算并輸出圓的周長(zhǎng)和面積。周長(zhǎng)和面積。 Sub Main() Const PI As Single = 3.14 Dim r, l, s As Single Console.Write(請(qǐng)輸入圓的半徑：請(qǐng)輸入圓的半徑：) r = Console.ReadLine l = 2 * PI * r s = PI * r * r Console.WriteLine(“圓的周長(zhǎng)是：圓的周長(zhǎng)是：” & l) Console.WriteLine(圓的面積是：圓的面積是： & s) Console.Read()End

12、Sub2.3 運(yùn)算符和表達(dá)式運(yùn)算符和表達(dá)式知識(shí)點(diǎn)知識(shí)點(diǎn)1 算術(shù)運(yùn)算符算術(shù)運(yùn)算符例如，表達(dá)式4+56*7/8 Mod 9的值是5 運(yùn)算符運(yùn)算符功能功能優(yōu)先級(jí)優(yōu)先級(jí)表達(dá)式表達(dá)式表達(dá)式實(shí)例表達(dá)式實(shí)例表達(dá)式結(jié)果表達(dá)式結(jié)果乘方運(yùn)算乘方運(yùn)算1XY53125取負(fù)取負(fù)2-X-5-5*乘法運(yùn)算乘法運(yùn)算3X*Y3*515/浮點(diǎn)除法運(yùn)算浮點(diǎn)除法運(yùn)算3X/Y5/31.6666667整數(shù)除法運(yùn)算整數(shù)除法運(yùn)算4XY531Mod取模運(yùn)算取模運(yùn)算5X Mod Y5 Mod 32加法運(yùn)算加法運(yùn)算6X+Y5+38減法運(yùn)算減法運(yùn)算6X-Y5-322.3 運(yùn)算符和表達(dá)式運(yùn)算符和表達(dá)式知識(shí)點(diǎn)知識(shí)點(diǎn)2 字符串運(yùn)算符字符串運(yùn)算符計(jì)算機(jī)計(jì)算

13、機(jī)程序設(shè)計(jì)程序設(shè)計(jì) 結(jié)果為計(jì)算機(jī)程序設(shè)計(jì)計(jì)算機(jī)計(jì)算機(jī) & 程序設(shè)計(jì)程序設(shè)計(jì) 結(jié)果為計(jì)算機(jī)程序設(shè)計(jì)125 + 25 結(jié)果為12525125+25 結(jié)果為150125 & 25 結(jié)果為12525ABC + 100 結(jié)果出錯(cuò)ABC & 100 結(jié)果為ABC100可以在可以在Main函數(shù)中使用函數(shù)中使用Console.WriteLine方法來(lái)輸出驗(yàn)證這方法來(lái)輸出驗(yàn)證這些表達(dá)式些表達(dá)式知識(shí)點(diǎn)知識(shí)點(diǎn)3 關(guān)系運(yùn)算符關(guān)系運(yùn)算符運(yùn)算符運(yùn)算符功能功能表達(dá)式實(shí)例表達(dá)式實(shí)例結(jié)果結(jié)果等于等于 Visual = Visul False大于大于 Visual Visl True=大于等于大于等于20

14、20 = 2121False小于小于55 89True=小于等于小于等于 23 = 12 False不等于不等于 xyz XYZ TrueLike字符串匹配字符串匹配 韓非子韓非子 Like Like 韓韓* * TrueIs對(duì)象引用比較對(duì)象引用比較X Is YX Is Y（若若X X和和Y Y引用同一個(gè)對(duì)象）引用同一個(gè)對(duì)象）True知識(shí)點(diǎn)知識(shí)點(diǎn)4 邏輯運(yùn)算符邏輯運(yùn)算符運(yùn)算符運(yùn)算符功能功能優(yōu)先級(jí)優(yōu)先級(jí)表達(dá)式格式表達(dá)式格式說(shuō)明說(shuō)明Not取反取反1Not x進(jìn)行取反操作，即由真變假或進(jìn)行取反操作，即由真變假或由假變真由假變真And與與2x And y兩個(gè)操作數(shù)均為真時(shí)結(jié)果為真，兩個(gè)操作數(shù)均為真時(shí)結(jié)

15、果為真，否則為假否則為假Or或或3x Or y兩個(gè)操作數(shù)均為假時(shí)，結(jié)果為兩個(gè)操作數(shù)均為假時(shí)，結(jié)果為假，否則為真假，否則為真Xor異或異或4x Xor y兩個(gè)操作數(shù)相異時(shí)，結(jié)果為真，兩個(gè)操作數(shù)相異時(shí)，結(jié)果為真，否則為假否則為假AndAlso短路短路與與5x AndAlso y類(lèi)似類(lèi)似And運(yùn)算符運(yùn)算符OrElse短路短路或或6x OrElse y類(lèi)似類(lèi)似Or運(yùn)算符運(yùn)算符知識(shí)點(diǎn)知識(shí)點(diǎn)4 邏輯運(yùn)算符邏輯運(yùn)算符3+58 And 83 結(jié)果為False3+58 Or 8 3 結(jié)果為T(mén)rueNot 5”A” Xor “9” “0” 結(jié)果為False5=5 Or 4*7 7 結(jié)果為T(mén)rue(121) 結(jié)果為

16、False(1020) OrElse (12*8= 字符運(yùn)算符 關(guān)系運(yùn)算符 邏輯運(yùn)算符對(duì)于相同類(lèi)型的運(yùn)算符，則按照規(guī)定的優(yōu)先級(jí)順序進(jìn)行運(yùn)算。若表達(dá)式中有括號(hào)和函數(shù)，則先計(jì)算括號(hào)內(nèi)的表達(dá)式值和函數(shù)。3不同數(shù)據(jù)類(lèi)型的轉(zhuǎn)換在算術(shù)運(yùn)算中，如果參加運(yùn)算的數(shù)據(jù)具有不同的數(shù)據(jù)類(lèi)型，則可以通過(guò)顯式或隱式的方法進(jìn)行類(lèi)型的轉(zhuǎn)換，通常是精度低的向精度高的數(shù)據(jù)類(lèi)型轉(zhuǎn)換。數(shù)據(jù)類(lèi)型由低到高的排列次序?yàn)椋築yte Short Integer Long Single Double N，包括M和N）的表達(dá)式為：Int(Rnd*(M-N+1)+N。產(chǎn)生隨機(jī)英文字符：英文字符A的ASCII碼為65，26個(gè)大寫(xiě)字母的ASCII碼值范

17、圍是6590, 其實(shí)現(xiàn)語(yǔ)句為：Num = Int(Rnd * 26) +65Letter = Chr(Num)知識(shí)點(diǎn)知識(shí)點(diǎn)2 常用的數(shù)據(jù)類(lèi)型轉(zhuǎn)換函數(shù)常用的數(shù)據(jù)類(lèi)型轉(zhuǎn)換函數(shù)函數(shù)名含義實(shí)例結(jié)果Asc(C)字符轉(zhuǎn)換成ASCII碼值A(chǔ)sc(“A”)65Chr(N)ASCII碼值轉(zhuǎn)換成對(duì)應(yīng)字符Chr(65)“A”Str(N)數(shù)值轉(zhuǎn)換為字符串Str(123.45)“ 123.45”Val(C)數(shù)字字符串轉(zhuǎn)換為數(shù)值Val(“123AB”)123Hex(N)十進(jìn)制數(shù)轉(zhuǎn)換為十六進(jìn)制數(shù)Hex(100）64Oct(N)十進(jìn)制數(shù)轉(zhuǎn)換為八進(jìn)制數(shù)Oct(100)144Lcase(C)大寫(xiě)字母轉(zhuǎn)換為小寫(xiě)字母Lcase(“A

18、BC12”)“abc12”Ucase(C)小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)字母Ucase(“abc78”) “ABC78”知識(shí)點(diǎn)知識(shí)點(diǎn)3 字符串操作函數(shù)字符串操作函數(shù)函數(shù)名含義實(shí)例結(jié)果Left(C, N)從字符串C左邊取出N個(gè)字符Left(“ABCDEF”,3)“ABC”Right(C, N)從字符串C右邊取出N個(gè)字符Right(“ABCDEF”, 3)“DEF”Mid(C, N1, N2)從字符串C的N1位開(kāi)始向右取N2個(gè)字符Mid(“ABCDEFG”, 2, 3)“BCD”Trim(C)除去字符串左右兩邊的空格Trim(“ ABC “)“ABC”Ltrim(C)除去字符串左邊的空格Ltrim(“ ab”

19、)“ab”Rtrim(C, N)除去字符串右邊的空格Rtrim(“ABC “)“ABC”InStr(C1,C2)返回字符串C2在字符串C1中第一次出現(xiàn)的位置InStr(”Visual Basic”, “as”)9Len(C)計(jì)算字符串C的長(zhǎng)度Len(“abcde”)5知識(shí)點(diǎn)知識(shí)點(diǎn)4 日期和時(shí)間函數(shù)日期和時(shí)間函數(shù)函數(shù)名含義實(shí)例結(jié)果Now返回系統(tǒng)當(dāng)前的日期和時(shí)間Now2009-7-8 11:32:08Day(D)返回指定日期中的日(131）Month(D)返回指定日期中的月（112）Month(#3/2/2009#)3Year(D）返回指定日期中的年Year(#10/1/2009#)2009Wee

20、kDay(D)返回對(duì)應(yīng)的星期數(shù)（17）星期日為1，星期一為2Weekday(#7/22/2009#)4即星期三在使用在使用Day函數(shù)時(shí)，需要用函數(shù)時(shí)，需要用 Microsoft.VisualBasic 命名空間限定該函數(shù)，命名空間限定該函數(shù)，例如：例如：Microsoft.VisualBasic.DateAndTime.Day(#7/22/2009#)也可以使用也可以使用Day屬性來(lái)獲取日期中的某一天，例如：屬性來(lái)獲取日期中的某一天，例如：#7/22/2009#.Day 任務(wù)任務(wù)3 解析解析Dim num, n As Integer聲明模塊級(jí)變量下面是“開(kāi)始猜數(shù)”按鈕的事件過(guò)程代碼Privat

21、e Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRnd.Click txtInput.BackColor = Color.Pink txtInput.Focus() Randomize() num = Int(Rnd() * 100) + 1 txtInput.Text = txtResult.Text = End Sub下面是“確定”按鈕的事件過(guò)程代碼Private Sub btnOk_Click(ByVal sender As Object, ByVal

22、e As System.EventArgs) Handles btnOk.Click n = Val(txtInput.Text) If n = num Then txtResult.Text = 恭喜你！猜對(duì)了恭喜你！猜對(duì)了 txtInput.BackColor = Color.White ElseIf n num Then txtResult.Text = n & 太大了！太大了！ txtInput.Text = txtInput.Focus() Else txtResult.Text = n & 太小了！太小了！ txtInput.Text = txtInput.Focu

23、s() End IfEnd Subn下面是“查看”按鈕的事件過(guò)程代碼Private Sub btnView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnView.Click txtResult.Text = 您要猜的數(shù)是您要猜的數(shù)是 & numEnd Sub2.5 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì) 順序結(jié)構(gòu)的流程圖：語(yǔ)句1語(yǔ)句2語(yǔ)句3知識(shí)點(diǎn)知識(shí)點(diǎn)1 賦值語(yǔ)句賦值語(yǔ)句【格式1】：變量名變量名 表達(dá)式表達(dá)式【功能】：給變量賦值?！靖袷?】：對(duì)象名對(duì)象名.屬性名屬性名 表達(dá)式表達(dá)式【功能】：給對(duì)象

24、的屬性賦值。 當(dāng)賦值號(hào)兩邊的數(shù)據(jù)類(lèi)型不同時(shí)，系統(tǒng)將強(qiáng)制轉(zhuǎn)換為賦值號(hào)左邊變量的數(shù)據(jù)類(lèi)型。例如：na1% = 6.845 變量a1為整型，表達(dá)式的值經(jīng)四舍五入后再賦給a1，結(jié)果為7。nX!= 6.2831528# 變量x為單精度型，賦值結(jié)果為6.283153，有效位降低為7位。知識(shí)點(diǎn)知識(shí)點(diǎn)1 賦值語(yǔ)句賦值語(yǔ)句n當(dāng)把字符串賦值給數(shù)值型變量時(shí)，系統(tǒng)會(huì)將字符串自動(dòng)轉(zhuǎn)換成數(shù)值再賦值，但當(dāng)字符串中包含非數(shù)字字符或是一空串時(shí)，則出錯(cuò)。例如： a% = 31.456 變量a中的結(jié)果是31。 a! = 31.456 變量a中的結(jié)果是31.456。 a% = 31xy34 出現(xiàn)“類(lèi)型不匹配”錯(cuò)誤知識(shí)點(diǎn)知識(shí)點(diǎn)1 賦值

25、語(yǔ)句賦值語(yǔ)句n當(dāng)把邏輯值賦給數(shù)值變量時(shí)，True轉(zhuǎn)換為1，F(xiàn)alse轉(zhuǎn)換為0；把數(shù)值型值賦給邏輯變量時(shí)，非0值轉(zhuǎn)換為T(mén)rue，0轉(zhuǎn)換為False。例如： Dim BL As Boolean 聲明變量BL為邏輯型 BL = 5 變量BL中的數(shù)據(jù)為T(mén)rue。n任何非字符串型的數(shù)據(jù)賦值給字符串型變量時(shí)，將被轉(zhuǎn)換成字符串型。知識(shí)點(diǎn)知識(shí)點(diǎn)1 賦值語(yǔ)句賦值語(yǔ)句n在程序設(shè)計(jì)中，我們常常會(huì)用到下面的賦值語(yǔ)句： sum = sum + nn賦值號(hào)左邊的變量名只能是變量，不能是常量、函數(shù)或表達(dá)式。例如，以下的賦值語(yǔ)句都是非法的： Sin(1.23) = a 左邊是函數(shù) 9 = a + 1 左邊是常數(shù) a + 1

26、= 8 左邊是表達(dá)式知識(shí)點(diǎn)知識(shí)點(diǎn)1 賦值語(yǔ)句賦值語(yǔ)句n不能用一個(gè)賦值語(yǔ)句同時(shí)給多個(gè)變量賦值。例如，以下的賦值語(yǔ)句是錯(cuò)誤的： Dim a, b, c As Long a = b = c = 10 n程序執(zhí)行時(shí)會(huì)把b = c = 10看成是關(guān)系表達(dá)式，它的值是False，再將其轉(zhuǎn)換后賦給變量a，結(jié)果a的值是0。知識(shí)點(diǎn)知識(shí)點(diǎn)1 賦值語(yǔ)句賦值語(yǔ)句n下列程序段的功能是交換兩個(gè)變量的值。Dim a, b, c As Integera = 15b = -25c = a 將a中的數(shù)據(jù)存入ca = b 將b中的數(shù)據(jù)存入ab = c 將c中的數(shù)據(jù)存入b,實(shí)現(xiàn)交換知識(shí)點(diǎn)知識(shí)點(diǎn)1 賦值語(yǔ)句賦值語(yǔ)句知識(shí)點(diǎn)知識(shí)點(diǎn)2 In

27、putBox函數(shù)函數(shù)n語(yǔ)法格式為： InputBox （, , , , ）功能：功能： 打開(kāi)一個(gè)對(duì)話框，接受用戶(hù)從鍵盤(pán)輸入打開(kāi)一個(gè)對(duì)話框，接受用戶(hù)從鍵盤(pán)輸入的數(shù)據(jù)，該函數(shù)的返回值是字符串類(lèi)型。的數(shù)據(jù)，該函數(shù)的返回值是字符串類(lèi)型。 n例如，有如下語(yǔ)句：Dim sName As StringsName = InputBox(請(qǐng)輸入學(xué)生姓名：, 姓名輸入, 張三)知識(shí)點(diǎn)知識(shí)點(diǎn)2 InputBox函數(shù)函數(shù)知識(shí)點(diǎn)知識(shí)點(diǎn)3 MsgBox函數(shù)函數(shù)nMsgBox函數(shù)產(chǎn)生一個(gè)消息對(duì)話框，常用于在程序運(yùn)行過(guò)程中顯示一些提示性的消息，或要求用戶(hù)對(duì)某個(gè)問(wèn)題作出“是”或“否”的判斷等。MsgBox函數(shù)的語(yǔ)法格式為：Ms

28、gBox （ 提示提示 , 按鈕類(lèi)型按鈕類(lèi)型 , 標(biāo)題標(biāo)題 ）說(shuō)明：說(shuō)明：是必選項(xiàng)，不能省略。 MsgBox函數(shù)返回的值（一個(gè)整型數(shù)）記錄了用戶(hù)在消息框中選擇了哪一個(gè)按鈕 。例如，執(zhí)行下列語(yǔ)句后：Dim n As Integern = MsgBox(文件的內(nèi)容已改變。文件的內(nèi)容已改變。 & vbCrLf & 想保存文件嗎？想保存文件嗎？, 35, 記事本記事本)若用戶(hù)在對(duì)話框中單擊“是是”按鈕，n的值為6；若單擊“否否”按鈕，n的值為7；若單擊“取取消消”按鈕，n的值為2。知識(shí)點(diǎn)知識(shí)點(diǎn)3 MsgBox函數(shù)函數(shù)知識(shí)點(diǎn)知識(shí)點(diǎn)4 MessageBox類(lèi)類(lèi)nMessageBox.Sho

29、w()函數(shù)與MsgBox函數(shù)功能相同，也是產(chǎn)生一個(gè)消息對(duì)話框，用于在程序運(yùn)行過(guò)程中顯示一些提示性的消息，或要求用戶(hù)對(duì)某個(gè)問(wèn)題作出“是”或“否”的判斷等。MessageBox.Show()函數(shù)的語(yǔ)法格式為：MessageBox.Show（ 提示提示 ，標(biāo)題，標(biāo)題 ，按鈕，按鈕類(lèi)型類(lèi)型 ，圖標(biāo)類(lèi)型，圖標(biāo)類(lèi)型 ，默認(rèn)按鈕，默認(rèn)按鈕 ）知識(shí)點(diǎn)知識(shí)點(diǎn)4 MessageBox類(lèi)類(lèi)n例如，下列語(yǔ)句也可以得到圖例如，下列語(yǔ)句也可以得到圖2-10所示的消所示的消息對(duì)話框。息對(duì)話框。Dim n As Integern = MessageBox.Show(文件的內(nèi)容已改變。文件的內(nèi)容已改變。 & vbCrL

30、f & 想保存文件嗎？想保存文件嗎？, 記事本記事本, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)任務(wù)任務(wù)4 編寫(xiě)一個(gè)求解三角形面積的程序編寫(xiě)一個(gè)求解三角形面積的程序n要求：使用InputBox函數(shù)輸入三角形的三條邊，計(jì)算其面積并用MsgBox函數(shù)輸出。其中面積S = ， p = (a+b+c) 。)()(cpbpappImports System.MathPublic Class frmAreaPrivate Sub frmArea_Click(ByV

31、al sender As Object, ByVal e As System.EventArgs) Handles Me.Click Dim a, b, c, p, s As Single a = Val(InputBox(請(qǐng)輸入三角形的邊長(zhǎng)請(qǐng)輸入三角形的邊長(zhǎng)A：) b = Val(InputBox(請(qǐng)輸入三角形的邊長(zhǎng)請(qǐng)輸入三角形的邊長(zhǎng)B：) c = Val(InputBox(請(qǐng)輸入三角形的邊長(zhǎng)請(qǐng)輸入三角形的邊長(zhǎng)C：)If a + b c And a + c b And b + c a Then p = (a + b + c) / 2 s = Sqrt(p * (p - a) * (p - b

32、) * (p - c) MsgBox(A= & a & ,B= & b & ,C= & c & ,面積面積= & s, , 三角形的面積三角形的面積) Else MsgBox(輸入的三條邊不能構(gòu)成三角形輸入的三條邊不能構(gòu)成三角形) End IfEnd SubEnd Class順序結(jié)構(gòu)的上機(jī)習(xí)題 1. 隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)，并逆序輸出它。例如：產(chǎn)生的數(shù)為123，則輸出的數(shù)為321。界面如下圖所示：算法定義5個(gè)變量N=隨機(jī)數(shù)分別求出百位、十位、個(gè)位數(shù)a、b、cM=C*100+B*10+A將N和M分別顯示在兩個(gè)文本框中順序結(jié)構(gòu)的上機(jī)習(xí)題 2.

33、 由鍵盤(pán)輸入任意一個(gè)字符，用消息對(duì)話框顯示它的ASCII碼值。2.6 條件分支結(jié)構(gòu)程序設(shè)計(jì)條件分支結(jié)構(gòu)程序設(shè)計(jì)n知識(shí)點(diǎn)知識(shí)點(diǎn)1 簡(jiǎn)單分支結(jié)構(gòu)（單分支結(jié)構(gòu)）簡(jiǎn)單分支結(jié)構(gòu)（單分支結(jié)構(gòu)） 單行結(jié)構(gòu)的語(yǔ)法格式為： 【格式】：If 條件表達(dá)式條件表達(dá)式 Then 語(yǔ)句行語(yǔ)句行 塊結(jié)構(gòu)的語(yǔ)法格式是： 【格式】：If 條件表達(dá)式條件表達(dá)式 Then 語(yǔ)句塊語(yǔ)句塊 End If分支結(jié)構(gòu)的控制流程圖 知識(shí)點(diǎn)知識(shí)點(diǎn)1 簡(jiǎn)單分支結(jié)構(gòu)（單分支結(jié)構(gòu)）簡(jiǎn)單分支結(jié)構(gòu)（單分支結(jié)構(gòu)）n例如，要根據(jù)成績(jī)變量（Score）來(lái)統(tǒng)計(jì)通過(guò)計(jì)算機(jī)考試的人數(shù)（Sum），實(shí)現(xiàn)的語(yǔ)句是： If Score = 60 Then Sum = Sum

34、 + 1n又例如，已知兩個(gè)數(shù)值型變量x和y，如果x小于y，則交換x 和y的值，否則不交換。實(shí)現(xiàn)的程序代碼段是： If x = 0 Then y = Sin(x) + Sqrt(x 2 + 1) Else y = Cos(x) - x 3 + 3 * x End If03cosx01sin32xxxxxxy任務(wù)任務(wù)5 編寫(xiě)一個(gè)出租車(chē)計(jì)費(fèi)程序編寫(xiě)一個(gè)出租車(chē)計(jì)費(fèi)程序n已知出租車(chē)的起步價(jià)是6元，基價(jià)里程是2.5公里；超過(guò)2.5公里的部分，每公里加收1.2元；如果路程超過(guò)10公里，則超出部分加收50%的空貼費(fèi)。編寫(xiě)一個(gè)出租車(chē)計(jì)費(fèi)程序。n界面如下圖所示，在文本框txtDistance中輸入公里數(shù)，單擊“計(jì)

35、算”按鈕則在文本框txtCost中顯示應(yīng)付的出租車(chē)費(fèi)；單擊“清空”按鈕則清空兩個(gè)文本框任務(wù)任務(wù)5 解析解析Public Class frmTaxiCost Dim n As Single, cost As SinglePrivate Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click n = Val(txtDistance.Text) If n 10 Then cost = cost + (n - 10) * 1.2 * 0.5

36、 超過(guò)10公里的加收超出部分50%的空車(chē)費(fèi) End If cost = Math.Round(cost) 四舍五入取整 End If txtCost.Text = cost & 元 End Sub Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click txtDistance.Text = txtCost.Text = “ 或 txtCost.Clear() End SubEnd Class知識(shí)點(diǎn)知識(shí)點(diǎn)3 多分支結(jié)構(gòu)多分支結(jié)

37、構(gòu) 1使用使用IfThenElseIf語(yǔ)句語(yǔ)句 【格式】：If 條件表達(dá)式條件表達(dá)式1 Then 語(yǔ)句塊語(yǔ)句塊1 ElseIf 條件表達(dá)式條件表達(dá)式2 Then 語(yǔ)句塊語(yǔ)句塊2 Else 語(yǔ)句塊語(yǔ)句塊n+1 End If【功能】：依次依次對(duì)給定的條件表達(dá)式進(jìn)行判斷，哪個(gè)條件表達(dá)式的值為T(mén)rue,則程序就執(zhí)行該條件Then后面的語(yǔ)句塊，執(zhí)行完畢后，程序轉(zhuǎn)到End If之后的語(yǔ)句執(zhí)行，不再判斷其他條件表達(dá)式。當(dāng)所有條件表達(dá)式的值都為False時(shí)，則執(zhí)行Else后面的語(yǔ)句塊。多分支結(jié)構(gòu)的控制流程圖 2使用使用Select Case語(yǔ)句語(yǔ)句【格式】：Select Case 測(cè)試條件表達(dá)式測(cè)試條件表達(dá)式

38、 Case表達(dá)式列表表達(dá)式列表1 語(yǔ)句塊語(yǔ)句塊1 Case表達(dá)式列表表達(dá)式列表2 語(yǔ)句塊語(yǔ)句塊2 Case Else 語(yǔ)句塊語(yǔ)句塊n+1 End Select【功能】：首先計(jì)算測(cè)試條件表達(dá)式的值，然后將該值依次與各Case后面的表達(dá)式列表值進(jìn)行比較，若與某一列表值相等， 就執(zhí)行與該Case相關(guān)聯(lián)的語(yǔ)句塊，執(zhí)行完畢后，程序轉(zhuǎn)到End Select之后的語(yǔ)句，不再與其他列表值進(jìn)行比較。當(dāng)所有列表表達(dá)式的值均不能與測(cè)試條件表達(dá)式的值相匹配時(shí)，則執(zhí)行Case Else后面的語(yǔ)句塊。n說(shuō)明：說(shuō)明：“測(cè)試條件表達(dá)式測(cè)試條件表達(dá)式”可以是數(shù)值型或字符串表達(dá)式?！氨磉_(dá)式列表表達(dá)式列表”可以是以下3種形式：表達(dá)

39、式列表：如：Case 2, 4 ,6 ,8表達(dá)式 To 表達(dá)式： 如：Case 20 to 50Is 比較運(yùn)算符 表達(dá)式： 如： Case Is xCase 2, 4, 6, 8, Is 10任務(wù)任務(wù)6：編寫(xiě)一個(gè)購(gòu)物打折程序：編寫(xiě)一個(gè)購(gòu)物打折程序 某商場(chǎng)采用購(gòu)物打折的優(yōu)惠辦法促銷(xiāo)，每位顧客一次購(gòu)物n在100元以上，按九折優(yōu)惠；n在500元以上，按八折優(yōu)惠；n在1000元以上，按七折優(yōu)惠；n在5000元以上，按六折優(yōu)惠。 編寫(xiě)程序，輸入顧客的購(gòu)物款，計(jì)算并顯示出顧客的實(shí)際應(yīng)付款。要求分別用IfThen ElseIf語(yǔ)語(yǔ)句和句和Select Case語(yǔ)句語(yǔ)句來(lái)實(shí)現(xiàn) 。程序運(yùn)行界面 n任務(wù)任務(wù)6 解

40、析解析n思路分析：設(shè)顧客的購(gòu)物款為x,打折后的貨款為y，則優(yōu)惠公式為： )5000(6 . 0)50001000(7 . 0)1000500(8 . 0)500100(9 . 0)100(xxxxxxxxxxy Dim x, y As Single 使用IfElseIf語(yǔ)句 Private Sub btnElseIf_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnElseIf.Click x = Val(txtInput.Text) If x 100 Then y = x ElseIf x 500 T

41、hen y = x * 0.9 ElseIf x 1000 Then y = x * 0.8 ElseIf x 5000 Then y = x * 0.7 Else y = x * 0.6 End If txtOutput.Text = y End Sub Private Sub btnSelect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSelect.Click x = Val(txtInput.Text) Select Case x Case Is 100 y = x Case Is 500

42、 y = x * 0.9 Case Is 1000 y = x * 0.8 Case Is 5000 y = x * 0.7 Case Else y = x * 0.6 End Select txtOutput.Text = y End Sub條件分支結(jié)構(gòu)的習(xí)題 編寫(xiě)一個(gè)求解一元二次方程根的程序。 要求用戶(hù)輸入方程的3個(gè)系數(shù)，判斷是否是二次方程，如果是，根據(jù)分2種情況求解方程的根（有解或無(wú)解）；如果是一次方程，直接求出根。2.7 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)循環(huán)結(jié)構(gòu)程序設(shè)計(jì) 循環(huán)是指在程序設(shè)計(jì)中，在指定條件下從程序的某處開(kāi)始有規(guī)律地反復(fù)執(zhí)行某一程序段的現(xiàn)象，被重復(fù)執(zhí)行的程序段稱(chēng)為“循環(huán)體”。 Visual

43、 Basic.NET提供了兩種類(lèi)型的循環(huán)結(jié)構(gòu)，一種是計(jì)數(shù)循環(huán)，另一種是條件循環(huán)。知識(shí)點(diǎn)知識(shí)點(diǎn)1 ForNext循環(huán)循環(huán)n如果知道循環(huán)的次數(shù)，就可以使用ForNext循環(huán)結(jié)構(gòu)，F(xiàn)orNext語(yǔ)句以指定的次數(shù)執(zhí)行一組語(yǔ)句。【格式】：For 循環(huán)變量循環(huán)變量 = 初值初值 To 終值終值 Step 步長(zhǎng)步長(zhǎng) 語(yǔ)句塊語(yǔ)句塊1 Exit For 語(yǔ)句塊語(yǔ)句塊2Next 循環(huán)變量循環(huán)變量n說(shuō)明：說(shuō)明： 循環(huán)變量、初值和終值都是必要參數(shù)，不能省略，它們必須為數(shù)值型。 步長(zhǎng)可以是正數(shù)或者負(fù)數(shù)。如果初值小于或等于終值，步長(zhǎng)的值應(yīng)該為正；反之，步長(zhǎng)應(yīng)該為負(fù)。步長(zhǎng)的值為1時(shí)，可以省略不寫(xiě)。 語(yǔ)句塊可以是一條語(yǔ)句，也

44、可以是多條語(yǔ)句，通常稱(chēng)為循環(huán)體。循環(huán)體在循環(huán)過(guò)程中被反復(fù)執(zhí)行。 ForNext循環(huán)是計(jì)數(shù)循環(huán)，通常用于循環(huán)次數(shù)確定的場(chǎng)合。一個(gè)For循環(huán)的循環(huán)次數(shù)計(jì)算公式是：Int(終值終值 初值初值)/步長(zhǎng)步長(zhǎng)1)。 Exit For子句是可選項(xiàng)，它可以放置在循環(huán)體的任何位置。程序在執(zhí)行過(guò)程中遇到Exit For子句時(shí)，將強(qiáng)行退出循環(huán)去執(zhí)行Next后面的語(yǔ)句。Exit For子句常與條件判斷語(yǔ)句配合使用，使得循環(huán)操作能在一些特殊場(chǎng)合下提前終止。 For循環(huán)的執(zhí)行步驟是： 設(shè)置循環(huán)變量的值等于給定的初值； 判斷循環(huán)變量的值是否超過(guò)所設(shè)定的終值，如果是的話，則結(jié)束循環(huán)，去執(zhí)行Next后面的語(yǔ)句。當(dāng)步長(zhǎng)為正時(shí)，超

45、過(guò)是指循環(huán)變量的值大于所設(shè)定的終值；當(dāng)步長(zhǎng)為負(fù)時(shí)，超過(guò)是指循環(huán)變量的值小于所設(shè)定的終值。 如果循環(huán)變量的值不超過(guò)所設(shè)定的終值，則執(zhí)行For與Next語(yǔ)句之間的語(yǔ)句塊（循環(huán)體）。 循環(huán)體執(zhí)行完成后，循環(huán)變量自動(dòng)增加一個(gè)給定的步長(zhǎng)，然后轉(zhuǎn)到步驟，繼續(xù)循環(huán)。n例如，計(jì)算1+2+3+4+100的和。程序代碼段如下：Dim i, sum As Integer 聲明循環(huán)變量為整型數(shù)sum = 0 求和變量在循環(huán)外清零For i = 1 To 100 Step 1 sum = sum + i 循環(huán)累加Next I注意：由于步長(zhǎng)等于1，程序中的Step 1可以省略。此程序的循環(huán)次數(shù)是Int（(100-1)/1

46、+1）=100。循環(huán)結(jié)束時(shí)，循環(huán)變量i的值是101，它超過(guò)了終值100。n思考：若要求思考：若要求1100之間的奇數(shù)或偶數(shù)的和，上述程之間的奇數(shù)或偶數(shù)的和，上述程序應(yīng)如何修改？序應(yīng)如何修改？知識(shí)點(diǎn)2 For EachNext循環(huán) n使用For EachNext語(yǔ)句可以對(duì)一個(gè)集合（或數(shù)組）中的每個(gè)元素都執(zhí)行一遍循環(huán)體。n集合是聚集在一起的一組對(duì)象的統(tǒng)稱(chēng)，使用集合可以很容易地實(shí)現(xiàn)添加、刪除和計(jì)數(shù)等功能。每個(gè)窗體都有一個(gè)控件集合，代表該窗體上的所有控件。使用索引可獲取該集合某個(gè)控件的引用，并可使用For EachNext語(yǔ)句遍歷整個(gè)集合。n【格式】：For Each 循環(huán)變量循環(huán)變量 In 集合或數(shù)

47、組集合或數(shù)組 循環(huán)體循環(huán)體Next 任務(wù)任務(wù)7 編寫(xiě)一個(gè)能判斷素?cái)?shù)并且能遍編寫(xiě)一個(gè)能判斷素?cái)?shù)并且能遍歷窗體控件的程序歷窗體控件的程序n數(shù)學(xué)上把只能被1或自身整除的整數(shù)稱(chēng)為素?cái)?shù)。編寫(xiě)程序，輸入一個(gè)大于2的整數(shù)，單擊“判斷素?cái)?shù)”按鈕，將在標(biāo)簽中顯示該數(shù)“是素?cái)?shù)”或“不是素?cái)?shù)”；單擊“遍歷控件”按鈕，將遍歷窗體上的所有控件，并將每個(gè)控件的背景色設(shè)為淡綠色。如圖2-18所示。任務(wù)任務(wù)7 解析解析編寫(xiě)兩個(gè)命令按鈕的Click事件過(guò)程代碼，如下所示：Public Class frmForCycle Private Sub btnForNext_Click(ByVal sender As System.Ob

48、ject, ByVal e As System.EventArgs) Handles btnForNext.Click Dim n, i As Integer, flag As Boolean n = Val(txtNum.Text) flag = True For i = 2 To Math.Sqrt(n) 終值也可以寫(xiě)成n-1 If n Mod i = 0 Then flag = False Exit For End If Next i If flag Then 如果如果flag為為T(mén)rue則則n是素?cái)?shù)是素?cái)?shù) lblDisp.Text = n & 是素?cái)?shù)是素?cái)?shù) Else lblDi

49、sp.Text = n & 不是素?cái)?shù)不是素?cái)?shù) End If End Sub下列代碼用于遍歷控件 Private Sub btnForEach_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnForEach.Click Dim thisCon As System.Windows.Forms.Control 定義一個(gè)控件類(lèi)的對(duì)象變量 For Each thisCon In Me.Controls thisCon.BackColor = Color.LightGreen Next End Sub En

50、d Class知識(shí)點(diǎn)知識(shí)點(diǎn)3 DoLoop循環(huán)循環(huán) DoLoop循環(huán)又稱(chēng)為條件循環(huán)，可以根據(jù)循環(huán)條件的成立與否來(lái)決定是否執(zhí)行循環(huán)體。 前測(cè)型循環(huán)結(jié)構(gòu)的語(yǔ)法格式為： 【格式】：Do While|Until 條件條件 語(yǔ)句塊語(yǔ)句塊1 Exit Do 語(yǔ)句塊語(yǔ)句塊2 Loop【功能】：在執(zhí)行循環(huán)體前先判斷是否滿(mǎn)足循環(huán)的條件，若滿(mǎn)足才進(jìn)入循環(huán)。 前測(cè)型循環(huán)結(jié)構(gòu)的流程圖前測(cè)型循環(huán)結(jié)構(gòu)的流程圖 后測(cè)型循環(huán)結(jié)構(gòu)的流程圖后測(cè)型循環(huán)結(jié)構(gòu)的流程圖 知識(shí)點(diǎn)知識(shí)點(diǎn)3 DoLoop循環(huán)循環(huán)后測(cè)型循環(huán)結(jié)構(gòu)的語(yǔ)法格式為：【格式】：Do 語(yǔ)句塊語(yǔ)句塊1 Exit Do 語(yǔ)句塊語(yǔ)句塊2 Loop While|Until 條件條件【功能】：先進(jìn)入循環(huán)執(zhí)行循環(huán)體，然后判斷是否滿(mǎn)足循環(huán)的條件，若滿(mǎn)足繼續(xù)循環(huán)。知識(shí)點(diǎn)知識(shí)點(diǎn)3 DoLoop循環(huán)循環(huán)說(shuō)明：說(shuō)明： 前測(cè)型循環(huán)結(jié)構(gòu)為先判斷后執(zhí)行，循環(huán)體可能一次也不執(zhí)行；后測(cè)型循環(huán)結(jié)構(gòu)為先執(zhí)行后判斷，循環(huán)體至少要被執(zhí)行一次。 關(guān)鍵字While用于指明條件為T(mén)rue時(shí)執(zhí)行循環(huán)體一次；關(guān)鍵字Until用于指明條件為T(mén)rue時(shí)循環(huán)結(jié)束。 條件是條