default.aspx.vb

来自「對c#初學者參考..為課題asp.net 2.0教材代碼」· VB 代码 · 共 28 行

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Me.Load

        Dim scott As New Person("Scott", "Hanselman")
        Dim bill As New Person("Bill", "Evjen")
        Dim srini As New Person("Srinivasa", "Sivakumar")

        Dim people() As Person = {bill, scott, srini}

        Dim indexOfBill As Integer = Array.IndexOf(people, bill)
        Response.Write("Bill is at " & indexOfBill & "<BR/>")

        Dim indexOfScott As Integer = Array.IndexOf(people, scott)
        Response.Write("Scott is at " & indexOfScott & "<BR/>")

        Dim scott2 As New Person("Scott", "Hanselman")
        Dim indexOfScott2 As Integer = Array.IndexOf(people, scott2)
        Response.Write("Scott #2 is at " & indexOfScott2 & "<BR/>")

        Dim indexOfEquivalentScott As Integer = Array.BinarySearch(people, scott2)
        Response.Write("An Equivalent Scott is at " & indexOfEquivalentScott & "<BR/>")
    End Sub
End Class