<h1>Asp.Net瀛愮▼搴忓拰鍑芥暟</h1>2
<%@ page language="vb" %>3
<script language="vb" runat="server">4
5
6
Sub count2N()Sub count2N()Sub count2N()Sub count2N(ByVal intA as integer)7
Dim total as integer=0, i as integer8
For i=1 to intA9
total=total+i10
Next11
response.write("浠?鍔犲埌"& intA &"鐨勬誨拰涓?/SPAN>"& total & "<br>")12
End sub13
14
15
Function add2N()Function add2N()Function add2N()Function add2N(ByVal intA as integer)16
Dim total as integer=0,i as integer17
For i=1 to intA18
total += i19
Next20
Return total21
End Function22
</script>23
24
25
<%26
Dim total as integer,limit as integer=5027
Call count2N(20)28
total=Add2N(limit)29
response.write("浠?鍔犲埌"& limit & "鐨勬誨拰涓?/SPAN>" & total & "<br>")30
%>鏁版嵁鏈変袱縐嶄紶閫掓柟娉曪紝鎸夊煎拰鎸夊湴鍧錛孊yVal 鏄寜鍊間紶閫?BR>total += 1 鐨勬剰鎬濅笌total=total+1鐨勬剰鎬濅竴鏍?BR>
count2N( )鏄繃紼? add2N( )鏄嚱鏁? 榪囩▼鍜屽嚱鏁版嫭鍙烽噷闈㈢殑閮芥槸鍙橀噺, 璋冪敤榪囩▼鍜屽嚱鏁拌澹版槑鍙橀噺鐨勫?
璋冪敤榪囩▼瑕佺敤 "call 榪囩▼" 璋冪敤(27琛?
璋冪敤鍑芥暟鍙熷姪鍙橀噺total涓庡嚱鏁扮殑鍏崇郴璋冪敤(29琛?
The Game, tomtom 2006-02-14 18:00 鍙戣〃璇勮
]]>