|
《VB語言程序設計》實驗報告 實驗名稱：選擇結構程序設計 姓 名 xxx 學 號： 3090511075 同 組 者：_________________ 專業(yè)班號： 管093 實驗日期：_________________ 教師簽字：_________________ 一、實驗目的及要求 通過本實驗使學生：理解條件表達式的含義及作用；掌握IF語句的使用方法；掌握多分支語句Select…Case…End Select的使用方法和使用特點；掌握選擇結構常見問題解法，能夠編寫簡單的基于選擇結構的應用程序解決實際問題；掌握選擇性控件（單選按鈕OptionButton和復選框CheckBox）的使用。 二、實驗設備及環(huán)境 P4 PC機 、Visual basic6.0編程環(huán)境 三、實驗內(nèi)容 1. 已知學號由9位數(shù)組成，如：032343001，其中前2位表示年級，第5位表示學生類型（類型規(guī)定如下：2-博士，3-碩士，4-本科，5-?？疲?。設計程序，從文本框輸入學號，在另外兩個文本框中顯示該生年級及學生類型。 2. 設計對輸入字符進行轉換的程序。要求在文本框中每輸入一個字符就進行判斷和轉換，轉換結果顯示在另一文本框中。（轉換規(guī)則為：將其中小寫字母轉換為大寫，大寫字母轉換為小寫，其余非字母字符轉換為“*”）。 3. 設計程序，利用3個復選框代表紅、綠、藍三顏色值，當選中復選框時表示顏色值為255，不選中為0，把通過RGB函數(shù)調(diào)配的顏色作為一個標簽的背景色 四、實驗步驟 1.題 （1）用戶界面設計 （2）關鍵程序代碼（指明針對哪一對象的什么事件，可用截圖） Private Sub Command1_Click() Dim s As String, nj As String, lx As String s = Text1.Text nj = Mid(s, 2, 1) Text2.Text = nj lx = Mid(s, 5, 1) If lx = "2" Then Text3.Text = "博士" ElseIf lx = "3" Then Text3.Text = "碩士" ElseIf lx = "4" Then Text3.Text = "本科" ElseIf lx = "5" Then Text3.Text = "?？?SPAN lang=EN-US>" Else Text3.Text = "學號出錯！" End If End Sub （3）運行結果（界面圖） 2.題 （1）用戶界面設計 （2）程序代碼 Private Sub Text1_keypress(keyascii As Integer) Select Case keyascii Case 97 To 122 Text2.Text = Text2.Text + UCase(Chr(keyascii)) Case 65 To 90 Text2.Text = Text2.Text + LCase(Chr(keyascii)) Case Else Text2.Text = Text2.Text + "*" End Select End Sub (3)運行結果 3題 （1）用戶界面設計 （2）程序代碼 Dim x As Integer, y As Integer, z As Integer Private Sub Check1_Click() If Check1.Value = 1 Then x = 255 Else x = 0 End If Label1.BackColor = RGB(x, y, z) End Sub Private Sub Check2_Click() If Check2.Value = 1 Then y = 255 Else y = 0 End If Label1.BackColor = RGB(x, y, z) End Sub Private Sub Check3_Click() If Check3.Value = 1 Then z = 255 Else z = 0 End If Label1.BackColor = RGB(x, y, z) End Sub （3）運行結果 五、實驗總結 通過本次實驗，了解了選擇結構程序設計中常用的一些語句，更熟悉VB編程的一些細節(jié)。 |
|
|
