1、本网站免费注册后即可以下载，点击开通VIP会员可无限免费下载！
2、资料一般为word或PPT文档。建议使用IE9以上浏览器或360、谷歌、火狐浏览器浏览本站。
3、有任何下载问题，请联系微信客服。
扫描下方二维码，添加微信客服
选修1 算法与程序设计《第四章 算法与程序实现 4.6 综合活动：问题求解 4.6.6 问题求解示例》优秀教案
Private Sub Command1_Click()
??? a = Val(Text1.Text)
??? b = Val(Text2.Text)
??? c = a + b
??? Label4.Caption = c
End Sub
Private Sub Command2_Click()
??? Text1.Text = ""
??? Text2.Text = ""
??? Label4.Caption = ""
End Sub A02、编写计算水果价钱的程序。在文本框中输入水果的购买量。单击“一级”时按2.5元/kg计价，单击“二级”按2元/kg计价，并在价钱框中显示价钱。单击“清除”清除各框数据；单击“退出”退出程序。
Private Sub Command1_Click()
??? Text1.Text = ""
??? Label3.Caption = ""
End Sub
Private Sub Command2_Click()
??? End
End Sub
Private Sub Option1_Click()
???? a = Val(Text1.Text) ???? b = a * 2.5
???? Label3.Caption = b
End Sub
Private Sub Option2_Click()
??? a = Val(Text1.Text)
??? b = a * 2