VB實驗任務(wù)5答案

1、實驗任務(wù)5課程名稱：程序設(shè)計基礎(chǔ)vb實驗名稱實驗五 visual basic程序設(shè)計基礎(chǔ)(1)一、實驗?zāi)康模?掌握變量的定義和賦值2掌握各種類型的數(shù)據(jù)的使用3掌握各種運算表達式的值和使用二、實驗內(nèi)容（包括實驗要求(題目)、實驗步驟、程序清單、運行情況）：實驗1(1) 請分別在窗體的單擊事件過程中聲明定義如下變量,記錄錯誤類型,并分析出錯原因,將出錯的變量名進行修改, 使其不再出錯。visual basic代碼中要聲明和命名一些元素（變量、常量、數(shù)據(jù)類型、過程等），命名時必須遵循以下規(guī)則：l 必須以字母或漢字開頭，由字母、漢字、數(shù)字或下劃線組成。l 字符必須并排書寫，不能出現(xiàn)上下標形式。l 長度

2、小于等于255個字符。l 不可以是系統(tǒng)關(guān)鍵字。l 不可以包含空格、西文標點符號和類型說明符%、&、!、#、$。l 在作用域范圍內(nèi)必須唯一。private sub form_click() dim 5fg as integer 錯在數(shù)字開頭，修正為fg dim l*og as long 錯在內(nèi)部包含*，修正為log dim s-ig as single 錯在內(nèi)部包含-，修正為sig dim dob_ as double 正確 dim _name as string 錯在_開頭，修正為name_ dim blnfrag as boolean 錯在內(nèi)部包含，修正為blnfrag dim do

3、 as date 錯在是系統(tǒng)關(guān)鍵字，修正為dend sub(2) 請按如下形式,按順序分別為以上7個變量進行賦值（ ）,觀察是否能正確賦值,并分析出錯原因)數(shù) 據(jù) 類 型關(guān) 鍵 字所占字節(jié)數(shù)取 值 范 圍整型integer2-215+215-1 即-32768+32767長整型long4-231+231-1即-2147483648 ,2147483647單精度型single4負數(shù)：-3.402823e38-1.401298e-45正數(shù)：1.401298e-453.402823e38雙精度型double8負數(shù)：-1.79769313486232e308 - 4.94065645841247e-3

4、24正數(shù)：4.94065645841247e-3241.79769313486232e308字符串型變長string10+串長度0231約20億個字符定長串長度1216約65535個字符邏輯型boolean2true和false日期型date8100年1月1日9999年12月31日運行時，單擊窗體會出現(xiàn)“溢出錯誤”的提示；分析出錯原因：32768超出了integer變量fg的表示范圍 32768(或-32768、-32769)對fg整型變量賦值32768或-32769，運行時，單擊窗體會出現(xiàn)“溢出錯誤”的提示；分析出錯原因：32768和-32769超出了integer變量fg的表示范圍 327

5、68(或-32768、-32769) 對log長整型變量賦值，運行時，單擊窗體會正常顯示接收的值；分析原因：32768(或-32768、-32769)都沒有超出long長整型變量log的表示范圍 1234567.12345678(或123456789.123、1.2345678)對sig單精度變量賦值1234567.12345678，運行時，單擊窗體會顯示1234567；分析原因：在visual basic中規(guī)定單精度浮點數(shù)精度即有效位數(shù)為7位，單精度型和雙精度型常量的小數(shù)形式若超出有效位數(shù)，進行小數(shù)部分的截取；對sig單精度變量賦值123456789.123，運行時，單擊窗體會顯示1.234

6、568e+08；分析原因：在visual basic中規(guī)定單精度浮點數(shù)精度即有效位數(shù)為7位，若整數(shù)部分超出有效位數(shù)，自動轉(zhuǎn)為指數(shù)形式表示；對sig單精度變量賦值1.2345678，運行時，單擊窗體會顯示1.234568；分析原因：在visual basic中規(guī)定單精度浮點數(shù)精度即有效位數(shù)為7位，單精度型和雙精度型常量的小數(shù)形式若超出有效位數(shù)，進行小數(shù)部分的截取 1234567.12345678(或123456789.123、1.2345678)對dob_雙精度變量賦值，運行時，單擊窗體會正常顯示接收的值；分析原因：在visual basic中規(guī)定雙精度浮點數(shù)精度為1516位。 "ab

7、f"(或"1234"、"123abc")對name_字符串變量賦值，運行時，單擊窗體會正常顯示接收的值；分析原因：字符串是字符序列，由西文字符、漢字和標點符號組成，在visual basic中字符串常量兩端用雙引號""括起。 true(或false、0、1、-1)對blnfrag邏輯型變量賦值true(或false，運行時，單擊窗體會正常顯示接收的值；分析原因：邏輯數(shù)據(jù)類型又稱布爾類型，用于邏輯判斷，只有true和false兩種取值；對blnfrag邏輯型變量賦值0、1、-1，運行時，單擊窗體會分別顯示值false、true

