把一个数组最开始的若干个元素搬到数组的末尾，我们称之为数组的旋转。输入一个递增排序的数组的一个旋转，输出旋转数组的最小元素。
数组元素a（1）至a（5）依次为5，22，28，42，55，在a（3）处分成两段，交换位置后为：旋转数组a的最小元素是5。

a（1）	a（2）	a（3）	a（4）	a（5）
28	42	55	5	22

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

d（1）	d（2）	d（3）	d（4）	d（5）
1	0	1	1	1

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

B

B

（单选，填字母：A．在Form_Load事件处理过程中添加语句“Text1．Text=″″”/B．在Command1_Click事件处理过程中添加语句“Text1．Text=″″”/C．设计程序界面时，在属性面板设置文本框Text1的Text属性值为空）
（2）程序代码中，加框处有错，请改正。
（3）程序代码中，将横线处代码补充完整。
（4）程序代码中，虚线框内自定义函数中主要采用的算法是

C

C

（单选，填字母：A．冒泡排序/B．选择排序/C．顺序查找/D．对分查找）。
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=

inorder（L，R）

inorder（L，R）

'填空
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