文档介绍：第5节 VB分支结构（1）
班别 姓名 学号
InputBox函数的一般格式为：
InputBox(“<提示>”,”<对话框标题>”)
知识点：
条件语句格式：
If <条件>then
<语句块1>
ELSE
<语句块2>
End if
准备任务：
请在B盘建立VB文件夹。
在B:\VB文件夹下建立“分支结构”文件夹。
任务一：修改下面的程序，把”r = 1000”替换用InputBox函数语句赋值表示，调试运行修改后的程序。
（请把你修改后的程序保存在B:\VB\分支结构\任务一）
Private Sub Form_Click()
r = 1000
pi =
s = pi * r * r
Print "圆的面积为：";s;"平方厘米"
Circle (2000,2000) , r
End Sub
替换前：
替换后：
InputBox函数说明：
作用：显示一个提示输入圆半径的对话框，并把用户所输入圆半径的值赋给左边的变量。实例是一个赋值语句。
InputBox函数的一般格式为：
InputBox(“<提示>”,”<对话框标题>”)
任务二：
修改下列程序代码，当输入圆的半径超过2000时，就给出提示“超出显示范围”，不再画圆；否则画出相应半径的圆。
（请把你修改后的程序保存在B:\VB\分支结构\任务二）
原程序：
你修改后的程序：（请粘贴在下方）
Private Sub Form_Click()
r = InputBox("请输入圆的半径", "输入圆半径")
pi =
s = pi * r * r
Circle (1500, 1500), r
Print "圆的半径为："; r; "厘米"
Print "圆的面积为："; s; "平方厘米"
End Sub
任务三：分析下列程序段，写出程序运行的结果，填写在横线上。
第一题：
Private Sub Form_Click()
x = 1
y = 2
If x > y Then
Print y,x
Print x, y
Else
Print y, x
End If
End Sub
流程图：
Print x,y
T
F
X>y
输出结果：
第二题：
流程图：
输出结果：
Private Sub Form_Click()
x = 2
y = 2
If x > 2 Then
y = x * x
End If
Print x, y
End Sub
X>2
Print x, y
Y=x*x
T
F
任务四：
补充完整下列程序，使程序完成如下功能：输入两个数，显示其中较大数。（请把你修改后的程序保存在B:\VB\分