8、、true；分析原因：當賦值時表達式的值的類型并不完全和變量類型相同時，系統(tǒng)根據(jù)自動轉(zhuǎn)換的原則將值轉(zhuǎn)換成與變量相同的類型后賦值，非0值轉(zhuǎn)換為邏輯型true，常量0值轉(zhuǎn)換為邏輯型false。 #10/06/2007#(或#jun 10 2007#、#jun-10 -2007#、#jun,10,2007#、#8:20:20 pm#)對d日期型變量賦值，運行時，單擊窗體會正確顯示接收的值；分析原因：上述日期常量都是合法格式的日期數(shù)據(jù)。實驗2利用print方法在窗體的單擊事件中，驗證下面4個表達式的值和合法性，體會&和+的作用和使用特點(對照課本117118頁)"123"

9、& 456"123" + 456"123ab" & 246"123ab" + 246&和+的作用和使用特點：（1）使用運算符“&”時，操作數(shù)與“&”之間必須加上一個空格分隔。因為符號“&”還是長整型數(shù)據(jù)的類型定義符，若操作數(shù)與符號“&”連接在一起，visual basic系統(tǒng)優(yōu)先將它作為長整型數(shù)據(jù)類型符處理，繼而就會出現(xiàn)語法錯誤。（2）“+”與“&”運算符在使用時的區(qū)別如下。 “&”運算在連接運算前，系統(tǒng)自動先將兩邊的非字符串類型數(shù)據(jù)轉(zhuǎn)換成字符串型數(shù)據(jù)，然后再進行

10、連接操作。 運算符“+”兩邊僅當都是字符串類型數(shù)據(jù)時，才進行字符串的連接操作；否則系統(tǒng)將運算符“+”用作算術(shù)運算符，進行求和運算：若其中一個操作數(shù)是數(shù)值型或邏輯型，另一個操作數(shù)是數(shù)字字符串或邏輯型，則系統(tǒng)會自動將數(shù)字字符串和邏輯型轉(zhuǎn)換為數(shù)值型，然后進行算術(shù)求和運算；否則系統(tǒng)由于無法自動將操作數(shù)轉(zhuǎn)換為數(shù)值型，則出現(xiàn)“類型不匹配”的出錯信息"123" & 456表達式合法，表達式值為”123456”"123" + 456表達式合法，表達式值為579"123ab" & 246表達式合法，表達式值為”123ab246”&quo

11、t;123ab" + 246表達式無法正確計算，出現(xiàn)“類型不匹配“錯誤實驗3請同學(xué)參考課本114117介紹的算術(shù)運算符的功能，先手工寫出以下程序段的運行結(jié)果，然后在窗體的click事件過程中分別添加如下的程序段，運行驗證，進一步理解和掌握運算符和表達式的應(yīng)用。（1）a$ = "good"b$ = "morning"print 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

12、 + bb = a - ba = a - bprint a, bprint hex$(a mod &h10) + b &o12提示數(shù)學(xué)中的乘號在vb中不能缺省，必須用*表示，/表示除運算，表示乘方實驗4 實驗書55頁實驗4-1，提示：千分位、保留小數(shù)位數(shù)、￥格式設(shè)置應(yīng)參看課本130頁采用format(netincome , "￥#,0.00")輸出純收益分析：儲戶到期純收益 = 本金*(1+利息)年數(shù) 本金private sub cmdnetincome_click() dim principal as currency, interest as singl

13、e, year as integer, _ netincome as currency principal = val(txtprincipal) '接收用戶輸入到文本框中的本金 interest = val(txtinterest) '接收用戶輸入到文本框中的年利息 year = val(txtyear) '接收用戶輸入到文本框中的存儲年數(shù) netincome = principal * (1 + interest) year - principal '計算純收益 lblnetincome = "本金￥" & txtprincipa

14、l & "，" & txtyear & "年期純收益為" & _format(netincome, "￥#,0.00") '利用標簽顯示純收益end sub實驗5課本133頁思考練習(xí)題2：根據(jù)用戶輸入的半徑r，求對應(yīng)的直徑d=2r、圓周長l=2pr和面積s=pr2、球表面積ss=4pr2和體積v=pr3，要求保留3位小數(shù)顯示結(jié)果(參看課本130頁采用format函數(shù)，)。參考運行界面const pi = 3.1415926 '定義符號常量pi表示圓周率private sub form_l

15、oad() '窗體的單擊事件 '清空文本框和標簽中的內(nèi)容 txtr.text = "" : lbld.caption = "" lbll.caption = "" : lbls.caption = "" lblss.caption = "" : lblv.caption = ""end subprivate sub cmdcal_click() '“計算”命令按鈕的單擊事件 dim r as double, d as double, l as doub

16、le dim s as double, ss as double, v as double r = val(txtr.text) '接收用戶在文本框中輸入的半徑 d = 2 * r '根據(jù)計算公式，完成直徑的計算 l = 2 * pi * r '根據(jù)計算公式，完成周長的計算 s = pi * r 2 '根據(jù)計算公式，完成面積的計算 ss = 4 * pi * r 2 '根據(jù)計算公式，完成面積的計算 v = 3 / 4 * pi * r 3 '根據(jù)計算公式，完成體積的計算 '將計算好的結(jié)果保留3位小數(shù),通過標簽顯示輸出 lbld.caption = format(d, "0.000") lbll.caption = format(l, "0.000") lbls.caption = format(s, "0.000") lblss.caption = format(ss, "0.000") lblv.caption = format(v, "0.000")end subprivate sub cmdclear_click() '“清除”命令按鈕的單