自定义脚本

这里可以分享在 TeaScript 创建的一些有趣，实用，没啥帮助但也有一点用处，以及一些对教程有所帮助的脚本哦~

点击这里可以贡献自己的脚本实例。

或者在下面一行输入脚本名标题即可，然后点击下面的“新建脚本实例”即可添加上自己的脚本实例。

贡献此页面应遵循以下规则：

这一页是由所有用户贡献，所以不要篡改里面的任何内容！否则按恶意篡改对该用户进行惩罚！

另外其他用户贡献的内容本人也不要随便编辑。

一些语法演示：

<syntaxhighlight lang="vbscript" line="1">
xxx
</syntaxhighlight>
创建一个语法高亮框。

Array Returns

通过一小段程序，对数组通过sysshowinput()逐次赋值。（当定义多少个数组下标，就执行多少次赋值。）

注意：sysshowinput()只能复制到 String 字符串变量上。

dim a as string = sysshowinput("Input the array dims.","Array Returns")
call redim(0,arr,cdbl(a)-1)
dim b as integer
for b = 0 to cdbl(a)-1 step 1
	dim c as string = sysshowinput("Input the values."&chr(13)&"Current:arr("&b&")","Array Returns")
	array(arr(b)) = cdbl(c)
next
dim d as string = "Arrays:"
dim e as double
dim f as double
for b = 0 to cdbl(a)-1 step 1
	d = d & chr(13) & "arr(" & b & ") = " & array(arr(b))
	e = e + array(arr(b)) 
	f = f + array(arr(b))
next
f = f / cdbl(a)
d = d & chr(13) & chr(13) & "Sum: " & e & chr(13) & "Average: " & f
call sysshowmsg(d,0,"Array Returns")