📄 ch12-06-02.aspx

📁 深入浅出ASP.NET程序设计-源代码书籍语言：简体中文书籍类型：程序设计授权方式：免费软件书籍大小： 627 KB

💻 ASPX

字号:

<Html>
<Head>
<Title>Ch12-06-02.aspx System.Array类</Title>
</Head>
<Body>
<H2>数组的检索、排序、反转和复制</H2>
<%
' 声明一维数组
Dim NowVer() As String = {"VB.NET", "C#", "JScript.NET", ".NET" }
Dim PreVer() As String = {"VB", "C", "JavaScript", "C++", "VBScript" }
Dim Posi, I As Integer
' 显示原始数组元素
Response.Write("NowVer数组的原始元素为：")
For I = NowVer.GetLowerBound(0) To NowVer.GetUpperBound(0)
    Response.Write("[" & I & "：" & NowVer(I) & "] ")
Next
Response.Write("<BR>")
Response.Write("PreVer数组的原始元素为：")
For I = PreVer.GetLowerBound(0) To PreVer.GetUpperBound(0)
    Response.Write("[" & I & "：" & PreVer(I) & "] ")
Next
Response.Write("<BR>")
' 数组的检索
Posi = Array.IndexOf(NowVer, "VB.NET")
Response.Write("IndexOf(NowVer, ""VB.NET"")索引值为：" & Posi & "<BR>")
Posi = Array.LastIndexOf(NowVer, "C#")
Response.Write("LastIndexOf(NowVer, ""C#"")索引值为：" & Posi & "<BR>")
' 数组的排序
Array.Sort(NowVer)
Response.Write("NowVer数组排序之后的结果为：")
For I = NowVer.GetLowerBound(0) To NowVer.GetUpperBound(0)
   Response.Write("[" & I & ":" & NowVer(I) & "] ") 
Next
Response.Write("<BR>")
' 二元检索法
Posi = Array.BinarySearch(NowVer, ".NET")
If Posi < 0 Then
   Response.Write("没有找到[.NET]数组元素<BR>")
Else
   Response.Write("数组元素[.NET]的索引值为：" & Posi & "<BR>")
End If
' 数组反转
Array.Reverse(NowVer)
Response.Write("NowVer数组反转之后的结果为：")
 For I = NowVer.GetLowerBound(0) To NowVer.GetUpperBound(0)
    Response.Write("[" & I & ":" & NowVer(I) & "]") 
Next
Response.Write("<BR>")
' 复制数组
Array.Copy(NowVer, 0, PreVer, 0 , 2)
Response.Write("将元素NowVer数组复制到PreVer数组")
For I = PreVer.GetLowerBound(0) To PreVer.GetUpperBound(0)
    Response.Write("[" & I & ":" & PreVer(I) & "] ") 
Next
Response.Write("<BR>")
%>
</Body>
</Html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -