实验4分支程序设计教程.docVIP

实验4 分支程序设计 实验目的: 掌握Visual Basic的常量、变量的定义和使用。 掌握各种表达式的使用。 3．掌握各种标准函数的使用。 4．掌握分支结构程序设计方法。 实验4.1计算面积 实验任务： 1．设计程序界面如图4-1所示，在窗体上先放置框架一个，然后将三个单选按钮放置在框架中，放置两个标签框、两个文本框和两个命令按钮。 2．选择某种形状的同时Label1动态显示相应的“半径”或“边长”。 3．在Text1中输入数值后，按确定按钮，在Text2中显示计算的面积。 4．形状转换时，要清除前次结果（两个文本框清空），光标聚焦Text1。 5．按“退出”按钮，结束运行。 提示：可以根据单选按钮的Value属性进行判断，当某个按钮值为真时，则进行与之相应的计算。因此，可以使用分支结构（If…Then）来实现条件判断功能。 实验步骤： 1．属性设置如下： 控件名称 属性名称 属性值 Label1 Caption 空 Label2 Caption 面积 Text1 Text 空 Text2 Text 空 Frame Caption 选择形状 Option1 Caption 圆形 Option2 Caption 正三角形 Option3 Caption 正方形 Command1 Caption 计算 Command2 Caption 退出 2．添加代码 Option Explicit Const Pi As Single = 3.141593 ’Pi为“符号常量”类型，不可再次赋值 Private Sub Option1_Click() Label1 = 半径 Text1 = Text2 = Text1.SetFocus End Sub Private Sub Option2_Click() Label1 = 边长 Text1 = Text2 = Text1.SetFocus End Sub Private Sub Option3_Click() ’填写一段程序（可以模仿Option2_Click()中的代码） End Sub Private Sub Command1_Click() Dim r As Single, s As Single r = Val(Text1) If Option1.Value = True Then s = Pi * r ^ 2 If Option2.Value = True Then s = r ^ 2 * Sqr(3) / 4 If Then s = r ^ 2 Text2 = s End Sub Private Sub Command3_Click() End End Sub 3．保存文件，调试运行并记录结果。 提示：请妥善保存该程序，待到学会使用控件数组后，将三个Option按钮用控件数组生成，可以简化程序代码。 实验4.2登录检测 实验任务： 建立一个登录窗口，要求输入口令，假定口令为“Basic1234”。 要求： 1．输入的口令在文本框中不可见，以“*”替代；单击“退出”按钮时，结束运行。 2．单击“确定”按钮时，若输入口令正确，显示信息“祝贺你，成功登录！”；否则显示“对不起，口令错误，无法登录！”。 3．若三次登录均不正确，显示“对不起，你无权登录该系统！”后结束整个应用程序。 注意：将文本框的PasswordChar属性值设为“*”（只要一个星号），就可以星号替代键入的字符。实现上述功能不仅要使用分支判断语句对文本框的内容进行判断，还需要定义一个整型变量N用作计数，其初值为0，登录一次不正确，N就加1，如果N=3，则结束整个应用程序。 操作步骤： 1．窗体设计，在窗体上放置一个Label控件、一个TextBox控件和两个CommandButton按钮，按照图4-2排列控件，设置控件大小。 2．属性设置 缺省名称 属性名称 属性值 窗体1 Caption 登录 name Login BorderStyle 1-Fixed Single 标签1 Name lblPassword AutoSize True Caption 输入口令 文本框1 Name txtPassword Text 空 PasswordChar * 命令按钮1 Name cmdOk Caption 确定 Default True 命令按钮2 Name cmdExit Caption 退出 3．添加代码：