[填空題] 設有如下程序,查找并輸出該數組中的最小值,請在空白處填上合適的代碼,將程序補充完整。 Option Base 1 Private Sub Comma
2021-07-20
[填空題] 設有如下程序,查找并輸出該數組中的最小值,請在空白處填上合適的代碼,將程序補充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i AS Integer arr1=Array(12,435,76,-24,78,54,866,43) Min=arr1(1) For i=2 To 8 If arr1(i)<Min Then______ Next i Print "最小值是:"; Min End Sub
正確答案:Min=arrl(i)
參考解析:題目要求輸出數組中的最小值,分析程序可知,本程序求數組最小值的算法是,假設最小的值是第一個數組元素,并把它存在Min變量中,然后從數組的第二個元素開始逐個與Min變量對比,如果有比Min更小的數,則賦值給Min,這樣對比到數組最后一個元素時,就能找到最小的元素,且它存儲在Min變量中,因此最后只要輸出Min變量值即可。
詞條內容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域專業(yè)人士。