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