3.3 简单算法及其程序实现 知识点题库

编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。2

在我国古代《孙子算经》中曾经提出这样一个问题。原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2，程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序界面如右图，文本框名为Text1，用于录入最大自然数；列表框名为List1,用于输出结果。

程序代码如下：

Private Sub Command1_Click()

  Dim sum As Integer    'sum用来统计符合条件的自然数个数

  Dim n, max As Integer

  List1.Clear

  sum = 0

  max = _______①______    '指定查找范围的最大自然数，在text1框中输入

  n = 0

  Do While n <= max

n = n + 1  

    If _______   _②         ___  Then

List1.AddItem Str(n) '

    ________③_______

    End If

  Loop

  List1.AddItem ("共计" + Str(sum) + "个")   

End Sub

下面程序的功能是：统计输入信息有多少个英文大写字母、小写字母、数字字符。程序运行时，在文本框Text1中输入信息，单击“确定”按钮后，分别在文本框Text2、Text3、Text4中显示大写字母、小写字母和数字字符的个数。程序运行效果如图所示。

Private Sub Command1_Click()

Dim getStr As String

Dim a As String

Dim i As Integer，s As Integer

Dim q As Integer，l As Integer

s=0：q=0：l=0

getStr=Text1.Text

Text2.Text = Str（s）

Text3.Text = Str（q）

Text4.Text = Str（l）

End Sub

水仙花数是指一个三位数，它的各位数的立方和正好等于该数本身。如：

153=1×1×1+5×5×5+3×3×3

小张设计了一个算法来输出所有的水仙花数，具体程序如下。

编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：

⑴将n乘以3后加1产生一个新的数

⑵对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1

譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。数字2不能在10步之内回到初始值。

界面如图所示，回答下列问题：

下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。

Private Sub Command1_Click()

 Dim i As Integer, m As Integer, n As Integer

    Label1.Caption = "1000以内的完全数如下："

    For i = 1 To 1000

        n = 0

        For m = 1 To i \ 2

            If i Mod m = 0 Then n = n + m

        Next

        If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)

    Next

End Sub

该过程采用的算法是（    ）

质数又称为素数，除了1和它本身以外不再有其他因数的数成为素数。找到100到999以内的素数，并依次在列表框List1上输出的VB程序段如下：

For i = 100 To 999 lag = True: j = 2

Do While j < i And flag

   

Loop

If flag Then List1.AddItem Str(i) Next i

方框中的代码由以下四部分组成：①End If   ②If i Mod j = 0 Then   ③j = j + 1

④flag = False。代码顺序正确的是（  ）

任意一个大于或等于4的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如:4=2+2，6=3+3，8=3+5， 10=5+5，12=5+7，98=19+79。

编写一个验证哥德巴赫猜想的VB程序:程序运行时，在文本框Text1中输入一个大于或等于4的偶数，单击“验证”按钮Command1后，如果哥德巴赫猜想验证成功，则在文本框Text2中显示“Yes”，并在列表框List1中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行效果如图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Function judge(x As Integer)As Boolean

 ‘函数judge的功能是判断整数x是不是素数，若是素数则返回True，否则返回False

 Dim j As Integer

 judge=True

 j=2

 Do While j<=x-1 And judge=True

If x Mod j=0 Then

judge=False

Else

j=j+1

End If

 Loop

End Function

Private Sub Command1_Click()

 Dim n As Integer, p As Integer, q As Integer, flag As Boolean

 n=Val(Text1.Text)

 p=1

 flag=False

 Do While  And p<n    ‘

 p=p+1

      ‘

If judge(p)And judge(q)Then

Text2.Text=“Yes”

flag=True

List1.AddItem Str(n)+“=”+Str(p)+“+”+Str(q)

  End If

 Loop

 If flag=False Then

Text2.Text=“No”

End Sub

火柴算术游戏，给定n(n<=24)根火柴，恰好用尽n根火柴拼凑出A+B=C形式的算式，问一共有多少种可行方案，请输出方案的总数，已知0~9每个数字所需的火柴根数如下表所示:

注意：⑴其中A+B=C 等式中的“+”“=”需要用去4根火柴。

⑵0+4=4与4+0=4算作一种方案。

例如n=18，符合条件的算式共有5个：0+4=4，0+11=11，1+10=11，2+2=4，2+7=9。

小明设计了一个程序，在Text1中输入火柴数量，单击“计算”按钮，在Label1中输出总的可行方案数，并在List1中输出所有可行的算式。

程序代码如下，加框处代码有误，请修改。

