隨筆 - 20 文章 - 7 trackbacks - 0

2025年7月

>

日

一

二

三

四

五

六

29

30

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

1

2

3

4

5

6

7

8

9

常用鏈接

留言簿(1)

隨筆檔案

文章分類

文章檔案

2006年2月 (9)

積分與排名

積分 - 20449
排名 - 1709

最新評論

1.?re: DW2004連接數(shù)據(jù)庫問題的解決
請問有沒有別的解決方式，因為這個方法不適用於最新版本CS3，
我的作業(yè)系統(tǒng)是VISTA,DW是CS3，這方是不奏效~~
不能用啊~~
--兔兔
2.?re: For Each...In...Next循環(huán)語句
1122211222
--hhmng
3.?re: 編寫一個asp.net程序代碼
空格+& 是續(xù)行符固定格式
--雙
4.?re: 推薦一個免費的asp.net空間
不是啊。。?？梢园?
--tom
5.?re: 推薦一個免費的asp.net空間
這個站點的用不了。。白注冊
--aaa

ASP.NET子程序和函數(shù)

1

<h1>Asp.Net子程序和函數(shù)</h1>
2

<%@ page language="vb" %>
3

5

6

Sub 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>")
12

End sub
13

14

15

Function 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
21

End Function
22

</script>
23

24

25

<%
26

Dim total as integer,limit as integer=50
27

Call count2N(20)
28

total=Add2N(limit)
29

response.write("從1加到"& limit & "的總和為" & total & "<br>")
30

%>

數(shù)據(jù)有兩種傳遞方法，按值和按地址，ByVal 是按值傳遞
total += 1 的意思與total=total+1的意思一樣

count2N( )是過程, add2N( )是函數(shù), 過程和函數(shù)括號里面的都是變量, 調(diào)用過程和函數(shù)要聲明變量的值.
調(diào)用過程要用 "call 過程" 調(diào)用(27行)
調(diào)用函數(shù)可借助變量total與函數(shù)的關(guān)系調(diào)用(29行)

posted on 2006-02-14 18:00 The Game, tomtom 閱讀(377) 評論(0) 編輯收藏所屬分類: VB.NET的程序,模塊和函數(shù)

新用戶注冊刷新評論列表


只有注冊用戶登錄后才能發(fā)表評論。




網(wǎng)站導航: 博客園 IT新聞 Chat2DB C++博客博問管理