8.下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Textl输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
Private Sub MoveRight（x（）As Integer）
Dim i As Integer
Dim j As Integer
Dim k As Integer
i=UBound（x）
j=x（i）
For k=i To【9】Step-1
【10】
Next k
x（LBound（x））=j
End Sub
Private Sub Command1_Click（）
Dim a（10） As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i=0 To 10
a（i）=i
Next i
j=Val（Text1.Text）
k=0
Do
k=k+1
Call MoveRight（a）
Loop Until k=j
For i=0 To 10
Print a（i）；
Next i
End Sub
9.下面程序是用来打印九九乘法表的，请填空。
Private Sub Form_Click（）
Dim flag As Integer,i As Integer,j As Integer,Str1 ＄
Str1=“”
For i=1 To 9
【11】
For j=1 To 9
If 【12】Then
str1=str1+Str＄（j）+“*”+Str＄（i）+“=”+Str＄（Val（i*j））
Else
str1=str1 & Chr（13）
Exit For
End If
Next j
Next i
Print str1
End Sub