设计一个VBScript程序 要求显示1000以内能被2且同时能被3整除的数

<script type="text/vbscript">
dim temp
temp=""
for i = 1 to 1000
if i mod 2 =0 and i mod 3 = 0 then temp=temp & i & ","
next
document.write(temp)
</script>

什么叫VBscript,什么程序用的