VB 中的PRINT 问题

来源：百度知道 编辑：UC知道 时间：2024/05/30 09:20:28
我的代码如下
Private Sub Command1_Click()
Print
For i = 0 To 4
Print Tab(15 - 2 * i); String(2 * i + 1, "★"); Space(20 - 4 * i); String(2 * i + 1, "★")
Next i
End Sub
显示如下图 按2下就显示成如下图所示，怎么才能使我不管按多少下显示，都只显示上面的2个图形 而不会显示多余的图形。？

这样就可以了：
Private Sub Command1_Click()

Form1.Cls

Print
For i = 0 To 4
Print Tab(15 - 2 * i); String(2 * i + 1, "★"); Space(20 - 4 * i); String(2 * i + 1, "★")
Next i
End Sub
加入这样一条语句就可以了，表示清除原来输出的内容

在Private Sub Command1_Click() 下面加上
form1.cls
这是清空窗体显示的函数

Private Sub Command1_Click()
Print
Static a
If a = 0 Then
For i = 0 To 4
Print Tab(15 - 2 * i); String(2 * i + 1, "★"); Space(20 - 4 * i); String(2 * i + 1, "★")
Next i
a = a + 1
End If
If a <> 0 Then a = a + 1
End Sub
用一个静态变量。。。。。
只是我的意见

Private Sub Command1_Click()
Cls
Print
For i = 0 To 4
Print Tab(15 - 2 * i); String(2 * i + 1, "★"); Space(20 - 4 * i); String(2 * i + 1, "★")
Next i
End Sub

Private Sub Command1_Click()
Cls '加上这句就可以了.
Print
For i = 0 To 4
P