icomparer_simple.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 30 行

<%@Page Language="VB"%>

<h3>IComparer</h3>

<%
Dim s1 As String = "richard"
Dim s2 As String = "anderson"

Dim c1 As IComparable 

c1 = CType(s1, IComparable)

if c1.CompareTo(s2) <> 0
  Response.Write("strings are different")
End If

if c1.CompareTo(s2) < 0
  Response.Write("<br/>string 1 is less than string 2")
End If

if c1.CompareTo(s2) > 0
  Response.Write("<br/>string 1 is greater than string 2")
End If




%>