📄 x5-2.aspx

📁 程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的

💻 ASPX

字号:

<TITLE>[习题6]一个web页面</TITLE>
		<SCRIPT Language="VB" RUNAT="SERVER" >     
		Sub Tri_Click(sender As Object, e As EventArgs)
			Dim tAngle As Double = Math.PI / 180 * Double.Parse(Angle.Text)
			Dim item As ListItem
			For Each item In TriAngle.Items
				IF item.Selected Then
					Select Case item.value
						case "Sin"
							Display.Text = "<BR> 运算结果：Sin( " & Angle.Text & ") = " & Math.Sin(tAngle)
						case "Cos"
							Display.Text = "<BR> 运算结果：Cos( " & Angle.Text & ") = " & 	Math.Cos(tAngle)
					End Select
				End IF
			Next
		End Sub	
		</Script >

		<BODY>
		请输入角度值：<BR>
		<FORM RUNAT="SERVER"> 
			<asp:TextBox id="Angle" runat=server/><P> 			
 			<asp:listbox id="TriAngle" SelectionMode="single" row=2 AutoPostBack=true OnSelectedIndexChanged="Tri_Click"			runat=server>
			<asp:listitem text="Sin" value="Sin" selected="false"/>
			<asp:listitem text="Cos" value="Cos" selected="false"/>
			</asp:listbox>
			<HR>
			<asp:label id="Display" forecolor="Blue" font-size="20pt" runat=server/>
		</FORM>
		</BODY>
		</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -