web32.html

来自「javascript 的一些简单例子 主要面对初学者」· HTML 代码 · 共 44 行

HTML
44
字号
<html>
<head>
</head>
<body>
<script language="VBScript">
Dim d
Set d=CreateObject("Scripting.Dictionary")
d.Add"a","chicago"
d.Add"b","new york"
item_count=d.Count
MsgBox item_count
myitem=d.item("a")
MsgBox myitem
d.item("b")="austin"
d.key("a")="city1"
msg="key does not exist"
If d.exists("b")Then msg="key exists"
MsgBox(msg)
a=d.items
For i=0 To d.count-1
s=s+a(i)+vbnewline
Next
MsgBox s
b=d.keys
For i=0 To d.count-1
s=s+b(i)+vbnewline
Next 
MsgBox s
d.Remove("b")
e=d.items
For i=0 To d.count-1
s=s+e(i)
next
MsgBox s
Dim f
d.RemoveAll()
f=d.items
For i=0 To d.count-1
g=g+d(i)
Next 
MsgBox f
</script>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?