03_02.asp

来自「ASPTest 网络基础网页设计」· ASP 代码 · 共 20 行

ASP
20
字号
<html>
<head>
<title>动态数组应用实例</title>
</head>
<body>
<% 
ReDim Array1(10)
Dim i '设置循环变量
For i = 0 To 10
  Array1(i) = 100
Next
ReDim Preserve Array1(5)
Redim Preserve Array1(10)
For i = 0 To 10
  Response.Write "Array1("&CStr(i)&")="&CStr(Array1(i))&"<br>"
Next
%>
</body>
</html>

⌨️ 快捷键说明

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