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