分支程序设计

《分支程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验4分支程序设计实验目的:1．掌握VisualBasic的常量、变量的定义和使用。2．掌握各种表达式的使用。3．掌握各种标准函数的使用。4．掌握分支结构程序设计方法。实验4.1计算面积实验任务：1．设计程序界面如图4-1所示，在窗体上先放置框架一个，然后将三个单选按钮放置在框架中，放置两个标签框、两个文本框和两个命令按钮。2．选择某种形状的同时Label1动态显示相应的“半径”或“边长”。3．在Text1中输入数值后，按确定按钮，在Text2中显示计算的面积。4．形状转换时，要清除前次结果（两个文本框清空），光标聚焦Text1。

2、5．按“退出”按钮，结束运行。图4-1程序界面提示：可以根据单选按钮的Value属性进行判断，当某个按钮值为真时，则进行与之相应的计算。因此，可以使用分支结构（If…Then）来实现条件判断功能。实验步骤：591．属性设置如下：控件名称属性名称属性值Label1Caption空Label2Caption面积Text1Text空Text2Text空FrameCaption选择形状Option1Caption圆形Option2Caption正三角形Option3Caption正方形Command1Caption计算Command2Ca

3、ption退出2．添加代码OptionExplicitConstPiAsSingle=3.141593’Pi为“符号常量”类型，不可再次赋值PrivateSubOption1_Click()Label1="半径"Text1=""Text2=""Text1.SetFocusEndSubPrivateSubOption2_Click()Label1="边长"Text1=""Text2=""Text1.SetFocusEndSubPrivateSubOption3_Click()’填写一段程序（可以模仿Option2_Click()中的

4、代码）EndSubPrivateSubCommand1_Click()DimrAsSingle,sAsSingler=Val(Text1)IfOption1.Value=TrueThens=Pi*r^2IfOption2.Value=TrueThens=r^2*Sqr(3)/459IfThens=r^2Text2=sEndSubPrivateSubCommand3_Click()EndEndSub3．保存文件，调试运行并记录结果。提示：请妥善保存该程序，待到学会使用控件数组后，将三个Option按钮用控件数组生成，可以简化程序代码

5、。实验4.2登录检测实验任务：建立一个登录窗口，要求输入口令，假定口令为“Basic1234”。要求：1．输入的口令在文本框中不可见，以“*”替代；单击“退出”按钮时，结束运行。图4-2登录界面及各种提示信息2．单击“确定”按钮时，若输入口令正确，显示信息“祝贺你，成功登录！”；否则显示“对不起，口令错误，无法登录！”。593．若三次登录均不正确，显示“对不起，你无权登录该系统！”后结束整个应用程序。注意：将文本框的PasswordChar属性值设为“*”（只要一个星号），就可以星号替代键入的字符。实现上述功能不仅要使用分支判断语

6、句对文本框的内容进行判断，还需要定义一个整型变量N用作计数，其初值为0，登录一次不正确，N就加1，如果N=3，则结束整个应用程序。操作步骤：1．窗体设计，在窗体上放置一个Label控件、一个TextBox控件和两个CommandButton按钮，按照图4-2排列控件，设置控件大小。2．属性设置缺省名称属性名称属性值窗体1Caption登录nameLoginBorderStyle1-FixedSingle标签1NamelblPasswordAutoSizeTrueCaption输入口令文本框1NametxtPasswordText空

7、PasswordChar*命令按钮1NamecmdOkCaption确定DefaultTrue命令按钮2NamecmdExitCaption退出3．添加代码：OptionExplicitDimNAsInteger’N用来统计登录次数，注意不能在过程中定义PrivateSubcmdOk_Click()Iftxtpassword.Text="Basic1234"ThenMsgBox"祝贺你，成功登录！"’弹出消息框ElseN=N+1IfN=3ThenMsgBox"对不起，你无权登录该系统！",vbExclamation’弹出消息框En

8、dEndIfMsgBox"对不起，口令错误，无法登录！",vbExclamation’弹出消息框txtpassword.Text=""txtpassword.SetFocus59EndIfEndSubPrivateSubcmdExit_Click(