程序设计和基本算法

程序设计和基本算法

类型一：迭代法

迭代法在数学上也称“递推法”，凡是由一给定的初值，通过某一算法（公式）可求得新值，再由新值按照同样的算法又可求得另一个新值，这样经过有限次即可求得其解。

自由落体问题、猴子吃桃子问题、求和问题、求积问题

解题要点：

1、根据已知条件确定初始变量的值；

2、找出最终所求数据和第一次初始条件下变量的关系；

3、根据变化规律找出各变量间如何变化得到第二次数据，从而为求最终结果做准备；

4、再准备变化后的第三次、第四次数据……一次循环，找出循环体，设计循环条件；

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/T<0.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

Open App.Path & sFile For Output As #1

Print #1, t_Str

Close #1

End Sub

参考程序如下：（要求考生编写代码部分）

Private Sub Command1_Click()

For n = 101 To 200 Step 2

f = 1

For i = 2 To n - 1

If n Mod i = 0 Then f = 0: Exit For

Next i

If f = 1 Then s = s + n

Next n

Text1.Text = s

End Sub

Private Sub Command2_Click()

Call putdata("kssj.dat", Text1.Text)

End Sub

3、验证哥德巴赫猜想：

一个大于等于6的偶数可以表示为两个素数之和。例如：6=3+3 8=3+5 10= 3+7算法设计：设N为大于等于6的任一偶数，将其分解为N1和N2两个数，使用N1+N2=N，分别判断N1和N2是否为素数，若都是，则为一组解。若N1不是素数，就不必再检查N2是否素数。先从N1=3开始，直到N1=N/2为止。算法流程图如图4-29所示。将程序代码写到窗体的单击事件中。

类型三：最大公约数和最小公倍数问题（辗转相处法）最大公约数算法：

○1以大数m作为被除数，小点的数n作为除数，相除后取余

数r；

○2若r不为零，把n的值给m，r给n；

m与n继续相除得到新的r，若r仍不为零，则重复此步骤；

○3最后r=0时的n就是最大公约数；

最小公倍数

○4最小公倍数=（n*m）/最大公约数；

7．在考生文件夹中，完成以下要求：

(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗

体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“最小公倍数”。

(2)请在窗体适当位置增加以下控件：3个标签（均为默认名称，标题分别为“数1”、“数

2”、“最小公倍数为”）；三个文本框（均为默认名称）；两个命令按钮（均为默认名称，标题分别为“计算”和“保存”），如图所示。

(3)要求编写计算两个数的最小公倍数的程序，程序运行后：

（1）在文本框Text1和Text2中分别输入数据196和42，然后单击“计算”按钮，计算出这两个数的最小公倍数，并将结果显示在文本框Text3；

（2）在确定正确之后，单击“保存”按钮，将结果存入考生文件夹中的“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

Open App.Path & sFile For Output As #1

Print #1, t_Str

Close #1

End Sub

参考代码如下：（要求考生编写代码部分）

Private Sub Command1_Click()

Dim m As Integer, n As Integer, t As Long

m = Val(Text1.Text)

n = Val(Text2.Text)

t = m * n

Do

r = m Mod n

m = n

n = r

Loop Until r = 0

t = t / m

Text3.Text = t

End Sub

Private Sub Command2_Click()

Call putdata("kssj.dat", Text3.Text)

End Sub

类型四：图形打印问题

4．打印a~z字母金字塔(&H61 ~ &H7A) hex(number)

5．打印数字金字塔

打印杨辉三角形

next i

标准模块prog1.bas中代码如下：Option Explicit