1)a医生值班儿比C医生晚一天

2)D医生值班儿比e医生晚两天

3)B医生值班儿笔记医生早三天

4)F医生值班儿日在BC医生值班日之间，且在星期四。打印出每个医生的值班表。

某医院内科有a,b,c,d,e,f,g七位医生，他们在一星期内每天值一次班，根据排班要求打印出值班表。

# 用列表结构列出Monday~Sunday

days=["Monday","Tuesday","Wednesday","Thursday","Friday","Saturday",]

for a in range(7):

  for b in range(7):

    if a!=b:

      for c in range(7):

        if(c!=a)and(c!=b):

          for d in range(7):

            if(d!=a)and(d!=b)and(d!=c):

              for e in range(7):

                if(e!=a)and(e!=b)and(e!=c)and(e!=d):

                  for f in range(7):

                    if(f!=a)and(f!=b)and(f!=c)and(f!=d)and(f!=e):

                      for g in range(7):

                        if(g!=a)and(g!=b)and(g!=c)and(g!=d)and(g!=e)and(g!=f):

                        #用条件表达式表示出符合要求的排班

                        if(a==c+1)and(d==)and(b==g-3)and(f>b)and(f<c)and():

                        #打印输出每个医生的排班结果

                      print("a医生:",,'\n')

                  print("b医生:",days[b],'\n')

              print("c医生:",days[c],'\n')

          print("d医生:",days[d],'\n')

      print("e医生:",days[e],'\n')

    print("f医生:",days[f],'\n')

print("g医生:",days[g],'\n')

编写完成后原名保存并关闭应用软件。

Const n = 20

Dim id(1 To 20) As Integer， h(1 To 20) As Integer，w(1 To 20) As Integer

Dim m As Integer

Private Sub Form_Load( )

    '从数据库中读取n名学生的编号、身高和体重分别存储在数组id、h和w中。

    '代码略。

    m=0    '存储身高≥175cm的学生总数

    For i=1 To n

        k=i

        For j=i+1 To n

            If h(j) >= 175 Then

                If  Then k= j    '⑶

            End If

        Next j

        If k<>I Then

            t = id(i)： id(i) = id(k)： id(k) = t

            t=h(i)：h(i)=h(k)：h(k)=t

            t=w(i)：w(i)=w(k)：w(k)=t

        End If

        If h(i) < 175 Then

            m=i-1

            Exit For     '结束挑选

        Else

        End If

        List1.AddItem str(id(i)) +“”+ Str(h(i)) +””+ Str(w(i))

    Next i

End Sub

Private Sub Com_Click()

    L=1：R=m

    Do While L< R

        If  Then

            List2. AddItem Str(id(L)) + “号和”+ Str(id(R)) +“号组队”

            L=L+1

            R=R-1

        Else

        End If

    Loop

End Sub