在一條寬度為L的直線小河中，一只青蛙想沿著直線從河的左側(cè)跳到右側(cè)。小河中有n片位置互不相同的荷葉，青蛙必須跳到荷葉上過河，否則會掉入水中。開始時青蛙站在河的左側(cè)（坐標(biāo)為0），接著不停地向右側(cè)跳躍，每次跳躍的距離不超過W，當(dāng)青蛙跳到或跳過河的右側(cè)（坐標(biāo)為L）時，青蛙完成過河。
例如當(dāng)L=20，n=4，W=5，開始時4片荷葉的坐標(biāo)為3，9，11，17，則至少需要增加2片荷葉，即在坐標(biāo)8和16分別增加一個荷葉，得到過河的可行方案是0→3→8→9→11→16→17→20。

編寫程序找出青蛙成功過河至少需要增加的荷葉數(shù)，界面如圖b。
請回答以下問題：
（1）若要將列表框List1頂端與窗體頂端的距離設(shè)置為100，能實現(xiàn)該功能的語句是

B

B

（單選，填字母：A.List1.Height=100/B.List1.Top=100/C.List1.Width=100）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Form_Load （　?。?br />'讀取荷葉的位置，并保存到數(shù)組a中
'荷葉的數(shù)量保存在n中
'荷葉坐標(biāo)和數(shù)量分別顯示在list1和Text2中
End Sub
Private Sub Command1_Click （　?。?br />Dim a（0 To 100）As Integer
Dim n As Integer,L As Integer,W As Integer,tot As Integer
Dim i As Integer,j As Integer,p As Integer,d As Integer
L=Val（Text1.Text）：n=Val（Text2.Text）：W=Val（Text3.Text）
a（0）=0：a（n+1）=①

L

L

For i=1 To n-1
k=i
For j=i+1 To n
If a（k）＞a（j）Then a（j）=a（k）
Next j
If k＜＞i Then
tmp=a（k）：a（k）=a（i）：a（i）=tmp
End If
Next i
For i=1 To n
List1.AddItem a（i）
Next i
p=1：d=0
Do While d＜L
If p＜=n+1 And ②

a（p）-d＜=W

a（p）-d＜=W

Then
d=a（p）
p=p+1
Else
tot=tot+1
③

d=d+W

d=d+W

End If
Loop
Label4.Caption=“至少需要增加的荷葉數(shù)為：“+Str（tot）
End Sub
（3）程序中加框處代碼有錯，請改正。