[填空題] 在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：

Private Sub Commandl_Click()

Dim a (1 To 10)

Dim p(1 To 3)

k=5

For i=1 To 10

a(i)=i

Nexti

Fori=1 To 3

p(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

Print k

End Sub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 【13】 。

33

[評(píng)析] 觀察程序，通過(guò)第一個(gè)以i為循環(huán)變量的循環(huán)，給數(shù)組a()進(jìn)行賦值，數(shù)組a()中的各個(gè)元素的值就是其下標(biāo)值。通過(guò)第二個(gè)以i為循環(huán)變量的循環(huán)，給數(shù)組p()進(jìn)行賦值： i=1,(i)=a(i*i),p(1)=a(1)=1 i=2,p(i)=a(i*i),p(2)=a(4)=4 i=3,p(i)=a(i*i),p(3)=a(9)=9通過(guò)第三個(gè)以i為循環(huán)變量的循環(huán)，得到變量k的值； i=1,k=k+p(i)*2=5+p(i)*2=7 i=2,k=k+p(i)*2=7+p(2)*2=15 i=3,k=k+p(i)*2=15+p(3)*2=33最終輸出結(jié)果是：33。