...这样..有点麻烦了吧..
Dim i As Integer
For i = 1 To 4
If i = 1 Or i = 4 Then
Print "****"
Else
Print "* *"
End If
Next
Dim i As Integer
For i = 1 To 4
If i = 1 Or i = 4 Then
Print "****"
Else
Print "* *"
End If
Next

我的msn: myfend@