<Html>
<Form Runat="Server">
<ASP:Button Id="Button1" Text="确定" OnClick="Button1_Click"
Runat="Server"/>
</Form>
<Script Language="VB" Runat="Server">
Sub Button1_Click(Sender As Object,e As EventArgs)
Dim I As Short
Dim J() As Short={0,1,2}
For I = 0 To 2
Response.Write(J(I).ToString() & "<br>")
Next
End Sub
</Script>
</Html>
在开启EX10.aspx 后为了看的更清楚，以下的画面关掉Solution Explorer 窗口。
