順序結(jié)構(gòu)程序設(shè)計 實驗

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