tomtom
首頁
新隨筆
聯系
聚合
管理
隨筆 - 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)
給我留言
查看公開留言
查看私人留言
隨筆檔案
2007年1月 (1)
2006年12月 (2)
2006年11月 (5)
2006年10月 (1)
2006年9月 (1)
2006年3月 (2)
2006年2月 (8)
文章分類
.NET Framework類庫
ASP.NET對象
EXCEL函數應用
SQL
VB.NET流程控制(6)
VB.NET的程序,模塊和函數(1)
Windows(1)
平面設計,美工(1)
網頁數據庫
文章檔案
2006年2月 (9)
積分與排名
積分 - 20467
排名 - 1709
最新評論
1.?re: DW2004連接數據庫問題的解決
請問有沒有別的解決方式,因為這個方法不適用於最新版本CS3,
我的作業系統是VISTA,DW是CS3,這方是不奏效~~
不能用啊~~
--兔兔
2.?re: For Each...In...Next循環語句
1122211222
--hhmng
3.?re: 編寫一個asp.net程序代碼
空格+& 是續行符 固定格式
--雙
4.?re: 推薦一個免費的asp.net空間
不是啊。。。可以啊
--tom
5.?re: 推薦一個免費的asp.net空間
這個站點的用不了。。白注冊
--aaa
ASP.NET子程序和函數
1
<
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
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()
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
%
>
數據有兩種傳遞方法,按值和按地址,ByVal 是按值傳遞
total += 1 的意思與total=total+1的意思一樣
count2N( )是過程, add2N( )是函數, 過程和函數括號里面的都是變量, 調用過程和函數要聲明變量的值.
調用過程要用 "call 過程" 調用(27行)
調用函數可借助變量total與函數的關系調用(29行)
posted on 2006-02-14 18:00
The Game, tomtom
閱讀(378)
評論(0)
編輯
收藏
所屬分類:
VB.NET的程序,模塊和函數
新用戶注冊
刷新評論列表
只有注冊用戶
登錄
后才能發表評論。
網站導航:
博客園
IT新聞
Chat2DB
C++博客
博問
管理
Copyright ©2025 The Game, tomtom Powered by:
博客園
模板提供:
滬江博客
主站蜘蛛池模板:
毛片免费全部播放一级
|
天天摸天天操免费播放小视频
|
成人嫩草影院免费观看
|
99久久99久久免费精品小说
|
337p日本欧洲亚洲大胆色噜噜
|
亚洲精品自偷自拍无码
|
99久久免费国产精品热
|
67194成是人免费无码
|
久久亚洲免费视频
|
黄色网址在线免费观看
|
国产成人精品免费视频大全麻豆
|
国产男女猛烈无遮挡免费网站
|
黄瓜视频高清在线看免费下载
|
亚洲综合久久一本伊伊区
|
中文字幕的电影免费网站
|
无码人妻精品一二三区免费
|
精品日韩99亚洲的在线发布
|
在线成人精品国产区免费
|
全部免费a级毛片
|
亚洲色偷偷综合亚洲av78
|
麻豆高清免费国产一区
|
亚洲va无码手机在线电影
|
免费一级毛片在线播放视频免费观看永久
|
97性无码区免费
|
亚洲高清无在码在线电影不卡
|
国产成人精品免费午夜app
|
亚洲精品国产高清在线观看
|
亚洲大片免费观看
|
亚洲色www永久网站
|
免费人成年轻人电影
|
国产午夜精品久久久久免费视
|
久久久久久亚洲精品不卡
|
免费人成动漫在线播放r18
|
亚洲中久无码永久在线观看同
|
亚洲制服丝袜精品久久
|
日韩在线免费视频
|
亚洲制服丝袜中文字幕
|
国产美女做a免费视频软件
|
a级毛片免费全部播放
|
亚洲精品国产国语
|
美女被免费视频网站a国产
|