實驗2 程序設計的基本知識

實驗目的

（1）掌握數據類型、表達式以及賦值語句的書寫規則。

（2）掌握InputBox和MsgBox的使用方法。

（3）掌握Print方法以及與之相關的函數的使用方法。

（4）理解順序結構程序的編寫。

實驗內容

【實驗2.1】

編寫一個應用程序，初始界面如圖1-2-1所示。程序運行時，單擊“開始”按鈕，彈出圖1-2-2所示的對話框，要求用戶輸入一個任意的角度值，單擊“確定”按鈕后程序根據輸入的數據把相關的三角函數值按一定的格式輸出到窗體上。程序的運行結果如圖1-2-3所示。

實驗步驟如下。

（1）啟動Visual Basic 6.0后，創建一個“標準EXE”應用程序，進入程序編輯狀態。

（2）修改窗體的尺寸，并把窗體的Caption屬性值設為“三角函數計算”，再向窗體Form1中增加一個命令按鈕控件（Command1），并將其Caption屬性設為“開始”。

（3）雙擊命令按鈕Command1，進入代碼編輯窗口。編寫Command1的單擊事件過程如下。

Private Sub Command1_Click() 
    Dim x As Single, a As Single 
    x = Val(InputBox("請輸入一角度的度數值", "角度輸入")) 
    a = 3.1415926 / 180 * x                                  '將度數轉換為弧度 
    Print 
    Print Tab(4); "角度"; Tab(14); "弧度"; Tab(28); "Sin(x)"  '輸出表頭 
    Print Tab(4); Format(x, "###.0"); Tab(14);  _             
    Format(a, "0.0000"); Tab(28); Format(Sin(a), "0.0000")   '續行，輸出計算結果 
End Sub

（4）輸入以上程序后，單擊工具欄中的啟動按鈕或按F5鍵運行程序。如果程序編寫正確，單擊“開始”按鈕后，就會出現圖1-2-2所示的輸入數據提示框。輸入數據后，單擊“確定”按鈕，便得到圖1-2-3所示的結果。若要結束程序的運行，可以單擊工具欄上的結束運行按鈕。

注意事項如下。

（1）在輸入程序時，要特別注意程序中起分界符作用的括號、雙引號、分號、逗號等均必須使用西文符號。一般情況下，中文字符（包括中文標點符號）只能用于給字符串或對象名賦值。

（2）InputBox函數的返回值類型是字符型，所以在程序中用Val函數將其轉換為數值型數據后，再賦值給變量a。

（3）Visual Basic中所有的三角函數的參數（自變量）均要求使用弧度值，不能直接用度數代入計算。

（4）如果某條語句太長，可以使用續行符“_”（一個空格緊跟一下畫線）將其分為多行書寫。

（5）Print語句與Tab、Format函數聯合使用可以使得輸出的數據整齊美觀，在調試程序時，可以比較一下不使用這兩個函數的輸出效果。

【實驗2.2】

利用InputBox輸入圓的長度半徑r，計算并顯示圓的周長。

實驗步驟如下。

（1）建立一個新工程，在窗體上添加1個命令按鈕，并參考圖1-2-4所示設置有關對象的屬性。

（2）編寫命令按鈕Command1的Click事件（計算圓的周長）過程代碼。

Private Sub Command1_Click() 
    Const pi = 3.14159 
    Dim r As Single, s As String, s2  As String 
    Dim perimeter As Single 
    s = InputBox("請輸入半徑", "輸入半徑", 1) 
    r = Val(s) 
    perimeter = 2 * pi * r 
    s2 = "半徑=" + s + ",圓的周長=" + Str(perimeter) 
    MsgBox s2, 64, "確認窗口" 
End Sub 

（3）調試、運行程序，其運行效果如圖1-2-5所示。

【實驗2.3】

創建一個應用程序，其用戶登錄界面如圖1-2-6所示，要求用戶輸入姓名。當用戶輸入姓名，并單擊“確定”按鈕后，系統會彈出圖1-2-7所示的歡迎界面。

實驗步驟如下。

（1）建立一個新工程，在窗體上添加2個標簽、1個文本框和1個命令按鈕，并參考圖1-2-6所示設置有關對象的屬性。

（2）雙擊窗體進入代碼編輯窗口，編寫窗體裝載事件過程。

Private Sub Form_Load() 
Text1.Text = "" 
End Sub 

該過程的作用是程序開始運行時，首先清空文本框中的文字，便于用戶輸入。

（3）編寫命令按鈕Command1的單擊事件過程。

Private Sub Command1_Click() 
    MsgBox Text1.Text & "您好！", vbOKOnly, "登錄成功" 
End Sub 

（4）調試、運行程序，其運行結果如圖1-2-7所示。

注意事項如下。

（1）消息框MsgBox常用于在程序運行過程中顯示一些提示性的消息。它有兩種用法：語句方式和函數方式，上述程序中使用的是語句方式，如果使用函數方式，則應寫成。

Dim a As Integer 
a = MsgBox("歡迎你：" & Text1.Text & "同學！", vbOKOnly, "實驗2.3") 

（2）程序運行時，當用戶單擊“確定”按鈕后，變量a得到整型值1。使用語句方式時，沒有返回值。

【實驗2.4】

利用InputBox輸入三角形三條邊的長度a、b、c，計算并顯示三角形的面積。計算三角形面積的公式如下。

其中s=（a+b+c）/2

實驗步驟如下。

（1）建立一個新工程，可適當調整窗體的大小，但不添加任何控件，將窗體的Caption屬性設置為“三角形面積計算”。

（2）雙擊窗體進入程序代碼編輯窗口，編寫窗體的單擊事件過程如下。

Private Sub Form_Click() 
    Dim a As Single, b As Single, c As Single 
    Dim s As Single, area As Single 
    a = Val(InputBox("請輸入邊長a：")) 
    b = Val(InputBox("請輸入邊長b：")) 
    c = Val(InputBox("請輸入邊長c：")) 
    s = (a + b + c) / 2 
    area = Sqr(s * (s - a) * (s - b) * (s - c)) 
    Print Tab(5); "a"; Tab(13); "b"; Tab(21); "c"; Tab(29); "area" 
    Print Tab(4); a; Tab(12); b; Tab(20); c; Tab(28); area 
End Sub

注意事項如下。

（1）在書寫數學表達式時，乘號“*”一定不能省略。

（2）注意程序中兩條Print語句的區別，前一句是輸出字符串本身，后一句是輸出變量的值。