15. 张文同学使用ⅤB编写了一个程序用来求半径为r(通过Text1输入)的圆面积(π取值3.14),该程序的运行界面如下图所示,请帮助他修改程序中的错误。
Private Sub Commandl_ Click() Dim pi As Single Const pi=3. 14 Text2.Text=2 pi*Text1.Text Text3.Text=pi*Text2.Text*Text2.Text End Sub |
(1)删除程序中多余的语句;
(2)修改语句“Text2.Text=2 pi*Text1.Text”行中的错误;
(3)修改语句“Text3.Text=pi*Text2.Text*Text2.Text”行中的错误;
(4)保存文件。