Dim s(0 To 9) As Integer

Private Sub Command1_Click()

 Dim n As Integer, a As Integer, b As Integer, count As Integer

  count=0

  n=Val(Text1.Text)

  For a=0 To 999 Step 1

    For b=a To 999 Step 1

       If   Then   '①

        List1.AddItem Str(a)+"+"+Str(b)+"="+Str(a+b)

        count=count+1

      End If

    Next b

  Next a

  Label2.Caption="共"+Str(count)+"种方案"

End Sub

Function gs(ByVal x As Integer) As Integer

  Dim tmp As Integer

  tmp=0

  If x=0 Then tmp=s(0)

  Do While x > 0

         '②

    x=x \ 10

  Loop

  gs=tmp

End Function

Private Sub Form_Load()

  s(0)=6: s(1)=2: s(2)=5: s(3)=5: s(4)=4

  s(5)=5: s(6)=6: s(7)=3: s(8)=7: s(9)=6

End Sub

   有一种算法是把所有可能的答案一一列举，合适就保留，不合适就丢弃。这种方法称作。枚举法解决问题的一般结构：。

小明编写了一个进制转换程序。程序运行时在文本框Text1中输入十进制数，单击“计算”按钮Command1后，结果在文本框Label1中显示。程序运行界面如图a所示。

小明编写了一个VB程序，可实现如下功能：在100至999之间的自然数中，找出能被3整除，且至少有一位数字为5的所有整数，并统计个数。程序运行界面如图a所示。

（加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()

    Dim s, f, t As Integer

    Dim a(1 To 400) As Boolean

    For i = 1 To 400

        a(i) = False

    Next i

    s = 0

    f = 0

    i = 0

    Do While f < 399

        i = i + 1

        If i = 401 Then i =

        If a(i) = False Then s = s + 1

        If s = 2 Then

             

            List1.AddItem Str(i)

            a(i) = True

            f =  

        End If

    Loop

    For i = 1 To 400

        If   Then text1.text=str(i)

    Next i

End Sub

在程序划线处填入合适的代码。

班长为合唱比赛准备礼物，预算总金额有n元钱，预计购买p件礼物，每件礼物对应有商品编号、单价、数量和喜爱度。礼物不可分割，每人至多一份，班长希望每位获得礼物的同学都尽可能喜爱获得的礼物。

按上述要求，编写VB程序，功能如下：在文本框Text1中输入预计礼物数，在文本框 Text2中输入总金额，单击“计算”按钮Command1，在列表框List1中显示各类商品的编号、单价、数量、喜爱度，以及最佳购买方案、剩余金额和总喜爱度，若有多种最佳方案，则输出第一个找到的方案信息，如图a所示。

图a

迭代法也称          ， 是用计算机解决问题的一种基本方法。迭代通常是为了接近并达到所需的目标或结果。每一次对过程的          称为一次“迭代”，而每一次迭代得到的          会被用来作为下一次迭代的          。（     ）

用计算机解决以下问题，与穷举法相比更适合用解析法来解决的有（    ）。

[二进制枚举法]有n个人(编号1、2、3……n)一起玩猜拳游戏，请输出n个人猜拳的所有的情况(每个人包括石头、剪刀和布三种情况)。

程序代码如下。

Dims(2) AsString, res AsString

Dim i AsInteger, p AsInteger

PrivateSub Command1_ Click()

    s(0)="石头" : s(1)="剪刀" : s(2)="布"

    n= Va1(Text1. Text)

    For i=1 To n

        res= res+Str(i)+"号"+”"

    Next i

    List1. AddItem res

    For i=0 To    ①  

        p=1 : res =" "

        For j=1 To n

            res= res+" "+   ②  

            p=p\ 3

        Next j

        List1. AddItem res

    Next i

EndSub

从离地500米的空中自由落下一个小球，求从开始落下的时刻起，小球在最后1秒内的位移（重力加速度g以9.8米/秒2计）。程序如下，回答以下问题。

import math

h = 500

g = 9.8

t = math.sqrt（2*h/g）

hx = g*（t-1）*（-1）/2

hh = h-hx

print（“小球最后1秒下落的位移是：”, hh, "m"）

生活中大家经常玩“算24点”游戏，规则是给定任意0-9之间的四个整数，玩者利用计算操作符“+”、“-”、“*”、“/”及括号填入四个数字之间，使得运算结果为24，先算出者为赢家。计算24点最合适的算法是（     ）。

课堂上老师给出题目：查找1000以内所有能被13整除并且末尾是5的自然数。下列算法最合适的是(      )。