VBScript 例子：
数组
| Option Explicit
Dim arr(3),i
For i= 0 To 3 arr(i) = InputBox (" 输入第 "&i+1&" 个数 ","") ' 输入 4 个数 Next
MsgBox " 您输入的数组是： " & Join (arr," ") ' 输出数组 用 join 函数 |
输入一个数组并输出
| Option Explicit
Dim arr() ' 或 ReDim arr(1) 代替
ReDim arr(1) arr(0)=0 arr(1)=1
ReDim arr(2) arr(2)=2 Call test (1) ' 扩充数组中的元素 , 发现原来的值没有了
ReDim Preserve arr(2) arr(0)=0 arr(1)=1 Call test (2) ' 用 preserve 关键字保存 数组中的元素
ReDim arr(1) ' 减小数组的长度 ，发现所有的元素都没了 Call test (3)
ReDim arr(2) ' 还原到 第2 步 arr(0)=0 arr(1)=1 arr(2)=2 Call test (4)21
ReDim Preserve arr(1)' 用 preserve 关键字保存 数组中的元素 Call test (5)
Sub test(no) Dim index,i,tmp tmp = "" index =UBound (arr) ' 获取数组的上界 For i = 0 To index tmp = tmp & arr(i) & " " Next MsgBox " 第"&no&" 步 的数组是 ："& tmp End Sub |
这个例子设计的动态设定:
用dim arr () 来设定动态的数组
在调整数组长度的时候，要注意保持数组中原有的元素（用关键字preserve ）, 否则将会被清空
VBScript 页面的简单样例
要使用 Microsoft® Internet Explorer ，创建 html 文件
| <HTML> <HEAD><TITLE> 简单的首页</TITLE> <SCRIPT LANGUAGE="VBScript"> <!-- Sub Button1_OnClick MsgBox "Hello, world!" End Sub --> </SCRIPT> </HEAD> <BODY> <FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE=" 单击此处"></FORM> </BODY> </HTML>
|
这个代码的过程是， Ie 在加载页面的时候，识别出 vbscript 代码，并保存 , 当点击事件发生时， ie 监听到 Button1_OnClick 这个事件, 而后调用对应的sub 过程。
用另一种方法
| <HTML> <HEAD><TITLE> 简单的首页</TITLE> <SCRIPT LANGUAGE="VBScript" > </SCRIPT> </HEAD> <BODY> <FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE=" 单击此处" OnClick='MsgBox " Hello, world!"' ></FORM> </BODY> </HTML> |
还可以：
| <HTML> <HEAD><TITLE> 简单的首页</TITLE> <SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Button1"> <!-- MsgBox "Hellow World !" --> </SCRIPT> </HEAD> <BODY> <FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE=" 单击此处"
></FORM> </BODY> </HTML> |
Option Explicit 语句显式声明所有变量
1011
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
