Board logo

标题: [原创] 第一个vbs:绘制心形 [打印本页]

作者: lewes360    时间: 2012-8-9 17:13     标题: 第一个vbs:绘制心形

第一个真正自己写的vbs,刚学3天。。。。见笑见笑
  1. 'code by 刘易斯
  2. wscript.echo printer(" ","*","113111111112212111313111513",7)
  3. function printer(a1,a2,b,c)'一个输出字符画的函数
  4. for i = 1 to len(b)
  5. b1 = Mid(b,i,1)
  6. for j = 1 to b1
  7.      s=s&a1
  8.      n=n+1
  9.      if n=c then
  10.      s=s&chr(10)
  11.      n=0
  12.      end if
  13. next
  14. a3=a1
  15. a1=a2
  16. a2=a3
  17. next
  18. printer=s
  19. end function
复制代码
另外求帮我优化下代码。。提出改进,帮助一下小弟成长。谢谢
作者: lewes360    时间: 2012-8-13 10:56

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2