分支程序设计.doc

分支程序设计实验目的:1 掌握Visual Basic的常量、变量的定义和使用。2 掌握各种表达式的使用。3掌握各种标准函数的使用。4掌握分支结构程序设计方法。实验4.1计算面积实验任务：1设计程序界面如图4-1所示，在窗体上先放置框架一个，然后将三个单选按钮放置在框架中，放置两个标签框、两个文本框和两个命令按钮。2选择某种形状的同时Label1动态显示相应的“半径”或“边长”。3在Text1中输入数值后，按确定按钮，在Text2中显示计算的面积。4形状转换时，要清除前次结果（两个文本框清空），光标聚焦Text1。5按“退出”按钮，结束运行。图4-1 程序界面提示：可以根据单选按钮的Value属性进行判断，当某个按钮值为真时，则进行与之相应的计算。因此，可以使用分支结构（IfThen）来实现条件判断功能。实验步骤：1属性设置如下：控件名称属性名称属性值Label1Caption空Label2Caption 面积Text1Text 空Text2Text 空FrameCaption选择形状Option1Caption圆形Option2Caption正三角形Option3Caption正方形Command1Caption计算Command2Caption退出2添加代码Option ExplicitConst Pi As Single = 3.141593 Pi为“符号常量”类型，不可再次赋值Private Sub Option1_Click() Label1 = 半径 Text1 = Text2 = Text1.SetFocusEnd SubPrivate Sub Option2_Click() Label1 = 边长 Text1 = Text2 = Text1.SetFocusEnd SubPrivate Sub Option3_Click() 填写一段程序（可以模仿Option2_Click()中的代码）End SubPrivate 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 = sEnd SubPrivate Sub Command3_Click() EndEnd Sub3保存文件，调试运行并记录结果。提示：请妥善保存该程序，待到学会使用控件数组后，将三个Option按钮用控件数组生成，可以简化程序代码。实验4.2登录检测实验任务：建立一个登录窗口，要求输入口令，假定口令为“Basic1234”。要求：1输入的口令在文本框中不可见，以“*”替代；单击“退出”按钮时，结束运行。图4-2 登录界面及各种提示信息2单击“确定”按钮时，若输入口令正确，显示信息“祝贺你，成功登录！”；否则显示“对不起，口令错误，无法登录！”。3若三次登录均不正确，显示“对不起，你无权登录该系统！”后结束整个应用程序。注意：将文本框的PasswordChar属性值设为“*”（只要一个星号），就可以星号替代键入的字符。实现上述功能不仅要使用分支判断语句对文本框的内容进行判断，还需要定义一个整型变量N用作计数，其初值为0，登录一次不正确，N就加1，如果N=3，则结束整个应用程序。操作步骤：1窗体设计，在窗体上放置一个Label控件、一个TextBox控件和两个CommandButton按钮，按照图4-2排列控件，设置控件大小。2属性设置缺省名称属性名称属性值窗体1Caption登录nameLoginBorderStyle1-Fixed Single标签1NamelblPasswordAutoSizeTrueCaption输入口令文本框1NametxtPasswordText空PasswordChar*命令按钮1NamecmdOkCaption确定DefaultTrue命令按钮2NamecmdExitCaption退出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 Sub4保存文件，调试运行，观察结果。思考：如果假定的口令“Basic1234”事先已经存在一个PassWord.txt文件中，如何修改上述程序？试一试。实验4.3日期显示实验任务：编程获得当天的系统日期，并以X年X月X日星期X的形式显示出来，实验结果如图4-3所示。提示：系统日期可以通过Date函数得到，年号、月份、日期和星期号也可分别通过Year、Month、Day、WeekDay等函数获得。要注意的是，通过WeekDay获得的星期号是数值表示的1-7，而非大写的“星期一”-“星期日”，因此必须借助一个多分支语句加以转换。图4-3 显示当天日期界面实验步骤：1在窗体上放置一个Label控件。2属性设置控件名称属性名称属性值标签1NameLblDateFont宋体三号粗斜体Caption空BoderStyle1Aligement2AutoSizeTrueWordWrapTrue3添加代码（请补充缺少的语句）Rq为当前系统日期，Y为年号，m为月份，d为日期，w1为数值型的星期号，w2为转换后的大写的星期号Dim Y As Integer, m As Integer, d As Integer, w1 As IntegerDim Rq As DateDim w2 As StringPrivate Sub Form_Load() Rq = _ Y = _ m = _ d = _ w1 = Weekday(Rq, vbMonday) 设星期一为第一天，缺省值星期日是第一天 Select Case w1 Case 1 w2 = 一 Case 2 w2 = 二 Case 3 w2 = 三 Case 4 w2 = 四 Case 5 w2 = 五 Case 6 w2 = 六 Case 7 w2 = 日 End Select LblDate.Caption = _End Sub4保存文件，调试运行。实验4.4计算器实验任务：编程模拟一个袖珍计算器，它可以根据输入的操作符进行不同的计算，要求最少要做加、减、乘、除四种运算。实验结果如图4-4所示。图4-4 实验4.4运行界面注意：判断一下除数为零的情况。若除数为零，要用Msgbox消息框提示“除数不能为零”、清空输入数2的文本框、让该文本框获得焦点，等待重新输入合法的数据。提示：设计界面如图4-4所示，属性设置如下：控件名称属性名称属性值Label1Caption输入数1Label2Caption 输入数2Label3Caption输入操作符Label4Caption 计算结果Text1Text 空Text2Text 空Text3Text 空Text4Text 空Command1Caption计算Command2Caption结束实验4.5方程求解实验任务：编程实现一元二次方程求解。要求任意输入方程的系数a，b，c，计算并输出方程的两个根xl，x2，并把方程系数和求得的根存入数据文件“gen.dat”中，界面如图4-5所示。图4-5 实验4.5运行界面实验要求：1输入a，b，c三个数，为了程序设计的方便可由三个文本框来实现2通过求根公式求得方程的根。计算的结果通过文本框显示。 要分为：a0时， 按照一次方程求解a0时，b2-4ac=0 按照二次方程求实根解b2-4ac=1 Then f=sqr(x+1) If x=1 Then f=sqr(x+1) If x=1 Then f=sqr(x+1） （D）If x1 Then f=x*x+3 _ Else f=x*x+3 Else f=sqr(x+1)6. 计算分段函数值。 下面程序段中正确的是（ ）。 （A）If x=2 Then y=3 If x=1 Then y=2 If x0 Then y=1 If x=2 Then y=3 If x0 Then y=0 （C）If x=2 Theny=0 y=3ElseIf x0 Then ElseIf x=1 Then y=1 y=2 ElseIf x1 Then ElseIf x=0 Then y=2 y=1 Else Else y=3 y=0 End If End If7. 下面程序段，显示的结果是（ ）。 Dim x x=Int（Rnd）十5 Select Case x Case 5 Print”优秀” Case 4 Print“良好” Case 3 Print“通过” Case Else Print“不通过” End Select （A）优秀 （B）良好 （C）通过 （D）不通过8. 下面程序段求两个数中的大数，（ ）不正确。 （A）Max=IIf(xy，x，y) （B）If xy Then Max=x Else Max=y （C）Max=x （D）If y=x Then Max=y If y=x Then Max=y Max=x9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(Input) Select Case x Case 1,3 Print 分支 1 Case Is 4 Print 分支 2 Case Else Print Else 分支 End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是 （A）分支1 （B）分支2 （C）Else分支 （D）程序出错 10. 以下Case语句中错误的是 （A）Case 0 To 10 （B）Case Is10 （C）Case Is10 And Is1011. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是 （A）-5 （B）25 （C）1 （D）-1 12. 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 （A）Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 90 Then MsgBox 请输入大写字母 KeyAscii = 0 End If End Sub （B）Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode 90 Then MsgBox 请输入大写字母 KeyCode = 0 End If End Sub （C）Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) 90 Then MsgBox 请输入大写字母 End If End Sub （D）Private Sub Text1_Change() If Asc(Text1.Text) 64 And Asc(Text1.Text) 5,-1,0)后，x的值为（A）5 （B）6 （C）0 （D）-114. 下列语句正确的是（A）If A B Then Print A 不等于 B（B）If A B Then Printf A 不等于 B（C）If A B Then Print A 不等于 B（D）If A B Then Printf A 不等于 B15. 下面程序段执行结果为 x = Int(Rnd() + 4) Select Case x Case 5 Print excellent Case 4 Print good Case 3 Print pass Case Else Print failEnd Select（A）excellent （B）good （C）pass （D）fail16. 设a = a，b = b，c = c，d = d，执行语句x = IIf(a d), A, B)后，x的值为（A）a （B）b （C）A （D）B17. 下列程序执行后，变量a的值为Dim a, b, c, d As Singlea = 100: b = 20: c = 1000If b a Then d = a: a = b: b = dEnd IfIf c a Then d = b: b = c: c = dEnd If（A）0 （B）1000 （C）20 （D）10018. 执行下面的程序段后，变量c的值为a = 14b = 30Select Case b 10 Case 0 c = a * 10 + b Case 1 To 9 c = a * 100 + b Case 10 To 99 c = a * 1000 + bEnd SelectPrint c（A）363 （B）2548 （C）1430 （D）9875参考答案1.D 2.B 3.A x没有赋值，默认为0。而在VB中，0作为逻辑常量False，非0作为True。4.C 5.C 6.D 7.A 8.D 9.C 10.C 11.C 12.A 13.D 14.C 15.B 16.C 17.D 18.C习题4.2填空题1下面程序运行后输出的结果是( 空1 )。 x=Int(Rnd)+3 If x28 Then y=x2+1 If x2=9 Then y=x2-2 If x28 Then y=x3 Print y2下面程序的功能是( 空2 )。 Dim n%，m% Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If IsNumeric(Text1.Text) Then Select Case Text1.Text Mod 2 Case 0 n=n+Text1.Text Case 1 m=m+Text1.Text End Select End If Text1.Text= Text1.SetFocus End If End Sub3下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框输入表达式，边输入，边统计，以输入回车符作为表达式输入结束，然后显示结果。 Dim count1% Private Sub Text1_KeyPress(KeyAscii As Integer) If( 空3 )= (Then count1=count1+1 ElseIf( 空4 )= )Then ( 空5 ) End If If KeyAscii=13 Then If( 空6 )Then Print 左右括号配对 Else If( 空7 )Then Print左括号多于右括号；count1；个 Else Print右括号多于左括号；-count1；个 End If End If End Sub4 输入文本框中若干字符，统计有多少个元音字母、有多少个其他字母，直到按Enter键结束，并显示结果，大小写不区分。其中CountY中放元音字母个数，CountC中放其他字符数。 Dim CountY%，CountC% Private Sub Textl_KeyPress(KeyAscii As Integer) Dim C$ C=( 空8 ) If A=C And C0 左括号多于右括号，多于的个数是countl的值。8.UCase(Chr(KeyAscii) 大小写不区分。9.C10.”A”，”E”，”I”,”O”，”U” 11.Else 其他字符。12.KeyAscii=13习题4.3简答题1设x与y是同一类型的变量，试设计一个算法，把x与y中的数据相互交换。2设a、b、c是同一类型变量，并分别被赋予不同大小的数据，设计一个算法，使得执行的结果为abc。3设计一个可以判断某数是否是素数的算法(所谓素数是指只能被1和自身整除的数)。4设计一个判断某正整数是一个回文数的算法。所谓回文数是指左右数字完全对称的自然数。例如，121、12321、484、555等都是回文数。5设计一个算法，求出给定的自然数a的所有因子。6在文本框Textl与Text2中分别输入35与48，变量S与X分别为字符型与整型，试问，以下赋值语句的执行结果是什么? S=Textl.Text+Text2.Text X= Textl.Text+Text2.Text S=Textl.Text & Text2.Text X= Textl.Text & Text2.Text S=Val(Textl.Text)+Text2Text X=Val(Textl.Text)+Text2.Text S=Val(Textl.Text) & Text2. Text X=Val(Textl.Text) & Text2.Text习题4.4操作题1将键盘输入的一位数字翻译为英文单词，如图4-6所示。若输入长度大于1且不是0-9之间的数字，显示“输入错误，请重新输入”的信息。图4-6 数字转单词界面2从键盘输入一个大写字母，要求改用小写字母输出。提示：Visual Basic提供了一个标准函数Lcase（x），方便地将大写字母转换成小写字母3. 输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。并计算周长与面积。并把结果存入数据文件“area.dat”中。程序界面如图4-7所示。图4-7判断三角形程序界面 4货币兑换。将输入的人民币金额按指定的要求兑换为美元或港币。美元和人民币兑换比为1:6.65；人民币和港币兑换比为1.15:1。要求：（1）应用程序窗体如图4-8所示。（2）程序运行时和单击“清除”按钮后，光标自动停在人民币金额文本框中。图4-8 币种兑换界面（3）程序运行时默认币种为美圆。提示：计算时根据OptionButton选中的币别（即OptionButton的Value属性）进行判断，来决定用哪个计算公式进行币种之间的换算。5计税款。国家规定，收税标准如下： 收入 超出部分税率 1000 以下 0 1000s1500 5% 1500s2000 10% 2000s2500 15% 2500s 1 Or x 9 Then MsgBox 输入错误，请重新输入ElseSelect Case x Case 0 z = zero Case 1 z = one Case 2 z = two Case 3 z = three Case 4 z = four Case 5 z = five Case 6 z = six Case 7 z = seven Case 8 z = eight Case 9 z = nine End Select Text1 = x Text2 = zEnd IfEnd Sub 2. 参考程序：Private Sub Form_Click()Dim x$, y$x = InputBox(x=?)If Asc(x) 90 Then MsgBox 输入错误，请重新输入Else y = LCase(x)End IfText1 = xText2 = yEnd Sub3. 参考程序：Private Sub Command1_Click() Dim a!, b!, c!, s!, area! a = InputBox(输入三角形边a) b = InputBox(输入三角形边b) c = InputBox(输入三角形边c) If a=0 or b=0 or c=0 or a + b = c Or a + c = b Or b + c = a Then MsgBox 不能够成三角形，请重新输入 Else If a = b And b = c Then Text4 = 是等边三角形 ElseIf a = c Or b = c Or a = b Then Text4 = 是等腰三角形 ElseIf a 2 + b 2 = c 2 Or a 2 + c 2 = b 2 Or c 2 + b 2 = a 2 Then Text4 = 是直角三角形 Else Text4 = 是任意三角形 End If Open “D:area.dat” For Output As#1 Text1 = a Text2 = b Text3 = c Text5 = a + b + c s = (a + b + c) / 2 Text6 = Format(Sqr(s * (s - a) * (s - b) * (s - c), 0.00) Write #1，Text5，Text6 End IfEnd Sub4. 参考程序：Private Sub Option1_Click() Label2 = 美元 Text2 = Text1.SetFocusEnd SubPrivate Sub Option2_Click() Label1 = 港币 Text2 = Text1.SetFocusEnd SubPrivate Sub Command1_Click() Dim r As Single, s As Single r = Val(Text1) If Option1.Value = True Then s = 6