⑴使用循环列出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

Function s(m) As Boolean

 Dim i As Integer

 ______1_______

For i = 2 To Int(Sqr(m))

 If m / i = 0 Then  s = false     ‘3

Next i

End Function

Private Sub Command1_click()

 Dim i, n As Integer

 Dim p1, p2 As Boolean

  n = Val(Text1.Text)

  p1 = s(3)

  List1.Clear

  For i = ______2_____

  p2 = s(i)

  If p2 = True Then List1.AddItem = Str(i - 2) + " " + Str(i)   ‘4

  p1 = p2

Next i

End Sub

实现该功能的VB程序段如下：

Function space(x As Integer)As String        ‘输出格式化，设置左侧的空格数量

  Dim n As Integer

  For n=9 To x Step-1

     ①  

  Next n

End Function

Private Sub Form_Load()

  Dim t As Long，i As Integer，n As String

  Dim a(1 To 9)As String

  Dim b(1 To 9)As String

  Const num=“987654321”

  For i=1 To 9

    t=t*10+i

    a(i)=space(i)+CStr(t)  ‘CStr函数的功能是将数值转为字符，转换时不会添加空格

       ②   

    n=n+a(i)+“*8+”+CStr(i)+“=”+b(i)+Chr(13)       ‘Chr(13)实现换行处理

  Next i

  Label1．Caption=n

End Sub

Private Sub Command1_Click()

 Dim a As Integer,b As Integer,c As Integer

 Dim d As Integer

 a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)

 d=min(a,b)+min(b,c)

 Text4.Text=Str(d)

End Sub

Function min(x As Integer,y As Integer)As Integer

 If x<y Then min=x Else min=y

End Function

运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text4中显示的是（  ）

摸牌规则：

A.当某花色牌不足3张，则记录摸到的牌，继续摸下一张牌

B.当某花色的牌超过3张时，若摸到的卡牌点数大于本花色中已有卡牌点数的最小值，则替换本花色中点数最小的卡牌，否则，弃置摸到的牌。继续下一-张摸牌

C.当所有花色的牌均为3张时结束摸牌。然后按花色编号从小到大展示摸到的卡牌

例如：在某次摸牌后的卡牌如下表所示：

1)当下一次摸到“黑桃4”的牌时，4小于已摸到的[7，5，12]，弃置摸到的牌，继续摸牌

2)当摸到“红桃9”的牌时，9大于已摸到的[11，3，8]的最小值3，红桃更新为[11，9，8]，继续摸牌

3)当摸到“梅花9”的牌时，梅花点数更新为[7，5，9]，达到所有花色的牌均为3张的目标，结束摸牌。

模拟此过程编写VB程序，程序运行界面如下图，单击“展示摸到的卡牌”按钮开始摸牌，满足条件时，在列表框中展示摸到的卡牌。

def cal(n):

    if n <= 1:

        return 1

    if n % 2 == 0:

        return 2*cal(n-1)

执行语句k=cal(5)，则k的值为（   ）