Windows 脚本帮助(vbs+js) + VBScript 数组例子

 

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

你可能感兴趣的:(html,windows,IE,脚本,VBScript)