[問答題] 完成下列問題:考生文件夾下有一個工程文件sjt4.vbp。該程序的功能是:程序運行時,向文本框控件數(shù)組Text1(有5個文本框)中任意輸入5個數(shù),單
[問答題] 完成下列問題:
考生文件夾下有一個工程文件sjt4.vbp。該程序的功能是:程序運行時,向文本框控件數(shù)組Text1(有5個文本框)中任意輸入5個數(shù),單擊名稱為Command1的命令按鈕,則找出其中最小數(shù)并顯示在標簽lblResult中。
窗體文件中已經(jīng)給出了全部控件,但程序不完整,其中函數(shù)FindMin返回兩個數(shù)中的較小數(shù)。
要求:在程序中的橫線處填寫正確的內(nèi)容,使其能正確運行,但不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。
[題目提供的源程序]
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步:打開工程sjt3.vbp。 第2步:修改源程序。 第3步:調(diào)試、運行并保存程序。 [1]5 [2]x [3]x [4]>或>=
參考解析:程序首先取出第一個文本框中的內(nèi)容并將其轉(zhuǎn)換為數(shù)值型數(shù)據(jù)存儲在變量x中,然后通過調(diào)用函數(shù)FindMin()讓x與其余文本框中的內(nèi)容作比較,如果其他文本框中的內(nèi)容小于x,則用該文本框的內(nèi)容替換掉x的值,再用x與剩余文本框中的內(nèi)容做比較,以此類推,直到比較完所有的文本框中的內(nèi)容,則變量x中的值就是所求的最小值。 [1]處用于控制比較的次數(shù),目的是從第二個文本框到最后一個文本框逐一與x的值比較,而最后一個文本框的下標為5,所以[1]處應填5。調(diào)用函數(shù)FindMin時,是用一個文本框中的內(nèi)容與當前所找到的最小值x相比較,所以第二個參數(shù)應該是x。[3]處是為了顯示最小值,根據(jù)前面的分析,這里應該顯示x的值。FindMin函數(shù)通過比較兩個形參的大小來決定函數(shù)的返回值,只有當x>=y或x>y時,返回y的值,否則返回x。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域?qū)I(yè)人士。