要求编写一个“查找大于h的最小身高”的VB程序，功能如下：在文本框Text1中依次输入各个人身高（数据都用逗号分隔并以逗号结尾），文本框Text2中输入身高值h,单击“查找”按钮Command1后，在Label3上显示大于h的最小身高值。例如，五个人身高为1.65，1.75，1.85，1.73，1.72，输入格式如图b所示。程序设计界面和运行界面分别如图a和图b所示。

（1）要使程序运行时，清空Label3上的内容，可在Form_Load事件过程中添加语句

B

B

（单选，填字母：A．Label3．text=““/B．Label3．Caption=““/C．Label3．Clear）。
（2）实现上述功能的VB程序如下，请在横线处填入合适代码。
Private Sub Command1_Click （　　）
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）运行该程序，若输入数据为“1.65，1.75，1.85，1.73，1.72”，则程序结束时，变量min的值为

1.72

1.72

。