分支结构操作任务.docxVIP

第5节VB分支结构（2） 班别 姓名 学号 ? InputBox函数的一般格式为： InputBox（“v提示 ”摆v对话框标题”） ?知识点： 条件语句格式： If〈条件 then 〈语句块1 ELSE 〈语句块2 End if 准备任务： （1） 请在B盘建立VB文件夹。 （2） 在B:\VB文件夹下建立“分支结构”文件夹。 任务一：修改下面的程序，把”r = 1000”替换用InputBox函数语句赋 值表示，调试运行修改后的程序。 （请把你修改后的程序保存在B: \VB\分支结构任务一） Private Sub Form_Click()r= 1000pi = 3.14s = pi * r * rPrint”圆的面积为:”;s;” Private Sub Form_Click() r= 1000 pi = 3.14 s = pi * r * r Print”圆的面积为:”;s;”平方厘米” Circle (2000,2000), r End Sub 替换前: ￡ 工程］? Forml (Code) Form Private Sub Form_Click() r = 1000 pi 二 3.14 s = pi * r * r Print 〃圆的面程为：“； Circle (2000, 2000), r End Sub ▼ | |Cli ck 平方厘米 替换后: ￡ 工程 1