VB编写一个程序

Private Sub Command1_Click()
Dim a As String
Dim h As Long
Dim i As Long
a = "*"
For h = 1 To 10
a = a + "*"
Next
For i = 1 To 3
Print a
Next
End Sub

for i=1 to 3
for j=1 to 10
print "*"
next j
next i

Dim i as integer
Dim j as integer//先定义两个整型变量用于循环

for i=0 to 2
for j=0 to 9
print "***"
next j
next i

for i=1 to 3
for j=1 to 10
print "*";
next
print
next