寻路

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://xunlu2007.blogbus.com/logs/30401932.html

Private Sub cmdend_Click（）

Dim r As Integer

r＝MsgBox（＂真的要退出吗？＂,vbOKCancel＋vbExclamation，＂提示信息＂）

If r＝1 Then End

End Sub

Private Sub cmdyz_Click（）

a＝Val（txta．Text）

b＝Val（txtb．Text）

c＝Val（txtc．Text）

If c＝a＋b Then

MsgBox＂正确，请做下一题！＂，vbOKOnly，＂提示信息＂Else

MsgBox＂错误，再试试！＂，vbOKOnly＋vbinformation，＂提示信息"

n＝n＋1

If n＞3 Then End

txtc．Text＝＂＂

txtc．SetFocus

End If

End Sub

通过界码同步分析，学生理解得比较正确，交互函数MsgBox的教学难点由此得到了解决。其余的代码设计，如变量作用域等问题就比较好处理，交给学生自己完成。

显然，界面与代码的对照分析、关联设计、同步教学在引导学生理解、激发学生思维的过程中起到了相当重要的作用。