vb选择结构试验报告

 

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