“旋轉(zhuǎn)數(shù)組”過(guò)程是指將數(shù)組中的元素向右移動(dòng)k個(gè)位置，其中k是非負(fù)數(shù)。以數(shù)組a向右移動(dòng)3個(gè)位置為例，其移動(dòng)過(guò)程有如下兩種方法：
原始數(shù)據(jù)：

a（1）	a（2）	a（3）	a（4）
1	2	3	4

方法一：
①向右旋轉(zhuǎn)1步：

a（1）	a（2）	a（3）	a（4）
4	1	2	3

②向右旋轉(zhuǎn)2步：

a（1）	a（2）	a（3）	a（4）
3	4	1	2

③向右旋轉(zhuǎn)3步：

a（1）	a（2）	a（3）	a（4）
2	3	4	1

方法二：
①將a（1）值放至旋轉(zhuǎn)3個(gè)位置后位置a（4）：

a（1）	a（2）	a（3）	a（4）
1	2	3	1

②將原a（4）值放至旋轉(zhuǎn)3個(gè)位置后位置a（3）：

a（1）	a（2）	a（3）	a（4）
1	2	4	1

③將原a（3）值放至旋轉(zhuǎn)3個(gè)位置后位置a（2）：

a（1）	a（2）	a（3）	a（4）
1	3	4	1

④將原a（2）值放至旋轉(zhuǎn)3個(gè)位置后位置a（1）：

a（1）	a（2）	a（3）	a（4）
2	3	4	1

有n個(gè)數(shù)存儲(chǔ)在數(shù)組a中，給定一個(gè)整數(shù)p（1≤p≤n），將數(shù)組a的前p個(gè)數(shù)與后n-p個(gè)數(shù)分別向右旋轉(zhuǎn)k次。例如數(shù)組a的各個(gè)數(shù)值分別是1，2，3，4，5，6，7，當(dāng)p=4，k=1時(shí)，旋轉(zhuǎn)后的結(jié)果為4，1，2，3，7，5，6．小明為此編寫(xiě)了VB程序，功能如下：在文本框Text2、Text3中依次輸入p和k的值，單擊“旋轉(zhuǎn)數(shù)組”按鈕Command1后，數(shù)組旋轉(zhuǎn)后結(jié)果顯示在Text4中。程序運(yùn)行界面如圖所示，請(qǐng)回答下列問(wèn)題：
（1）當(dāng)文本框Text3中輸入內(nèi)容修改為3時(shí)，執(zhí)行該程序后，a（3）的值為

46

46

。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（20）As Integer
Const n=20
Private Sub Form_Load （　?。?br />'隨機(jī)產(chǎn)生n個(gè)[1，100]之間的隨機(jī)整數(shù)，依次存儲(chǔ)到a（1）、a（2）、…a（n）中，并在文本框Text1顯示，代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,p As Integer,k As Integer,cnt As Integer,c As Integer,t As Integer
p=Val（Text2．Text）
k=Val（Text3．Text）
i=1：start=1：c=a（i）：cnt=1
Do While cnt＜=p'方法二
i=   ①
t=a（i）
a（i）=c
If     ② Then
start=start+1
i=i+1
c=a（i）
Else
c=t
End If
cnt=cnt+1
Loop
For i=1 To k'方法一
temp=a（n）
For j=   ③
a（j）=a（j-1）
Next j
a（p+1）=temp
Next i
For i=1 To n
s=s+Str（a（i））
Next i
Text4．Text=s
End Sub