VB鼠标单击事件

来源：百度知道 编辑：UC知道 时间：2024/05/22 18:01:13
通过commmond按钮单击事件，打印
＃＃＃＃＃＃＃
＃＃＃＃＃＃
＃＃＃＃＃
＃＃＃＃
＃＃＃

Private Sub Command1_Click()
Print "＃＃＃＃＃＃＃"
Print "＃＃＃＃＃＃"
Print "＃＃＃＃＃"
Print "＃＃＃＃"
Print "＃＃＃"
End Sub

Private Sub Command1_Click()
For i = 7 To 3 Step -1
Print String(i, "#")
Next
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

For i = 1 To 5
For j = 1 To 8 - i
Print "＃";
Next j
Print
Next i

End Sub