Question

在VB中怎么实现单击一次显示一个*符号单击两次显两个*依次累计。谢谢了。

Answer 1

'方法一使用循环过程：
Private Sub Form_Click() '点击窗口事件
Static a As Integer '静态变量
a = a + 1 'a累加一
For i = 1 To a '循环过程打印a个*
Print "*";
Next
Print '换行
End Sub
'方法二使用String函数：
Private Sub Form_Click() '点击窗口事件
Static a As Integer '静态变量
a = a + 1 'a累加一
Print String(a, "*") '窗口打印a个*符号
End Sub
'请参考采纳。

Answer 2

Dim s As String
Private Sub Command1_Click()
s = s & "*"
Print s
End Sub