要求編寫一個(gè)“查找大于h的最小身高”的VB程序，功能如下：在文本框Text1中依次輸入各個(gè)人身高（數(shù)據(jù)都用逗號(hào)分隔并以逗號(hào)結(jié)尾），文本框Text2中輸入身高值h,單擊“查找”按鈕Command1后，在Label3上顯示大于h的最小身高值。例如，五個(gè)人身高為1.65，1.75，1.85，1.73，1.72，輸入格式如圖b所示。程序設(shè)計(jì)界面和運(yùn)行界面分別如圖a和圖b所示。

（1）要使程序運(yùn)行時(shí)，清空Label3上的內(nèi)容，可在Form_Load事件過程中添加語句

B

B

（單選，填字母：A．Label3．text=““/B．Label3．Caption=““/C．Label3．Clear）。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼。
Private Sub Command1_Click （　?。?br />Dim i As Integer,k As Integer,s As String,ch As String
Dim h As Single,temp As Single,min As Single
s=①

Text1．Text

Text1．Text

h=Val（Text2．Text）
i=1：temp=0：k=0
min=0：flag=True
Do While i＜=Len（s）
ch=Mid（s,i,1）
If ch＜＞“，“Then
②

k=k+1

k=k+1

Else
temp=Val（Mid（s,i-k,k））
If temp＞h Then
If flag Or temp＜min Then min=temp：③

flag=False

flag=False

End If
k=0
End If
i=i+1
Loop
Label3．Caption=“大于“+Str（h）+“的最小的身高是：“+Str（min）
End Sub
（3）運(yùn)行該程序，若輸入數(shù)據(jù)為“1.65，1.75，1.85，1.73，1.72”，則程序結(jié)束時(shí)，變量min的值為

1.72

1.72

。