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

1、實(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掌握各種類型的數(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)分別在窗體的單擊事件過程中聲明定義如下變量,記錄錯(cuò)誤類型,并分析出錯(cuò)原因,將出錯(cuò)的變量名進(jìn)行修改, 使其不再出錯(cuò)。visual basic代碼中要聲明和命名一些元素（變量、常量、數(shù)據(jù)類型、過程等），命名時(shí)必須遵循以下規(guī)則：l 必須以字母或漢字開頭，由字母、漢字、數(shù)字或下劃線組成。l 字符必須并排書寫，不能出現(xiàn)上下標(biāo)形式。l 長(zhǎng)度

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

3、 as date 錯(cuò)在是系統(tǒng)關(guān)鍵字，修正為dend sub(2) 請(qǐng)按如下形式,按順序分別為以上7個(gè)變量進(jìn)行賦值（ ）,觀察是否能正確賦值,并分析出錯(cuò)原因)數(shù) 據(jù) 類 型關(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-3

4、24正數(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的表示范圍 327

5、68(或-32768、-32769) 對(duì)log長(zhǎng)整型變量賦值，運(yùn)行時(shí)，單擊窗體會(huì)正常顯示接收的值；分析原因：32768(或-32768、-32769)都沒有超出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.234

6、568e+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位。 "ab

7、f"(或"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ù)類型又稱布爾類型，用于邏輯判斷，只有true和false兩種取值；對(duì)blnfrag邏輯型變量賦值0、1、-1，運(yùn)行時(shí)，單擊窗體會(huì)分別顯示值false、true

8、、true；分析原因：當(dāng)賦值時(shí)表達(dá)式的值的類型并不完全和變量類型相同時(shí)，系統(tǒng)根據(jù)自動(dòng)轉(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#)對(duì)d日期型變量賦值，運(yùn)行時(shí)，單擊窗體會(huì)正確顯示接收的值；分析原因：上述日期常量都是合法格式的日期數(shù)據(jù)。實(shí)驗(yàn)2利用print方法在窗體的單擊事件中，驗(yàn)證下面4個(gè)表達(dá)式的值和合法性，體會(huì)&和+的作用和使用特點(diǎn)(對(duì)照課本117118頁(yè))"123"

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

10、連接操作。 運(yùn)算符“+”兩邊僅當(dāng)都是字符串類型數(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)由于無法自動(dòng)將操作數(shù)轉(zhuǎn)換為數(shù)值型，則出現(xiàn)“類型不匹配”的出錯(cuò)信息"123" & 456表達(dá)式合法，表達(dá)式值為”123456”"123" + 456表達(dá)式合法，表達(dá)式值為579"123ab" & 246表達(dá)式合法，表達(dá)式值為”123ab246”&quo

11、t;123ab" + 246表達(dá)式無法正確計(jì)算，出現(xiàn)“類型不匹配“錯(cuò)誤實(shí)驗(yàn)3請(qǐng)同學(xué)參考課本114117介紹的算術(shù)運(yùn)算符的功能，先手工寫出以下程序段的運(yùn)行結(jié)果，然后在窗體的click事件過程中分別添加如下的程序段，運(yùn)行驗(yàn)證，進(jìn)一步理解和掌握運(yùn)算符和表達(dá)式的應(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é)中的乘號(hào)在vb中不能缺省，必須用*表示，/表示除運(yùn)算，表示乘方實(shí)驗(yàn)4 實(shí)驗(yàn)書55頁(yè)實(shí)驗(yàn)4-1，提示：千分位、保留小數(shù)位數(shù)、￥格式設(shè)置應(yīng)參看課本130頁(yè)采用format(netincome , "￥#,0.00")輸出純收益分析：儲(chǔ)戶到期純收益 = 本金*(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) '接收用戶輸入到文本框中的存儲(chǔ)年數(shù) netincome = principal * (1 + interest) year - principal '計(jì)算純收益 lblnetincome = "本金￥" & txtprincipa

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

15、oad() '窗體的單擊事件 '清空文本框和標(biāo)簽中的內(nèi)容 txtr.text = "" : lbld.caption = "" lbll.caption = "" : lbls.caption = "" lblss.caption = "" : lblv.caption = ""end subprivate sub cmdcal_click() '“計(jì)算”命令按鈕的單擊事件 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ù)計(jì)算公式，完成直徑的計(jì)算 l = 2 * pi * r '根據(jù)計(jì)算公式，完成周長(zhǎng)的計(jì)算 s = pi * r 2 '根據(jù)計(jì)算公式，完成面積的計(jì)算 ss = 4 * pi * r 2 '根據(jù)計(jì)算公式，完成面積的計(jì)算 v = 3 / 4 * pi * r 3 '根據(jù)計(jì)算公式，完成體積的計(jì)算 '將計(jì)算好的結(jié)果保留3位小數(shù),通過標(biāo)簽顯示輸出 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() '“清除”命令按鈕的單