中财网苏州林安物流:vb选择结构试验报告
来源：百度文库 编辑：中财网 时间：2024/04/28 02:12:57
《VB语言程序设计》实验报告
实验名称：选择结构程序设计
姓 名 xxx
学 号： 3090511075
同 组 者：_________________
专业班号： 管093
实验日期：_________________
教师签字：_________________
一、实验目的及要求
通过本实验使学生：理解条件表达式的含义及作用；掌握IF语句的使用方法；掌握多分支语句Select…Case…End Select的使用方法和使用特点；掌握选择结构常见问题解法，能够编写简单的基于选择结构的应用程序解决实际问题；掌握选择性控件（单选按钮OptionButton和复选框CheckBox）的使用。
二、实验设备及环境
P4 PC机 、Visual basic6.0编程环境
三、实验内容
1. 已知学号由9位数组成，如：032343001，其中前2位表示年级，第5位表示学生类型（类型规定如下：2-博士，3-硕士，4-本科，5-专科）。设计程序，从文本框输入学号，在另外两个文本框中显示该生年级及学生类型。
2. 设计对输入字符进行转换的程序。要求在文本框中每输入一个字符就进行判断和转换，转换结果显示在另一文本框中。（转换规则为：将其中小写字母转换为大写，大写字母转换为小写，其余非字母字符转换为“*”）。
3. 设计程序，利用3个复选框代表红、绿、蓝三颜色值，当选中复选框时表示颜色值为255，不选中为0，把通过RGB函数调配的颜色作为一个标签的背景色
四、实验步骤
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 = "专科"
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编程的一些细节。