ch06-02-03.aspx

来自「这是一个asp.net的全文教程.里面还有数据库的数据.对初学者有很大的帮助」· ASPX 代码 · 共 37 行

ASPX
37
字号
<%@ Page Language="VB" %>
<Html>
<Head>
<Title>Ch06-02-03.aspx Function函数的输出值</Title>
<Script Language="VB" Runat = "Server">
	' 使用Retun命令输出Function函数的运算结果
	Function ReturnVar(ByVal intA As Integer)
		Dim Totals As Integer = 0, I As Integer
		For I = 1 to intA 
			Totals += I 
		Next
		Return Totals	' 输出加总的结果
	End Function
	' 使用Function函数的名称输出结果
	Function Add2N(ByVal intA As Integer) As Integer
		Dim I As Integer
		For I = 1 to intA
			Add2N += I 
		Next
		' 不需要使用Retun命令
	End Function
</Script>
</Head>
<Body>
<%
Dim intA As Integer = 20
intA = ReturnVar(intA)
Response.Write("使用Return输出Function函数的运算结果<BR>")
Response.Write("Function函数的输出值为:" & intA & "<P>")
' 在这里使用Function函数的输出值重新指定intA变量的值
intA = Add2N(40)
Response.Write("不使用Return输出Function函数的运算结果<BR>")
Response.Write("Function函数的输出值为:" & intA)
%>
</Body>
</Html>

⌨️ 快捷键说明

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