📄 x5-1.aspx

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

💻 ASPX

字号:

<TITLE>[习题4]分析程序运行结果</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)
			IF rSin.Checked Then 
				Display.Text = "<BR> 运算结果：Sin( " & Angle.Text & ") = " & Math.Sin(tAngle)
			End IF
			IF rCos.Checked Then 
				Display.Text = "<BR> 运算结果：Cos( " & Angle.Text & ") = " & Math.Cos(tAngle)
			End IF
		End Sub	
		</Script >

		<BODY>
		请输入角度值：<BR>
		<FORM RUNAT="SERVER"> 
			<asp:TextBox id="Angle" runat=server/><P>
 			<asp:radiobutton id="rSin" Text="Sin" groupname="cal" checked=true AutoPostBack=true OnCheckedChanged="Tri_Click"				runat=server/><BR>
 			<asp:radiobutton id="rCos" Text="Cos" groupname="cal" checked=false AutoPostBack=true OnCheckedChanged="Tri_Click"			runat=server/><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 + -