实验4分支程序设计报告

实验4 分支程序设计

实验目的:

1．掌握Visual Basic的常量、变量的定义和使用。

2．掌握各种表达式的使用。

3．掌握各种标准函数的使用。

4．掌握分支结构程序设计方法。

实验4.1计算面积

实验任务：

1．设计程序界面如图4-1所示，在窗体上先放置框架一个，然后将三个单选按钮放置在框架中，放置两个标签框、两个文本框和两个命令按钮。

2．选择某种形状的同时Label1动态显示相应的“半径”或“边长”。

3．在Text1中输入数值后，按确定按钮，在Text2中显示计算的面积。

4．形状转换时，要清除前次结果（两个文本框清空），光标聚焦Text1。

5．按“退出”按钮，结束运行。

图4-1 程序界面

提示：可以根据单选按钮的Value属性进行判断，当某个按钮值为真时，则进行与之相应的计算。因此，可以使用分支结构（If…Then）来实现条件判断功能。

实验步骤：

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．单击“确定”按钮时，若输入口令正确，显示信息“祝贺你，成功登录！”；否则显示“对不起，口令错误，无法登录！”。

图4-2 登录界面及各种提示信息

39

3．若三次登录均不正确，显示“对不起，你无权登录该系统！”后结束整个应用程序。

注意：将文本框的PasswordChar属性值设为“*”（只要一个星号），就可以星号替代键入的字符。实现上述功能不仅要使用分支判断语句对文本框的内容进行判断，还需要定义一个整型变量N用作计数，其初值为0，登录一次不正确，N就加1，如果N=3，则结束整个应用程序。

操作步骤：

1．窗体设计，在窗体上放置一个Label控件、一个TextBox控件和两个CommandButton 按钮，按照图4-2排列控件，设置控件大小。

3．添加代码：

Option Explicit

Dim N As Integer ’N用来统计登录次数，注意不能在过程中定义Private Sub cmdOk_Click()

If txtpassword.Text = "Basic1234" Then

MsgBox "祝贺你，成功登录！" ’弹出消息框

Else

N = N + 1

If N = 3 Then

MsgBox "对不起，你无权登录该系统！", vbExclamation ’弹出消息框

End

End If

MsgBox "对不起，口令错误，无法登录！", vbExclamation ’弹出消息框

txtpassword.Text = ""

txtpassword.SetFocus

End If

End Sub

Private Sub cmdExit_Click() '退出

End

End Sub

4．保存文件，调试运行，观察结果。

思考：如果假定的口令“Basic1234”事先已经存在一个PassWord.txt文件中，如何修改上述程序？试一试。

实验4.3日期显示

实验任务：

编程获得当天的系统日期，并以X年X月X日星期X的形式显示出来，实验结果如图4-3所示。提示：系统日期可以通过Date函数得到，年号、月份、日期和星期号也可分别通过Year、Month、Day、WeekDay等函数获得。要注意的是，通过WeekDay获得的星期号是数值表示的1-7，而非大写的“星期一”-“星期日”，因此必须借助一个多分支语句加以转换。

图4-3 显示当天日期界面

实验步骤：

1．在窗体上放置一个Label控件。

41