[填空題] 在窗體上畫一個命令按鈕，然后編寫如下事件過程： 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)*2Next i Print k End Sub 程序運行后，單擊命令按鈕，輸出結果是 【13】 。

33

[評析] 觀察程序，通過第一個以i為循環(huán)變量的循環(huán)，給數組a()進行賦值，數組a()中的各個元素的值就是其下標值。通過第二個以i為循環(huán)變量的循環(huán)，給數組p()進行賦值： 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通過第三個以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最終輸出結果是：33。