BlogJava-tomtom-文章分类-VB.NET的程序,模块和函数http://www.blogjava.net/tomtom/category/7359.htmlzh-cnWed, 28 Feb 2007 21:00:52 GMTWed, 28 Feb 2007 21:00:52 GMT60ASP.NET子程序和函数http://www.blogjava.net/tomtom/articles/30648.htmlThe Game, tomtomThe Game, tomtomTue, 14 Feb 2006 10:00:00 GMThttp://www.blogjava.net/tomtom/articles/30648.htmlhttp://www.blogjava.net/tomtom/comments/30648.htmlhttp://www.blogjava.net/tomtom/articles/30648.html#Feedback0http://www.blogjava.net/tomtom/comments/commentRss/30648.htmlhttp://www.blogjava.net/tomtom/services/trackbacks/30648.html 1<h1>Asp.Net子程序和函数</h1>
 2<%@ page language="vb" %>
 3<script language="vb" runat="server">
 4
 5
 6Sub count2N()Sub count2N(ByVal intA as integer)
 7  Dim total as integer=0, i as integer
 8 For i=1 to intA
 9 total=total+i
10 Next
11 response.write("从1加到"& intA &"的总和为"& total & "<br>")
12End sub
13
14
15Function add2N()Function add2N(ByVal intA as integer)
16   Dim total as integer=0,i as integer
17  For i=1 to intA
18  total += i
19  Next
20  Return total
21End Function
22</script>
23
24
25<%
26Dim total as integer,limit as integer=50
27Call count2N(20)
28total=Add2N(limit)
29response.write("从1加到"& limit & "的总和为" & total & "<br>")
30%>


数据有两种传递方法，按值和按地址，ByVal 是按值传递
total += 1 的意思与total=total+1的意思一样

count2N( )是过程, add2N( )是函数, 过程和函数括号里面的都是变量, 调用过程和函数要声明变量的值.
调用过程要用 "call 过程" 调用(27行)
调用函数可借助变量total与函数的关系调用(29行)

]]>