ienumerator_simple.aspx

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

<%@Page Language="VB"%>

<h3>Simple</h3>
<%

Dim authors As string()  
authors = New string() { "Richard","Alex", _
                         "Dave","Rob","Brian","Karli"}

Dim e As IEnumerator
e = authors.GetEnumerator()

Do While e.MoveNext() = True
  Response.Write("<P>" & e.Current )
Loop


Dim author As string

For Each author In authors
  Response.Write("<P>" & author)
Next

%>