一、实验目的及要求
通过本实验使学生：理解条件表达式的含义及作用；掌握IF语句的使用方法；掌握多分支语句Select…Case…End Select的使用方法和使用特点；掌握选择结构常见问题解法，能够编写简单的基于选择结构的应用程序解决实际问题；掌握选择性控件（单选按钮OptionButton和复选框CheckBox）的使用。
二、实验设备及环境
WindowsXp Visual basic6.0
三、实验内容
1.已知学号由9位数组成，如：032343001，其中前2位表示年级，第5位表示学生类型（类型规定如下：2-博士，3-硕士，4-本科，5-专科）。设计程序，从文本框输入学号，在另外两个文本框中显示该生年级及学生类型。
2.设计对输入字符进行转换的程序。要求在文本框中每输入一个字符就进行判断和转换，转换结果显示在另一文本框中。（转换规则为：将其中小写字母转换为大写，大写字母转换为小写，其余非字母字符转换为“*”）。
3.设计程序，利用3个复选框代表红、绿、蓝三颜色值，当选中复选框时表示颜色值为255，不选中为0，把通过RGB函数调配的颜色作为一个标签的背景色。
四、实验步骤
1.题1
（1）用户界面设计
（2）关键程序代码
Private Sub Command1_Click()
Dim t As String, p As String
t = Mid(Text1.Text, 5, 1)
Select Case t
Case "2"
p = "博士生"
Case "3"
p = "硕士生"
Case "4"
p = "本科生"
Case "5"
p = "专科生"
Case Else
p = "无效学号"
End Select
Text2.Text = Left(Text1.Text, 2) + "级"
Text3.Text = p
End Sub
（3）运行结果
2
（1）用户界面设计
（2）关键程序代码Private Sub Text1_KeyPress(KeyAscii As Integer) （3）Dim x As String
（4）x = Chr(KeyAscii)
（5）Select Case x
（6）Case "a" To "z"
（7）Text2.Text = Text2.Text + UCase(x)
（8）Case "A" To "Z"
（9）Text2.Text = Text2.Text + LCase(x)
（10）Case Else
（11）Text2.Text = Text2.Text + "*"
（12）End Select
（13）
（14）End Sub
（15）运行结果
3 (1)用户界面设计
（2）关键程序代码
Private Sub Command1_Click()
r = 0: g = 0: b = 0
If Check1.Value = 1 Then
r = 255
End If
If Check2.Value = 1 Then
g = 255
End If
If Check3.Value = 1 Then
b = 255
End If
Label1.BackColor = RGB(r, g, b)
End Sub
Private Sub Command2_Click()
End
End Sub
（3）运行结果
五、实验总结
通过本次实验，了解了选择结构程序设计中常用的一些语句，更熟悉VB编程的一些细节。
