1、本网站免费注册后即可以下载，点击开通VIP会员可无限免费下载！
2、资料一般为word或PPT文档。建议使用IE9以上浏览器或360、谷歌、火狐浏览器浏览本站。
3、有任何下载问题，请联系微信客服。
扫描下方二维码，添加微信客服
选修1 算法与程序设计信息技术《第2章 程序设计基础 第二节 VB语言概述 学习指引 赋值语句与输入输出语句》精品课课件
? 输出语句
问题：求半径为r的圆的面积
观察下面两段程序，讨论并分析它们的运行结果相同吗？如不同，结果是什么？为什么？
Private sub command1_click()????
Dim r as single, s as single ???????????
Const pi as single=3.14 ????????
?r=val(inputbox(“r=”,”请输入半径”))
s=pi*r*r?????????? ???????????
print “圆的面积s=”;s?????????
End sub?
程序1：
Private sub command2_click()????
? Dim r as single, s as single ???????????
Const pi as single=3.14 ????????
s=pi*r*r?
? r=val(inputbox(“r=”,”请输入半径”))??????? ???????????
? print “圆的面积s=”;s?????????
End sub?
程序2：
输入r的值
开始
S=Pi*r*r
输出S的值
结束
输入r的值