第一个vbs:绘制心形

lewes360

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

1. 
   
2. 'code by 刘易斯
   
3. wscript.echo printer(" ","*","113111111112212111313111513",7)
   
4. 
   
5. function printer(a1,a2,b,c)'一个输出字符画的函数
   
6. for i = 1 to len(b)
   
7. b1 = Mid(b,i,1)
   
8. for j = 1 to b1
   
9.      s=s&a1
   
10.      n=n+1
    
11.      if n=c then
    
12.      s=s&chr(10)
    
13.      n=0
    
14.      end if
    
15. next
    
16. a3=a1
    
17. a1=a2
    
18. a2=a3
    
19. next
    
20. 
    
21. printer=s
    
22. end function

复制代码

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

lewes360

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