順序結構程序設計 實驗

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