順序結(jié)構(gòu)程序設(shè)計(jì) 實(shí)驗(yàn)

一、實(shí)驗(yàn)?zāi)康?br>(1)掌握Visual Basic語言中數(shù)據(jù)輸入方法。
(2)掌握Visual Basic語言中數(shù)據(jù)輸出方法。
(3)正確使用Visual Basic賦值語句。
(4)學(xué)會(huì)設(shè)計(jì)簡(jiǎn)單的順序結(jié)構(gòu)程序。
二、相關(guān)知識(shí)
1．賦值語句
賦值語句是VB中使用頻率最高的語句，這個(gè)語句的含義就是將等號(hào)右邊表達(dá)式的值傳送給等號(hào)左邊的對(duì)象屬性或變量，使其可以在程序運(yùn)行中改變。使用賦值語句應(yīng)注意以下幾點(diǎn)：
(1)只有當(dāng)表達(dá)式是一種與變量兼容的數(shù)據(jù)類型時(shí)，該表達(dá)式的值才可以賦給變量或?qū)傩?。不能將字符串表達(dá)式的值賦給數(shù)值變量，也不能將數(shù)值表達(dá)式的值賦給字符串變量。如果這樣做，就會(huì)在解釋時(shí)出現(xiàn)錯(cuò)誤。
(2)可以把字符串或數(shù)值表達(dá)式賦給Variant變量，但反過來就必須分析：任何除Null之外的Variant都可以賦給字符串變量，但只有當(dāng)Variant的值可以解釋為一個(gè)數(shù)時(shí)才能賦給數(shù)值變量。
(3)將一種數(shù)據(jù)類型的表達(dá)式賦給另一種數(shù)值類型的變量時(shí)，系統(tǒng)會(huì)強(qiáng)制將該表達(dá)式的值轉(zhuǎn)換為變量的數(shù)據(jù)類型。
2．InputBoxO函數(shù)
??? 該函數(shù)產(chǎn)生一個(gè)對(duì)話框，在對(duì)話框中顯示提示信息，等待用戶輸入正文或按下按鈕，此時(shí)返回包含文本框內(nèi)容的字符串。作為對(duì)話框消息出現(xiàn)的字符串表達(dá)式，最大長(zhǎng)度是1024個(gè)字符，由所用字符的寬度決定。如果該消息包含多個(gè)行，則可在各行之間用回車符vbCr、換行符vbLf或回車換行符的組合vbCrLf來分隔。
3．MsgBox0函數(shù)
??? MsgBox()函數(shù)也產(chǎn)生一個(gè)對(duì)話框，在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè)Integer數(shù)，? 告訴用戶單擊了哪一個(gè)按鈕。函數(shù)中顯示在對(duì)話框中的消息是一個(gè)字符串表達(dá)式，其規(guī)則與InputBox函數(shù)相同。MsgBox()函數(shù)根據(jù)所選定參數(shù)的不同，可以彈出不同形式的消息框供用戶使用。
4．Print語句
Print實(shí)質(zhì)是一種方法，在這里我們稱它為語句是因?yàn)樵诖绑w上Print方法的對(duì)象名可以省略，省略后的形式和原Basic中的Print語句相同。該語句最常用的兩個(gè)參數(shù)是Spc(n)和Tab(n)，其中Spc(n)用來在輸出中插入空白字符，n為要插入的空白字符數(shù)。Tab(n)用來將插入點(diǎn)定位在絕對(duì)列號(hào)上，n為列號(hào)。
三、實(shí)驗(yàn)舉例
(實(shí)例1)? MsgBox函數(shù)的使用。
??? Private? Sub Commandl_C1iCk()
??? Dim r AS Integer
??? MsgBox”最簡(jiǎn)單的MsgBox”
R = MsgBox(“復(fù)雜的MsgBox”，? vbYesNo+vbCritical? + vbDefaultButton2，-
”你看到了么?“）
??? Print”你按的值為”；r
??? End? Sub
?? 觀察運(yùn)行結(jié)果。
(實(shí)例2)? 已知圓的半徑R，求圓的周長(zhǎng)和面積。
(1)選擇“文件”菜單上的“新建工程”命令，新建—個(gè)工程。
(2)在窗體上創(chuàng)建兩個(gè)標(biāo)簽(Label)，調(diào)整位置和大小，設(shè)置標(biāo)簽Labell的Caption屬性為“圓的周長(zhǎng)是：”、標(biāo)簽Label2的Caption屬性為“圓的面積是：”。
(3)打開代碼窗口，輸入下面程序代碼。
Private Sub Form_Click()
Dim? r? as? Integer，? S? as? Single，area as Single
r? =? 3
S? =? 2? *? 3.14159? *? r
Area =? 3.14159? *? r? ＾? 2
Label1．Caption=“圓的周長(zhǎng)是：”+Format(s)
Label2．Caption=“圓的面積是：”，+Format(area)
End Sub
運(yùn)行程序,求圓的周長(zhǎng)和面積。
(實(shí)例3)? InputBOx函數(shù)的不同用法。
Private Sub Form_CliCk()
??? Dim? StrName? AS? String? ，? Title? AS? String
??? Dim? Default? AS? String，? MyValue? AS? String
??? ，設(shè)置提示信息
??? StrName = ”請(qǐng)輸入數(shù)據(jù)”
，設(shè)置標(biāo)題
Title = ”InputBox函數(shù)使用舉例”
’設(shè)置缺省值
Default? =? ”2”
’第一種：顯示提示信息、標(biāo)題及缺省值
MyValue? =? InputBox(StrName，? Title，? Default)
，第二種：指定坐標(biāo)：在1000，1000的位置顯示對(duì)話框
MyValue? =? InputBox(StrName，? Title，? Default，1000,1000)
，第三種：顯示“幫助”按鈕，使用幫助文件
MyValue = InputBox(StrName，Title，? ，? ，? ，”DEMO.HLP”，? 10)
End Sub
觀察結(jié)果。