[填空題] 在窗體上畫一個(gè)名稱為command 1的命令按鈕,然后編寫如下程序:Option Base 1Private Sub Colilinand1 Cli
[填空題] 在窗體上畫一個(gè)名稱為command 1的命令按鈕,然后編寫如下程序:
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 10
Print 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)行交換,依此類推。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。