分支结构操作任务2

1、第5节 VB分支结构（1）班别 姓名 学号 l InputBox函数的一般格式为：InputBox(“<提示>”,”<对话框标题>”)l 知识点：条件语句格式：If <条件>then <语句块1>ELSE <语句块2>End if准备任务：（1） 请在B盘建立VB文件夹。（2） 在B:VB文件夹下建立“分支结构”文件夹。任务一：修改下面的程序，把”r = 1000”替换用InputBox函数语句赋值表示，调试运行修改后的程序。（请把你修改后的程序保存在B:VB分支结构任务一）Private Sub Form_Click() r = 1

2、000 pi = 3.14 s = pi * r * r Print "圆的面积为："s;"平方厘米" Circle (2000,2000) , rEnd Sub替换前：替换后：InputBox函数说明：作用：显示一个提示输入圆半径的对话框，并把用户所输入圆半径的值赋给左边的变量。实例是一个赋值语句。InputBox函数的一般格式为：InputBox(“<提示>”,”<对话框标题>”)任务二： 修改下列程序代码，当输入圆的半径超过2000时，就给出提示“超出显示范围”，不再画圆；否则画出相应半径的圆。（请把你修改后的程序保存在B:

3、VB分支结构任务二）原程序：你修改后的程序：（请粘贴在下方）Private Sub Form_Click() r = InputBox("请输入圆的半径", "输入圆半径") pi = 3.14 s = pi * r * r Circle (1500, 1500), r Print "圆的半径为：" r; "厘米" Print "圆的面积为：" s; "平方厘米"End Sub任务三：分析下列程序段，写出程序运行的结果，填写在横线上。第一题：Private Sub Form_

4、Click()x = 1y = 2If x > y ThenPrint y,x Print x, yElse Print y, xEnd IfEnd Sub流程图：Print x,yTFX>y输出结果： 第二题：Private Sub Form_Click() x = 2 y = 2 If x > 2 Then y = x * x End If Print x, yEnd Sub流程图：X>2Print x, yY=x*xTF输出结果： 任务四：补充完整下列程序，使程序完成如下功能：输入两个数，显示其中较大数。（请把你修改后的程序保存在B:VB分支结构任务四）（建议测试

5、时，分别输入10和100两个数值，看是否能够输出较大的数值100）程序代码：Private Sub Form_Click()x = InputBox(“请输入第一个数", "输入")y = InputBox(“请输入第二个数", "输入")If ThenMAX = ElseMAX= End IfPrint X;”和”;Y;”中的较大数为:”;MAXEnd Sub拓展任务：任务五：补充完整下列程序。按电信局规定，市内电话通话首三分钟收费0.22元，三分钟后按每分钟0.11元收费。试在横线上填写合适的语句或表达式，使程序完成如下功能：当输入通话时间后，计算并显示出应付的话费。（请把你修改后的程序保存在B:VB分支结构任务五）程序代码：Private Sub Form_Click()w = InputBox("请输入通话时间（分钟）", "输入")If Thenf = Else f = End IfP