<%@ 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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>条件分支结构的两种表现方式</title>
<script language="vb" runat="server">
private sub btn_click(sender as object,e as eventargs)
dim salay as double
salay=cdbl(txtsalay.text)
select case salay
case 0 to 100 '这里常规来说应该是写成 salay<=100 ,当然也可以是大于或者其他的判断
lbl1.text="da yu 1 ,xiao yu 100"
case 101 to 1000 '这里常规来说应该是写成 salay<=1000 ,当然也可以是大于或者其他的判断
lbl1.text="da yu 100,xiao yu 1000"
case else
lbl1.text="bu zd "
end select
end sub
</script>
<script language="vb" runat="server">
public sub btn2_click(sender as object,e as eventargs)
dim salay as double
salay=cdbl(txtsalay.text)
if salay<=100 then
lbl1.text="大于1，小于100"
elseif salay<=1000 then
lbl1.text="大于100，小于1000"
else
lbl1.text="不知道了啦！"
end if
end sub
</script>
</head>
<body>
<form runat="server">
<asp:TextBox runat="server" ID="txtsalay"/>
<asp:Button Text="show" OnClick="btn_click" runat="server"/>
<asp:Button Text="第二个按钮" OnClick="btn2_click" runat="server"/> <hr><p>看结果是：
<asp:Label ID="lbl1" runat="server"/>
</form>
</body>
</html>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>条件分支结构的两种表现方式</title>
<script language="vb" runat="server">
private sub btn_click(sender as object,e as eventargs)
dim salay as double
salay=cdbl(txtsalay.text)
select case salay
case 0 to 100 '这里常规来说应该是写成 salay<=100 ,当然也可以是大于或者其他的判断
lbl1.text="da yu 1 ,xiao yu 100"
case 101 to 1000 '这里常规来说应该是写成 salay<=1000 ,当然也可以是大于或者其他的判断
lbl1.text="da yu 100,xiao yu 1000"
case else
lbl1.text="bu zd "
end select
end sub
</script>
<script language="vb" runat="server">
public sub btn2_click(sender as object,e as eventargs)
dim salay as double
salay=cdbl(txtsalay.text)
if salay<=100 then
lbl1.text="大于1，小于100"
elseif salay<=1000 then
lbl1.text="大于100，小于1000"
else
lbl1.text="不知道了啦！"
end if
end sub
</script>
</head>
<body>
<form runat="server">
<asp:TextBox runat="server" ID="txtsalay"/>
<asp:Button Text="show" OnClick="btn_click" runat="server"/>
<asp:Button Text="第二个按钮" OnClick="btn2_click" runat="server"/> <hr><p>看结果是：
<asp:Label ID="lbl1" runat="server"/>
</form>
</body>
</html>