'画一棵松树
Private SubDraw(ByVal Star%, ByVal Line%)
Dim i As Integer
For i =1 To Line
PrintTab(Star - i);String(i,"▲")
Next i
End Sub
Private SubCommand2_Click()
Dim i As Integer
For i =1 To 3CallDraw(10,2+ i)
Next i
For i =1 To 5PrintTab(8);"■■"
Next i
End Sub