x5-1.aspx

来自「程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus」· ASPX 代码 · 共 24 行

ASPX
24 行
字号 
<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>

x5-1.aspx - 源码说明

本页面展示了「程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的」中的 x5-1.aspx 源码文件，采用 ASPX 编程语言编写，共 24 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与EditPlus相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?