[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] 第一个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
复制代码
另外求帮我优化下代码。。提出改进,帮助一下小弟成长。谢谢

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

TOP

返回列表