⑴各像素点的颜色信息值（介于0至255之间的一个正整数），存储至数组a中。

⑵给定模糊处理的模糊中心位置p和模糊半径r（r>1），中心位置p即为半径为1的区域，

①确定模糊中心点在如下数阵中的位置。若模糊中心为36时，该模糊中心在数阵中对应位置为第4行第6列；

图a

②根据中心点和模糊半径确定模糊处理的像素点的范围。

⑶依序将模糊处理范围内的像素点进行模糊处理。模糊处理的方式为：最外侧的像素点颜色信息不变，中间各像素点的新颜色信息值为该像素点上下左右相邻四个像素点颜色信息值的平均值。

程序运行时，在文本框Text1中输入模糊的中心点p，在文本框Text2中输入模糊的半径r，窗体加载，通过列表框List1输出图像模糊处理前的信息，单击命令按钮Command1后通过列表框List2输出模糊后的图像信息。程序运行效果如图b所示。相应的模糊中心位置由椭圆圈注，中间各像素点由矩形框圈注

图b

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

数组元素a(1)至a(5)依次为5，22，28，42，55，在a(3)处分成两段，交换位置后为：

旋转数组a的最小元素是5。

数组d(1)至d(5)依次为0，1，1，1，1，在d(5)处分成两段，交换位置后为：

旋转数组d的最小元素是0。

小明依据查找算法思想，设计一个查找旋转数组d最小元素的程序，功能如下：运行程序时，利用“添加”按钮Command1和文本框Text1依次输入旋转数组d的值，在列表List1中显示旋转数组，单击“求解”按钮Command2，在标签Label2中显示旋转数组d最小元素值。运行效果如图1所示，实现该功能的VB程序如下：

图1

Dim n As Integer

Dim d(1 To 100) As Integer '数组 d 存储待排序数据

Private Sub Command1_Click()

'按旋转数组规则将数据存入数组d中，代码略

End Sub

Private Sub Command2_Click()

  Dim mid As Integer, L As Integer, R As Integer

  L = 1: R = n

  mid = L

  Do While d(L) >= d(R)

    If  Then    '改错

      mid = R

      Exit Do

    End If

    mid = (L + R) \ 2

    If d(L)=d(R) And d(mid)=d(R) Then

mid =______________                              '填空

      Exit Do

    End If

    If d(L) < d(mid) Then

      L = mid

ElseIf d(mid) < d(R) Then

      R = mid

    End If

  Loop

Label2.Caption = "最小值为" + Str(d(mid))

End Sub

    End If

  Next i

End Function

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 20) As Integer ’用于保存n(n<=20)个按从小到大顺序排列的整数

‘Form_Load事件过程产生n个整数，按升序保存在数组a中，并在Text1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim i , j , m , k As Integer

Dim x As Integer，f As Boolean  ’变量f用于标记是否在数组中找到x

x = Val(Text2.Text)

i=1 ：j=n  : f=False

Do While  i<=j And  f=False

 m = Fix((i＋j)/2)

 If a(m)=x Then f=True

 If  Then i=m＋1 Else j=m－1    ‘(1)

Loop

If f = True Then

 For k = m To n-1

         ‘(2)

 Next k

n = n - 1

 Text3.Text = ""

 For k = 1 To n

Text3.Text = Text3.Text＋Str(a(k))＋","

 Next k

Else

 Text3.Text = "该数没有找到!"

End If

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

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

Key=Val(Text1.Text)

i=0：j=9：s=0

Do While i<=j

    m=Fix((i+j)/2+0.5)

    s=s+1

    if Key=a(m) Then

         Label1.Caption=Label1.Caption+“→”+Str(m)

         Exit Do

    End if

    if Key<a(m) Then j=m-1  Else  i=m+1

    Label1.Caption=Label1.Caption+“→”+Str(m)

Loop

Label2.Caption=“经历”+ Str(s)+“步”

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

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

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

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