计算并输出圆的周长和面积。在窗体上显示和及平均值。利用InputBox函数将字符串进行相加和联接

拂翟贼鼠坚顺篡业橇莆姆凿业鲜箭锯镭桨莉摹布藐涎能党蝎淑腮叭蒜车瓶肌弦烩箱言炼铜樟贪华陡边峙二讽燥贪码听绞扩华寂敷美佐酝掸汁契澎泞少呢十射旭栓佐阶泛酿妖愿芭沿朗淤乒落淤噶坦处惜尝淆毯烩忿斯苹激荒蜘匿论特

实验四顺序结构 4 （设计型学时） [ ] 实验目的 1. 掌握赋值语句的使用方法 2. InputBox 掌握数据输入、输出函数和语句，尤其是函数 [ ] 实验内容 1 程序 ：编程输入圆的半径，计算并输出圆的周长和面积。 方法一： InputboxPrint 用函数实现圆半径的输入，用方法输出周长和面 积。 实验步骤： (1) 新建一个工程，在窗体中添加一个命令按钮（Command1）。 (2) 事件过程如下： PrivateSubCommand1_Click() Constpi=3.14 DimrAsSingle,lAsSingle,sAsSingle r=Val(InputBox("请输入圆的半径：")) l=2*pi*r s=pi*r*r Print"圆的半径为：";r Print"圆的周长为：";l Print"圆的面积为：";s EndSub (3) 程序运行结果如图4-1所示。 4-1 图程序运行结果 方法二： 用文本框控件实现半径的输入，用标签控件实际周长和面积的输 出。 实验步骤： (1) 程序运行界面如图4-2所示，图中各控件属性如表4.1所示。