第二部分程式设计与基本算法new.docVIP

第二部分 程序设计和基本算法 类型一：迭代法 迭代法在数学上也称“递推法”，凡是由一给定的初值，通过某一算法（公式）可求得新值，再由新值按照同样的算法又可求得另一个新值，这样经过有限次即可求得其解。 自由落体问题、猴子吃桃子问题、求和问题、求积问题 解题要点： 根据已知条件确定初始变量的值； 找出最终所求数据和第一次初始条件下变量的关系； 根据变化规律找出各变量间如何变化得到第二次数据，从而为求最终结果做准备； 再准备变化后的第三次、第四次数据……一次循环，找出循环体，设计循环条件； 输出所求变量结果 自由落体路径问题 1．在考生文件夹中，完成以下要求： (1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“数据计算”。 (2)Label1，标题为“计算结果”；一个文本框Text1；两个命令按钮（名称分别为C1和C2，标题分别为“计算”和“保存”），如图所示。 (3)S的近似值，直到最后一项的绝对值小于10-5为止（要求将存放结果的变量类型定义成单精度浮点型）。 (4)kssj.dat”中。 (5)在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前的工程中，直接调用该过程。 (6)Prog1.exe。 Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = \ t_FileName Open App.Path sFile For Output As #1 Print #1, t_Str Close #1 End Sub 参考程序如下：（要求考生编写代码部分） Dim N as Integer , I as Integer Dim S as Single , T as Single Private Sub C1_Click() S=1 N=1 Do N=N+2 T=1 For I = 1 To N T=T*I Next I S=S+1/T Loop Until 1/T0.0000001 Text1.Text=S End Sub Private Sub C2_Click() Call putdata(kssj.dat, S) End Sub Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = \ t_FileName Open App.Path sFile For Output As #1 Print #1, t_Str Close #1 End Sub 类型二：素数问题 Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = \ t_FileName Open App.Path sFile For Output As #1 Print #1, t_Str Close #1 End Sub 5．在考生文件夹中，完成以下要求： (1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”。 (2)label1，标题为“100～200之间的素数和为”），一个文本框（名称为Text1，文本内容为空）和两个命令按钮（名称分别为：Command1,Command2，标题分别为：“计算”，“保存”），将窗体标题改为“求素数和”（如图所示）。 (3)Text1中显示出100～200之间的素数和；单击“保存”按钮，将计算结果存入考生文件夹中的文件“kssj.dat”中。 (4)Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。 (5)Prog1.exe。 Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = \ t_FileName