|
《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编程的一些细节。 |
|
|
