<%@ Page Language="vb" Debug="true" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>利用textbox接收两个数，列出一个数组，并做简单的运算</title>
<script language="vb" runat="server">
sub btn_click(sender as object,e as eventargs)
dim boxa,boxb as double,i as integer
boxa=cdbl(boxaa.text)
boxb=cdbl(boxbb.text)
response.Write("您输入两数上下组成的数组是：<br>")
for i=boxa to boxb
response.Write( i &"<br>")
next i
response.Write("<hr><p>")
boxa\=boxa
boxb*=boxb
response.Write("boxa\boxa=" & boxa & "<p>boxb*boxb=" & boxb)
end sub
</script>
<head>
<body>
<form runat="server">
<asp:TextBox runat="server" ID="boxaa"/>
<asp:TextBox runat="server" ID="boxbb"/>
<asp:Button Text="show" OnClick="btn_click" runat="server"/>
</form>
</body>
</html>