实验五选择结构程序设计..docVIP

实验五 选择结构程序设计 一、实验目的 1. 掌握逻辑表达式的正确书写形式。 2. 掌握If…Then语句（单分支）、If…Then…Else语句（双分支）、If…Then…ElseIf语句（多分支）及If语句嵌套程序设计。 3. 掌握Select Case语句程序设计 二、实验内容 1. 用If…Then语句及其嵌套实现三个数字的排序。 2. 用If…Then、If…Then…Else语句检查用户名和密码，进行用户登录检测。 3. 制作一个摇奖机，用If…Then…Else语句使其中的摇奖按钮成为摇奖机的开关按钮。 4. 综合运用If…Then、If…Then…Else、If…Then…ElseIf语句和Select Case语句编制算术考试程序。 三、实验步骤及指导 1. 三值排序 程序运行时，在三个文本框中输入数字，单击“排序”按钮后按从大到小排序。 （1）设计界面及设置属性 在窗体上放置三个文本框，Text属性均设为空。添加四个标签，Caption属性分别设为“请输入三个数字：”、“x”、“y”、“z”。添加三个命令按钮，Caption属性分别为“排序”、“清除”、“退出”。界面布局如图5-1所示。 （2）编写代码 在“排序”按钮的单击事件中，将三个文本框中的数字分别赋予三个变量x、y、z，用If语句判断其大小，根据排序要求确定变量中的数据是否需要交换。若需交换，则借助中间变量t进行。这是两个变量进行数据交换最常用的算法。例如，以下语句可以完成x和y之间的数据交换： t = x:： x = y： y = t 排序完成后，用窗体的Print方法在窗体上显示排序结果。 程序运行结果如图5-1所示。 图5-1 三值排序 程序代码如下： Option Explicit Private Sub Command1_Click() x、y、z用于存放在文本框中输入的数字 Dim x As Single, y As Single, z As Single Dim t As Single t作为中间变量，用于x、y、z之间的数据交换 x = Val(Text1.Text) 将文本框中的数字分别赋予变量 y = Val(Text2.Text) z = Val(Text3.Text) If x y Then 若 x y， x与y交换，使xy t = x: x = y: y = t End If If y z Then 若 y z， y与z交换，使yz t = y: y = z: z = t If x y Then 再判断x与y t = x: x = y: y = t End If End If Cls CurrentY = ScaleHeight / 2 为Print方法设置垂直坐标(窗体内部高度的1/2) Print Tab(5); 排序结果：; 显示结果 Print Tab(5); x =; x; , y =; y; , z =; z End Sub Private Sub Command2_Click() 结束 End End Sub Private Sub Command3_Click() 清除 Cls 清除窗体上的打印文字或图形 Text1.Text = 清空各文本框 Text2.Text = Text3.Text = Text1.SetFocus 设置焦点 End Sub Private Sub Form_Load() 窗体加载 Caption = 三值排序 Command1.Default = True 回车键默认按钮为排序按钮 Command2.Cancel = True Esc键默认按钮为退出按钮 End Sub 2. 用户登录检测 在各种管理信息系统的用户登录界面，一般需要进行用户名和密码的双重检测，并且规定了出错的最多次数。本实验项目要求设计一个用户登录检测程序，若用户输入的用户名和密码均无误，显示“欢迎使用本系统”，否则提示用户名或密码错误，请用户重新输入。若用户名或密码连续三次输入错误，则提示“对不起，您不是本系统的合法用户”。按照信息服务用户管理的常规，应当先对用户名进行检测（用户名具有惟一性），若用户名输入正确，则不再要求用户重复输入用户名，仅检查密码即可，这样做也符合界面友好的