📄 qqexparray.html
字号:
<html>
<head>
<title>千千VB站 函数方法</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body background="picbkgd.gif" tppabs="picbkgd.gif">
<marquee><b><blink>指定数组</blink></b></marquee>
<hr>
●我们有一些相关的资料要传给某变量，使其成为一个数组时，我们使用Array。用法：变量=Array(资料1，资料2，......，资料n)
<p>●适用于VB、VBA、VBScript。<br>
●用法：未定义变量 = Array(资料1,资料2,...,资料n)
<hr>
○VB与VBA：
<dl>
Private Sub Command1_Click()
<dd>MyVal = Array(0, 1, 2, 3, 4, 5, 6, 7, 8)
<dl>
For I = 0 To 8
<dd>Print MyVal(I)
</dl>
Next
</dl>
End Sub
<p>
<dl>
Private Sub Command1_Click()
<dd>Dim Total As Integer
<dd>MyVal = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
<dl>
For I = 0 To 9
<dd>Total = Total + MyVal(I)
</dl>
Next
</dl>
End Sub
<hr>
○vbScript：
<dl>
<script language="vbscript">
<dd>Dim MyAry,n
<dd>MyAry = Array(1,2,3,4,5,6,7,8,9)
<dd>
<dl>
for n = 2 to 6
<dd>document.write MyAry(n)
</dl>
next
</dl>
</script>
<p>
<hr>
<center><a href="exp.html" tppabs="exp.html">[回主页]</a></center><br>
</body>
</html>
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -