请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。

Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer

Function f(x) As Boolean

f = True

      For i = 2 To Sqr(x)

         If x Mod i = 0 Then {#blank#}1{#/blank#}  

Next i

End Function

Private Sub Command1 Click()

n =  {#blank#}2{#/blank#} 

For a1 = 2 To n

 For a2 = a1 To n

  For a3 = a2 To n

   If   {#blank#}3{#/blank#}  And f(a1) And f(a2) And f(a3) Then

    List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))

   End If

  Next a3

 Next a2

Next a1

End Sub

Private Sub Command1_Click()

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

  Dim d As Integer, z As Integer

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

  d = max(a, b)

  z = max(d, c)

  Text4.Text = Str(d)

  Text5.Text = Str(z)

End Sub

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

  If x > y Then max = x Else max = y

End Function

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

医院为提升服务质量，编写程序模拟就诊顺序。现获取某医生早上就诊患者的数据，分别为姓名、预约或挂号时间、就诊时长(单位：分钟)。预约挂号数据(准时到达人员数据)如图a所示，直接挂号数据如图b所示。运行程序，输出前三位就诊顺序名单，如图c所示。

def func( ):

    print(666)

    return

print(func( ) )

①当天08:00之前完成签到的患者，按照挂号顺序从小到大排队就诊；

②08:00之后签到的患者，按照挂号的序号从小到大的次序插入候诊队伍中；

③队伍中前3名患者(包括正在就诊患者)视为已进入待诊状态，插队的患者只能插到这3 名待诊患者后的队伍中。

假设医生从08:00开始叫号就诊，对每位患者的诊断时间均为3分钟，忽略相邻患者就 诊的时间间隔。编写程序实现以下功能：若有患者签到，则根据规则更新候诊队伍；医生每 完成一名患者的诊断，电子屏幕上按顺序显示待诊的患者姓名和每个患者预计就诊的时间。