📄 ch06-01-01.aspx

📁 深入浅出ASP.NET程序设计-源代码书籍语言：简体中文书籍类型：程序设计授权方式：免费软件书籍大小： 627 KB

💻 ASPX

字号:

<%@ Page Language="VB" %>
<Html>
<Head>
<Title>Ch06-01-01.aspx 子程序、函数范例</Title>
 <Script Language="VB" Runat = "Server">
	' 这是从 1 连加到 N 的程序
	Sub Count2N(ByVal intA As Integer)
		Dim Totals As Integer = 0, I As Integer
		For I = 1 to intA 
			Totals += I 
		Next
		Response.Write("从1加到" & intA & "的总和为" & Totals & "<BR>")
	End Sub
	
	Function Add2N(ByVal intA As Integer)
		Dim Totals As Integer = 0, I As Integer
		For I = 1 to intA 
			Totals += I 
		Next
		Return Totals	' 返回加总的结果
	End Function 
</Script>
</Head>
<Body>
<%
Dim Totals As Integer, Limits As Integer = 50
' 调用 Count2N 程序
Call Count2N(20)
Totals = Add2N(Limits)
Response.Write("从 1 加到 " & Limits & " 的总和为 " & Totals & "<BR>")
%>
</Body>
</Html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -