[原创] 第一个vbs:绘制心形

lewes360

第一个真正自己写的vbs，刚学3天。。。。见笑见笑

'code by 刘易斯
wscript.echo printer(" ","*","113111111112212111313111513",7)

function printer(a1,a2,b,c)'一个输出字符画的函数
for i = 1 to len(b)
b1 = Mid(b,i,1)
 for j = 1 to b1
     s=s&a1
     n=n+1
     if n=c then 
     s=s&chr(10)
     n=0
     end if
 next
a3=a1
a1=a2
a2=a3
next

printer=s
end function
复制代码

另外求帮我优化下代码。。提出改进，帮助一下小弟成长。谢谢

lewes360

干嘛没回复！！
明白了。。。万恶的验证码。。。。