1、本网站免费注册后即可以下载，点击开通VIP会员可无限免费下载！
2、资料一般为word或PPT文档。建议使用IE9以上浏览器或360、谷歌、火狐浏览器浏览本站。
3、有任何下载问题，请联系微信客服。
扫描下方二维码，添加微信客服
粤教2003课标版《2.4.3循环的嵌套》集体备课PPT课件优质课下载
?Dim y As Single?'?除数
?Dim q As Single?'?商
?x = InputBox("请输入被除数:")
?y = InputBox("请输入除数:")
?q = x / y
?Print q
End Sub
思考：如何改进？
根据条件判断的结果，引导程序的走向。
If y <> 0 Then
q = x / y
Print q
? Else
?? ?Print “除数为零”
End If
双分支结构和VB程式的对应
If <条件> then
语句组1
Else
语句组2
End if
活动1：出租车计费程序，三公里（含）以内起步价5元，燃油附加费1元每趟，超出三公里的部分每公里1.8元。
二.模仿尝试，完善程序
Private Sub Command1_Click()
? Dim s As Single, y As Single