Private Sub Form_Click() 我的程序是这样的 Dim a, b As Integer For a = 1 To 5 For b = 1 To 3 Print "*"Next b Next a End Sub 打印出来是竖的,所以用chr(13)好象不对, 我想打印出来的效果是: ***** ***** *****
print"*" 后应该加些什么参数?
Private Sub Form_Click() Dim i As Integer
For i = 1 To 3 Print String(5, "*") '若每行之间要加空行则在后面加" & vbcrlf" Next End Sub
用PRINT太死了
我的程序是这样的
Dim a, b As Integer
For a = 1 To 5
For b = 1 To 3
Print "*"Next b
Next a
End Sub
打印出来是竖的,所以用chr(13)好象不对,
我想打印出来的效果是:
*****
*****
*****
Dim i As Integer
For i = 1 To 3
Print String(5, "*") '若每行之间要加空行则在后面加" & vbcrlf"
Next
End Sub