[填空題] 設(shè)有程序: Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer
2021-07-20
[填空題] 設(shè)有程序: Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【8】 =arrl(1) For i=1 To 8 If arrl(i)>Max Then 【9】 Next i Print "最大值是:" ; Max End Sub 以上程序的功能是,用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組,然后查找并輸出該數(shù)組中元素的最大值。請(qǐng)?zhí)羁铡?/p>正確答案:
[8]Max [9]Max=arrl(i)解析:[分析]: 當(dāng)定義變量Max以后,系統(tǒng)自動(dòng)給其賦初值為0。將數(shù)組第一個(gè)元素值賦值給Max,再將它與其他各數(shù)組元素逐個(gè)進(jìn)行比較。若某個(gè)元素值比Max大,就將其賦值給Max,從而保證Max中始終是最大的值。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。