Question

如何在vb上使用“*”绘制出这个正方形图案?

Answer 1

Private Sub Form_Click() '点击窗体运行
Dim i As Integer, j As Integer
For i = 1 To 5
    For j = 1 To 5
        If i = 1 Or j = 1 Or i = 5 Or j = 5 Then
            Print "*";
        Else
            Print " ";
        End If
    Next j
    Print
Next i
End Sub

或者直接这样：

Private Sub Form_Click() '点击窗体运行
Print "*****"
Print "*   *"
Print "*   *"
Print "*   *"
Print "*****"
End Sub