[填空題] 在窗體上畫(huà)一個(gè)名稱(chēng)為command 1的命令按鈕,然后編寫(xiě)如下程序: Option Base 1 Private Sub Colilinan
[填空題] 在窗體上畫(huà)一個(gè)名稱(chēng)為command 1的命令按鈕,然后編寫(xiě)如下程序: Option Base 1 Private Sub Colilinand1 Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next call Swap(a) For i = 1 To 10Print a(i); Next End Sub Sub Swap(b() As Integer) n = 【6】 For i = 1 To n/2 t = b(i) b(i) = b(n) b(n) = t 【7】 Next End Sub 上述程序的功能是,通過(guò)調(diào)用過(guò)程Swap,調(diào)換數(shù)組中數(shù)值的存放位置,即a(1)與a(10)的值互換,a(2)與a(9)的值互換,……,a(5)與a(6)的值互換。請(qǐng)?zhí)羁铡?/p>正確答案:
10 n=n-1
參考解析:Option Base語(yǔ)句,在模塊級(jí)別中使用,用宋聲明數(shù)組下標(biāo)的起始值(缺省值為0)。子過(guò)程利用語(yǔ)句加以調(diào)用,使子過(guò)程成為一個(gè)獨(dú)立的語(yǔ)句,其形式為:子過(guò)程名[參數(shù)列表]或 Call子過(guò)程名[參數(shù)列表]。題目要求將數(shù)組中的10個(gè)數(shù)逆序存放,也就是首尾兩兩交換,循環(huán)次數(shù)應(yīng)為5次,在交換了a(1)與a(10),應(yīng)將n的值減1,再將a(2)與a(9)進(jìn)行交換,依此類(lèi)推。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。