把一個數(shù)組最開始的若干個元素搬到數(shù)組的末尾，我們稱之為數(shù)組的旋轉。輸入一個遞增排序的數(shù)組的一個旋轉，輸出旋轉數(shù)組的最小元素。
數(shù)組元素a（1）至a（5）依次為5，22，28，42，55，在a（3）處分成兩段，交換位置后為：旋轉數(shù)組a的最小元素是5。

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

數(shù)組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

旋轉數(shù)組d的最小元素是0。
小明依據(jù)查找算法思想，設計一個查找旋轉數(shù)組d最小元素的程序，功能如下：運行程序時，利用“添加”按鈕Command1和文本框Text1依次輸入旋轉數(shù)組d的值，在列表List1中顯示旋轉數(shù)組，單擊“求解”按鈕Command2，在標簽Label2中顯示旋轉數(shù)組d最小元素值。運行效果如圖所示，實現(xiàn)該功能的VB程序如下。
（1）要使程序運行時，文本框Text1無顯示內容，下列方法不能實現(xiàn)該要求的是

B

B

（單選，填字母：A．在Form_Load事件處理過程中添加語句“Text1．Text=″″”/B．在Command1_Click事件處理過程中添加語句“Text1．Text=″″”/C．設計程序界面時，在屬性面板設置文本框Text1的Text屬性值為空）
（2）程序代碼中，加框處有錯，請改正。
（3）程序代碼中，將橫線處代碼補充完整。
（4）程序代碼中，虛線框內自定義函數(shù)中主要采用的算法是

C

C

（單選，填字母：A．冒泡排序/B．選擇排序/C．順序查找/D．對分查找）。
Dim n As Integer
Dim d（1 To 100）As Integer'數(shù)組 d 存儲待排序數(shù)據(jù)
Private Sub Command1_Click （　?。?br />'按旋轉數(shù)組規(guī)則將數(shù)據(jù)存入數(shù)組d中，代碼略
End Sub
Private Sub Command2_Click （　?。?br />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