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

编写一个验证哥德巴赫猜想的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

1)让各店的外卖员送货上门，对于第i个菜需要花费a(i)的时间。

2)自己去餐厅取回家，每次出门仅能取回一道菜，对于第i个菜，从出门到回家整个过程需要花费b(i)的时间。

每家餐厅都有各自的外卖员送菜，并且无论老张是否在家，他们都能把菜送到。为了节省时间，能由外类员送的菜尽量由外卖负各自送达，现在需要知道最少花费多少时间能集齐所有的菜。

比如n=4，a(i)=(30，70，40，50)，b(1)=(20，10，20，30}，那么花费时间少的方案是第一个菜和第三个菜让让外卖员送，第二个菜和第四个菜老张自己取，一共需要40分钟。

设计VB程序计算最少时间，界面如下图

实现上述功能的VB程序如下，回答以下问题：

编号登记：为n位体检者设置体检编号1~n。

体检呼叫：体检项目处空闲时呼叫下一个体检者（编号小的优先），若多个项目同时呼叫，体 检者到优先级小的项目处体检。仅考虑常规体检项目，各个项目的优先级及体检时间如表1所示：

前去体检：各个体检项目之间相互独立，互不影响；病人排队体检和体检完毕到下一科室之 间没有时间延迟。