第一个真正自己写的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
复制代码 另外求帮我优化下代码。。提出改进,帮助一下小弟成长。谢谢 |