VB實(shí)驗(yàn)任務(wù)5答案.doc

實(shí)驗(yàn)任務(wù)5課程名稱：程序設(shè)計(jì)基礎(chǔ)VB實(shí)驗(yàn)名稱實(shí)驗(yàn)五 Visual Basic程序設(shè)計(jì)基礎(chǔ)(1)一、實(shí)驗(yàn)?zāi)康模?掌握變量的定義和賦值2掌握各種類(lèi)型的數(shù)據(jù)的使用3掌握各種運(yùn)算表達(dá)式的值和使用二、實(shí)驗(yàn)內(nèi)容（包括實(shí)驗(yàn)要求(題目)、實(shí)驗(yàn)步驟、程序清單、運(yùn)行情況）：實(shí)驗(yàn)1(1) 請(qǐng)分別在窗體的單擊事件過(guò)程中聲明定義如下變量,記錄錯(cuò)誤類(lèi)型,并分析出錯(cuò)原因,將出錯(cuò)的變量名進(jìn)行修改, 使其不再出錯(cuò)。P59Visual Basic代碼中要聲明和命名一些元素（變量、常量、數(shù)據(jù)類(lèi)型、過(guò)程等），命名時(shí)必須遵循以下規(guī)則：l 必須以字母或漢字開(kāi)頭，由字母、漢字、數(shù)字或下劃線組成。l 字符必須并排書(shū)寫(xiě)，不能出現(xiàn)上下標(biāo)形式。l 長(zhǎng)度小于等于255個(gè)字符。l 不可以是系統(tǒng)關(guān)鍵字。l 不可以包含空格、西文標(biāo)點(diǎn)符號(hào)和類(lèi)型說(shuō)明符%、&、!、#、$。l 在作用域范圍內(nèi)必須唯一。Private Sub Form_Click() Dim 5Fg As Integer 錯(cuò)在數(shù)字開(kāi)頭，修正為Fg Dim L*og As Long 錯(cuò)在內(nèi)部包含*，修正為L(zhǎng)og Dim s-ig As Single 錯(cuò)在內(nèi)部包含-，修正為sig Dim dob_ As Double 正確 Dim _Name As string 錯(cuò)在_開(kāi)頭，修正為Name_ Dim blnFrag As Boolean 錯(cuò)在內(nèi)部包含，修正為blnFrag Dim do As Date 錯(cuò)在是系統(tǒng)關(guān)鍵字，修正為dEnd Sub(2) 請(qǐng)按如下形式,按順序分別為以上7個(gè)變量進(jìn)行賦值（ ）,觀察是否能正確賦值,并分析出錯(cuò)原因)數(shù) 據(jù) 類(lèi) 型關(guān) 鍵 字所占字節(jié)數(shù)取 值 范 圍整型Integer2-215+215-1 即-32768+32767長(zhǎng)整型Long4-231+231-1即-2147483648 ,2147483647單精度型Single4負(fù)數(shù)：-3.402823E38-1.401298E-45正數(shù)：1.401298E-453.402823E38雙精度型Double8負(fù)數(shù)：-1.79769313486232E308 - 4.94065645841247E-324正數(shù)：4.94065645841247E-3241.79769313486232E308字符串型變長(zhǎng)String10+串長(zhǎng)度0231約20億個(gè)字符定長(zhǎng)串長(zhǎng)度1216約65535個(gè)字符邏輯型Boolean2True和False日期型Date8100年1月1日9999年12月31日運(yùn)行時(shí)，單擊窗體會(huì)出現(xiàn)“溢出錯(cuò)誤”的提示；分析出錯(cuò)原因：32768超出了Integer變量Fg的表示范圍 32768(或-32768、-32769)對(duì)Fg整型變量賦值32768或-32769，運(yùn)行時(shí)，單擊窗體會(huì)出現(xiàn)“溢出錯(cuò)誤”的提示；分析出錯(cuò)原因：32768和-32769超出了Integer變量Fg的表示范圍 32768(或-32768、-32769) 對(duì)Log長(zhǎng)整型變量賦值，運(yùn)行時(shí)，單擊窗體會(huì)正常顯示接收的值；分析原因：32768(或-32768、-32769)都沒(méi)有超出Long長(zhǎng)整型變量Log的表示范圍 1234567.12345678(或123456789.123、1.2345678)對(duì)sig單精度變量賦值1234567.12345678，運(yùn)行時(shí)，單擊窗體會(huì)顯示1234567；分析原因：在Visual Basic中規(guī)定單精度浮點(diǎn)數(shù)精度即有效位數(shù)為7位，單精度型和雙精度型常量的小數(shù)形式若超出有效位數(shù)，進(jìn)行小數(shù)部分的截?。粚?duì)sig單精度變量賦值123456789.123，運(yùn)行時(shí)，單擊窗體會(huì)顯示1.234568E+08；分析原因：在Visual Basic中規(guī)定單精度浮點(diǎn)數(shù)精度即有效位數(shù)為7位，若整數(shù)部分超出有效位數(shù)，自動(dòng)轉(zhuǎn)為指數(shù)形式表示；對(duì)sig單精度變量賦值1.2345678，運(yùn)行時(shí)，單擊窗體會(huì)顯示1.234568；分析原因：在Visual Basic中規(guī)定單精度浮點(diǎn)數(shù)精度即有效位數(shù)為7位，單精度型和雙精度型常量的小數(shù)形式若超出有效位數(shù)，進(jìn)行小數(shù)部分的截取 1234567.12345678(或123456789.123、1.2345678)對(duì)dob_雙精度變量賦值，運(yùn)行時(shí)，單擊窗體會(huì)正常顯示接收的值；分析原因：在Visual Basic中規(guī)定雙精度浮點(diǎn)數(shù)精度為1516位。 abf(或1234、123abc)對(duì)Name_字符串變量賦值，運(yùn)行時(shí)，單擊窗體會(huì)正常顯示接收的值；分析原因：字符串是字符序列，由西文字符、漢字和標(biāo)點(diǎn)符號(hào)組成，在Visual Basic中字符串常量?jī)啥擞秒p引號(hào)括起。 True(或False、0、1、-1)對(duì)blnFrag邏輯型變量賦值True(或False，運(yùn)行時(shí)，單擊窗體會(huì)正常顯示接收的值；分析原因：邏輯數(shù)據(jù)類(lèi)型又稱布爾類(lèi)型，用于邏輯判斷，只有True和False兩種取值；對(duì)blnFrag邏輯型變量賦值0、1、-1，運(yùn)行時(shí)，單擊窗體會(huì)分別顯示值False、True、True；分析原因：當(dāng)賦值時(shí)表達(dá)式的值的類(lèi)型并不完全和變量類(lèi)型相同時(shí)，系統(tǒng)根據(jù)自動(dòng)轉(zhuǎn)換的原則將值轉(zhuǎn)換成與變量相同的類(lèi)型后賦值，非0值轉(zhuǎn)換為邏輯型True，常量0值轉(zhuǎn)換為邏輯型False。 #10/06/2007#(或#Jun 10 2007#、#Jun-10 -2007#、#Jun,10,2007#、#8:20:20 PM#)對(duì)d日期型變量賦值，運(yùn)行時(shí)，單擊窗體會(huì)正確顯示接收的值；分析原因：上述日期常量都是合法格式的日期數(shù)據(jù)。實(shí)驗(yàn)2利用Print方法在窗體的單擊事件中，驗(yàn)證下面4個(gè)表達(dá)式的值和合法性，體會(huì)&和+的作用和使用特點(diǎn)(對(duì)照課本71-72頁(yè))123 & 456123 + 456123ab & 246123ab + 246&和+的作用和使用特點(diǎn)：（1）使用運(yùn)算符“&”時(shí)，操作數(shù)與“&”之間必須加上一個(gè)空格分隔。因?yàn)榉?hào)“&”還是長(zhǎng)整型數(shù)據(jù)的類(lèi)型定義符，若操作數(shù)與符號(hào)“&”連接在一起，Visual Basic系統(tǒng)優(yōu)先將它作為長(zhǎng)整型數(shù)據(jù)類(lèi)型符處理，繼而就會(huì)出現(xiàn)語(yǔ)法錯(cuò)誤。（2）“+”與“&”運(yùn)算符在使用時(shí)的區(qū)別如下。 “&”運(yùn)算在連接運(yùn)算前，系統(tǒng)自動(dòng)先將兩邊的非字符串類(lèi)型數(shù)據(jù)轉(zhuǎn)換成字符串型數(shù)據(jù)，然后再進(jìn)行連接操作。 運(yùn)算符“+”兩邊僅當(dāng)都是字符串類(lèi)型數(shù)據(jù)時(shí)，才進(jìn)行字符串的連接操作；否則系統(tǒng)將運(yùn)算符“+”用作算術(shù)運(yùn)算符，進(jìn)行求和運(yùn)算：若其中一個(gè)操作數(shù)是數(shù)值型或邏輯型，另一個(gè)操作數(shù)是數(shù)字字符串或邏輯型，則系統(tǒng)會(huì)自動(dòng)將數(shù)字字符串和邏輯型轉(zhuǎn)換為數(shù)值型，然后進(jìn)行算術(shù)求和運(yùn)算；否則系統(tǒng)由于無(wú)法自動(dòng)將操作數(shù)轉(zhuǎn)換為數(shù)值型，則出現(xiàn)“類(lèi)型不匹配”的出錯(cuò)信息123 & 456表達(dá)式合法，表達(dá)式值為”123456”123 + 456表達(dá)式合法，表達(dá)式值為579123ab & 246表達(dá)式合法，表達(dá)式值為”123ab246”123ab + 246表達(dá)式無(wú)法正確計(jì)算，出現(xiàn)“類(lèi)型不匹配“錯(cuò)誤實(shí)驗(yàn)3請(qǐng)同學(xué)參考課本P69介紹的算術(shù)運(yùn)算符的功能，先手工寫(xiě)出以下程序段的運(yùn)行結(jié)果，然后在窗體的Click事件過(guò)程中分別添加如下的程序段，運(yùn)行驗(yàn)證，進(jìn)一步理解和掌握運(yùn)算符和表達(dá)式的應(yīng)用。（1）a$ = Goodb$ = MorningPrint a + bc$ = b$b$ = a$a$ = c$Print a & b（2）Print -44.5 Mod 2.7Print 45.5 2.4Print 45 -5（3）a% = 300b% = 20a = a + bb = a - ba = a - bPrint a, bPrint Hex$(a Mod &H10) + b &O12提示數(shù)學(xué)中的乘號(hào)在VB中不能缺省，必須用*表示，/表示除運(yùn)算，表示乘方實(shí)驗(yàn)4 實(shí)驗(yàn)書(shū)實(shí)驗(yàn)4-1 先在書(shū)本上寫(xiě)出以下程序段的運(yùn)行結(jié)果，然后在窗體的Click事件過(guò)程中分別添加如下的程序段，運(yùn)行驗(yàn)證。（請(qǐng)仔細(xì)觀察結(jié)果）（了解函數(shù)的使用p76-82）（1）程序代碼段一：Print Sgn(15 Mod 4), 15 Mod 4Print Sgn(18 Mod 26),18 Mod 26Print Asc(P)Print Chr(80)Print Asc(Chr(80)Print Chr(Asc(P) 1)Print String(5, 97), String(5, Mm) （2）程序代碼段二：s$ = abcdefg,123456!ABCDEFPrint Len(s) Print Sqr(Len(s) + 1)Print Lcase(s)Print Ucase(s)Print Left(s,8)Print Right(s,9)Print Mid(s, 3, 5)Print Instr(s,efg)實(shí)驗(yàn)5實(shí)驗(yàn)書(shū)實(shí)驗(yàn)4-2 字符串的插入。要求在圖4-3（a）所示界面上輸入字符串、插入點(diǎn)位置、插入字符串，單擊“插入”按鈕進(jìn)行插入。(注意對(duì)象的屬性設(shè)置)【分析】 插入過(guò)程為將字符串中插入點(diǎn)左邊和右邊的字符串使用Left和Right函數(shù)分離，使用字符串連接符按照左邊字符串、插入字符串和右邊字符串的順序連接起來(lái)，如圖4-3（b）所示。 （a）實(shí)驗(yàn)4-2運(yùn)行時(shí)輸入界面 （b）實(shí)驗(yàn)4-2插入后的界面 圖4-3 實(shí)驗(yàn)4-2運(yùn)行界面程序代碼如下：Option ExplicitPrivate Sub CmdInsert_Click() Dim S1 As String, S2 As String, Pos As Integer S1 = TxtStr.Text Pos = V