填空题 执行下面的程序，单击按钮Command1后，窗体上的第一行内容是 1，第三行内容是 2。
Private Sub Command1_Click()
Dim i As Integer, s As String, k As Integer
s="VISUAL"
k=Len(s)
For i=1 To k/2
Mid(s, i, k-2*(i-1))=Mid(s, k+1-i, 1)&Mid(s, i+1, k-2*i)&Mid(s, i, 1)
Print s
Next i
End Sub