vb6
sub print(N as integer,c as string)
for i = 1 to N
print c
next
end sub
这个是每打印一次占一行
如果你要打印在一起的话
sub print(N as integer,c as string)
dim i as integer,s as string
s=""
for i = 1 to N
s=S & c
next
print s
end sub
sub print(N as integer,c as char)
for i as integer = 1 to N
Console.WriteLine(c)
next i
end sub
假设给定you
input "n=";n
i=1
Do
print "you"
i=i+1
loop until i>n