实验4分支程序设计.docxVIP

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