[問(wèn)答題] 完成下列問(wèn)題：

考生文件夾下有一個(gè)工程文件sjt4.vbp。該程序的功能是：程序運(yùn)行時(shí)，向文本框控件數(shù)組Text1(有5個(gè)文本框)中任意輸入5個(gè)數(shù)，單擊名稱(chēng)為Command1的命令按鈕，則找出其中最小數(shù)并顯示在標(biāo)簽lblResult中。

窗體文件中已經(jīng)給出了全部控件，但程序不完整，其中函數(shù)FindMin返回兩個(gè)數(shù)中的較小數(shù)。

要求：在程序中的橫線(xiàn)處填寫(xiě)正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。

[題目提供的源程序]

Private Sub Command1_Click()

Dim x As Integer, k As Integer

x=Val(Text1(1).Text)

For k=2 To (1)

x=FindMin(Val(Text1(k).Text), (2) )

Next

lblResult Caption= (3)

End Sub

Public Function FindMin(x As Integer, y As Integer)

If x (4) y Then

FindMin=y

Else

FindMin=x

End If

End Function

[操作步驟] 第1步：打開(kāi)工程sjt3.vbp。 第2步：修改源程序。 第3步：調(diào)試、運(yùn)行并保存程序。 [1]5 [2]x [3]x [4]＞或＞=

程序首先取出第一個(gè)文本框中的內(nèi)容并將其轉(zhuǎn)換為數(shù)值型數(shù)據(jù)存儲(chǔ)在變量x中，然后通過(guò)調(diào)用函數(shù)FindMin()讓x與其余文本框中的內(nèi)容作比較，如果其他文本框中的內(nèi)容小于x，則用該文本框的內(nèi)容替換掉x的值，再用x與剩余文本框中的內(nèi)容做比較，以此類(lèi)推，直到比較完所有的文本框中的內(nèi)容，則變量x中的值就是所求的最小值。 [1]處用于控制比較的次數(shù)，目的是從第二個(gè)文本框到最后一個(gè)文本框逐一與x的值比較，而最后一個(gè)文本框的下標(biāo)為5，所以[1]處應(yīng)填5。調(diào)用函數(shù)FindMin時(shí)，是用一個(gè)文本框中的內(nèi)容與當(dāng)前所找到的最小值x相比較，所以第二個(gè)參數(shù)應(yīng)該是x。[3]處是為了顯示最小值，根據(jù)前面的分析，這里應(yīng)該顯示x的值。FindMin函數(shù)通過(guò)比較兩個(gè)形參的大小來(lái)決定函數(shù)的返回值，只有當(dāng)x＞=y或x＞y時(shí)，返回y的值，否則返回x。