⑴使用循环列出1到99999中的每一个数zmsknz

⑵通过自定义函数ddknzms拆解得到每个数中的每位数上的数码及它们对应的n次幂之和

⑶将zmsknz与ddknzms进行比较，若相等则说明是自幂数，可将其加入列表。

编写VB程序，使用枚举法得到5位数以内的自幂数，程序设计界面如图所示：

  请根据算法及相应注释将下面的程序补充完整：

Function ddknzms(zmsknz As Long) As Long  '得到可能的自幂数

  Dim zmsknz_str As String    '字符串类型自幂数可能值

  Dim zmsknz_length As Integer, zmswsxh As Integer  '字符串类型自幂数可能值字符个数

  zmsknz_str = Trim(Str(zmsknz))

  zmsknz_length = Len(zmsknz_str)

  For zmswsxh = 1 To zmsknz_length

    ddknzms = ddknzms + Val(Mid(zmsknz_str, zmswsxh, 1))^  {#blank#}1{#/blank#}

  Next zmswsxh

End Function

Private Sub Command1_Click()

  Const ZMSWS = 5

  Dim zmsknz As Long, zmsknz_zz As Long

  zmsknz_zz = 10  ZMSWS - 1

  For zmsknz = 1 To zmsknz_zz

If {#blank#}2{#/blank#} Then List1.AddItem (Str(zmsknz)

  Next zmsknz

End Sub

Dim b(4) As Integer         '数组b按位存储二进制数，数组类型为整型，元素个数为4个

Private Sub pprint(m As Integer) 

'本过程打印输出一行十进制数m和对应的二进制数

'代码略

End Sub

Private Sub Command1_Click()

  Dim i As Integer, j As Integer                                        

  List1.Clear                                                               

  List1.AddItem "十进制数      二进制数"                          

  For i = 1 To 4                                          

      b(i) = 0                                                   

  Next i

  For i = 0 To 15                                    

      Call pprint(i)                                    

      j =   1                '(1)         

      b(j) = b(j) + 1                  

      Do While  b(j) = 0     '(2)  

         b(j) = 0                            

         j = j - 1                          

         b(j) = b(j) + 1              

      Loop                                  

  Next i                                

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

实现上述功能的VB程序如下,请回答下列问题:

编写一个验证哥德巴赫猜想的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    ‘{#blank#}1{#/blank#}

 p=p+1

      ‘{#blank#}2{#/blank#}

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

解决此问题可采用自底至顶分析的方法。如图a所示的数塔中，先从第3层开始分析：如果路径经过第3层的第1个数字12，那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值，记作f（3，1）=12+141同理，f(3，2)=7+15、f(3，3)=26+15：再分析第2层，计算f(2，1)、f(2，2)：最后计算出第1层f(1，1)，即为所求结果。

def p(x):

     for i in range(2,x):

         if x%i==0:

    return False

 return True

执行语句 print(p(5),p(6))后，输出的结果为（   ）