2.2.2赋值语句和输入输出语句

《2.2.2赋值语句和输入输出语句》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、课堂效果反馈班级：姓名：学号一、请同学们调试运行程序Privatesubcommangl_click()‘定义名为commangl_click()的事件’Dimwassingle,hassingle‘定义体重w、身高h为单精度实数’DimBMIBMIsingle‘定义BMI为单精度实型’w=_______‘输入体重’h=_______‘输入身高’BMI=_______’计算机BMI’Print”质量指数BMI=”;BMI‘把BMI的值显示到屏幕上’Endsub‘结束过程’运行结果：二、请同学们将程序改写为下面的程序，并调试运行，体验inputbox

2、()函数的功能。Privatesubcommandl-click()Dimwassingle,hassingleDimBMIassinglew=_______‘输入体重’h=_______‘输入身高’BMI=w/(h*h)Print“质量指数BMI=”;BMIEndsub思考问题：inputbox()语句与赋值语句的不同。开始输出s输出v根据公式：v=a*b*c输入c输入b结束输入a三、练一练：试编写一个程序，实现输入长方体的长、宽、高，求长方体的表面积和体积。请同学们根据右边的流程图编写程序代码，并调试。根据公式：s=2*(a*b+a*c+b*c

3、)四、拓展（请学有余力的同学完成）1、下列程序的功能是求两个数a,b的（）PrivateSubCommand1_Click()a=InputBox("a=","输入")b=InputBox("b=","输入")Max=(a+b)/2+Abs(a-b)/2Print"Max=";MaxEndSubA.最大值B.最小值C.中间值D.求不出最大值2、下列程序的功能是求两个数a,b的（）PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox("a=","输入",0)b=InputBox("b

4、=","输入",0)Min=(a+b)/2-Abs(a-b)/2Print"Min=";MinEndSubB.最大值B.最小值C.中间值D.求不出最大值3、下列程序的功能是求两个数a,b的（）PrivateSubCommand1_Click()a=Val(InputBox("a=","输入"))b=Val(InputBox("b=","输入"))Max=(a+b)/2+Abs(a-b)/2Print"Max=";MaxEndSubC.最大值B.最小值C.中间值D.求不出最大值