[填空題] 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

Option Base 1

Private Sub Command1_Click()

Dim a(10)As Integer

For i=1 To 10

a(i)=i

Next

Call swap (______)

For i=1 To 10

Print a(i)

Next

End Sub

Sub swap(b()As Integer)

n=______

For i=1 To n/2

t=b(i)

b(i)=b(n)

b(n)=t

______

Next

End Sub

上述程序的功能是，通過(guò)調(diào)用過(guò)程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換。請(qǐng)?zhí)羁铡?/p>正確答案：

a() UBound(b) n＝n-1

結(jié)合下面的程序可知函數(shù)swap的形式參數(shù)是一個(gè)數(shù)組，結(jié)合題目易知應(yīng)該是a數(shù)組。 UBound(arrayname[,dimension])函數(shù)是返回指定數(shù)組維數(shù)的最大可用下標(biāo)。由于要將整個(gè)數(shù)組的元素進(jìn)行諸如a(1)和a(10)的對(duì)換，故必須要得其最大下標(biāo)。 For循環(huán)就是將數(shù)組中的元素進(jìn)行對(duì)換，由上知n中放的是數(shù)組的最大下標(biāo)，即最后一個(gè)元素的下標(biāo)，于是For循環(huán)中的循環(huán)變量i從1開(kāi)始到n/2，利用中間變量t，將b(i)與b(n)進(jìn)行對(duì)換，由于是對(duì)應(yīng)對(duì)換的，故每對(duì)換一次n也應(yīng)該向前推進(jìn)一位，即n=n-1。