实验4分支程序设计

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

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

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

3、nd2Caption退出2.添加代码OptionExplicitConstPiAsSingle=3.141593，Pi为“符号常量”类型，不可再次赋值PrivateSubOptionl_Click()Label1二”半径“Textl=”“Text2=Text1.SetFocusEndSubPrivateSubOption2_Click()Label1=”边长“Textl=”“Text2=,n,Textl.SetFocusEndSubPrivateSubOption3_Click()'填写一段程序(可以模仿Oplion2_Cl

4、ick()中的代码)EndSubPrivateSubCommand1_Click()DimrAsSingle,sAsSingler=Vai(Textl)IfOption1.Value二TrueThens=Pi*rA2IfOption2.Value=TrueThens=rA2*Sqr(3)/4IfThens=rA2Text2=sEndSubPrivateSubCommand3_Click()EndEndSub3.保存文件，调试运行并记录结果。提示：请妥善保存该程序，待到学会使用控件数组后，将三个Option按钮用控件数组生成，

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

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

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

8、lion'弹出消息框EndEndIfMsgBoxH对不起，口令错误，无法登录！",vbExclamation，弹出消息框txtpassword.Text=u"txtpassword.SetFocusEndIfEndSubPrivateSubcmdExit_Click()'退出EndEndS