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