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 语句显式声明所有变量