4.1编制计算机程序解决问题（下).pptVIP

* 本资料来自于资源最齐全的２１世纪教育网 * 本资料来自于资源最齐全的２１世纪教育网 LOGO LOGO 认识程序中的基本元素 1. 剖析编制计算机程序解决问题的过程 2. 4.1 编制计算机程序解决问题（下） 两数相加的加法程序： 4.1 编制计算机程序解决问题（下） Private Sub Command1_Click() Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text)) End Sub 两数相加的代码： 4.1 编制计算机程序解决问题（下） 韩信点兵：今有物不知其数，三三数之剩二，五五数之剩三；七七数之剩二。问物几何？ 4.1 编制计算机程序解决问题（下） Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 0 Do If x Mod 3 = 2 Then If x Mod 5 = 3 Then If x Mod 7 = 2 Then y = x End If End If End If x = x + 1 Loop Until y 0 Print 韩信统御士兵数：; y End Sub 韩信点兵代码： 4.1 编制计算机程序解决问题（下） 程序代码是用