国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS基礎編程教程 (第6篇)

2019-10-26 18:00:22
字體:
來源:轉載
供稿:網友
最后一篇: 

新家不錯, MM開心, 我也就跟著高興了 : ), 今天我們學習基礎篇的最后一個部分:自定義函數和過程. 我們每天都在和函 

數打交道, inputbox()是函數, msgbox()是函數, int()也是函數...這些函數都是系統內建的, 我們只能用不能改. 今天, 我 

就教大家怎樣自己制作一個函數. 

  首先我們要了解, 為什么要用函數, 我們用"實例"說話, 先看一個例子: 給出兩個數, 輸出較大的那一個. 

dim a1,a2,b1,b2,c1,c2 
a1=2:a2=4 '":"可以讓你把多個語句寫在一行上 
b1=32:b2=67 
c1=12:c2=898 

if a1>a2 then 
msgbox(a1) 
elseif a1
msgbox(a2) 
end if 

if b1>b2 then 
msgbox(b1) 
elseif b1
msgbox(b2) 
end if 

if c1>c2 then 
msgbox(c1) 
elseif c1
msgbox(c2) 
end if 

  多么麻煩呀, 我們把相同的比較過程復制了好幾遍, 早期語言沒有結構化(沒有過程和函數)的時候, 程序員們的確是這么 

干的, 他們復制(Copy), 那個年代也沒有剪貼板這一說, 大家都是重新輸入代碼. 后來工作簡化了: 


dim a1,a2,b1,b2,c1,c2 
a1=2:a2=4 
b1=32:b2=67 
c1=12:c2=898 
msgbox(co(a1,a2)) 
msgbox(co(b1,b2)) 
msgbox(co(c1,c2)) 

function co(t1,t2) '我們使用function定義了一個新的函數 
if t1>t2 then 
co=t1 '通過"函數名=表達式"這種方法返回結果 
elseif t2>t1 then 
co=t2 
end if 
end function 

  我們在這里是用了一個新的關鍵字:funciton, 這個關鍵字表示一個新函數開始, 格式: 

funciton 函數名(參數1, 參數2...參數n) '列表可以是空的, 但括號不能省略, 參數之間用","分割 
... 
exit funciton '結束函數, 不是必需的 
... 
end function 

  函數是一個模塊, 只有你調用的時候才會運行, 也就說, 當你編寫了一個函數, 然后在程序中并不調用它, 那么這個函數 

永遠不會運行. 一般來說, 我們編寫程序是按照: 

主程序 
.. 
.. 
.. 

函數1 
.. 
.. 

函數2 
.. 
.. 

  詳細解釋一下: 函數中最重要的是參數和返回值. 參數是在函數名后面的()里定義的, 用","分割, 使用參數的時候我們也 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 清新县| 界首市| 赤峰市| 固始县| 章丘市| 全州县| 武功县| 衡阳市| 唐山市| 抚松县| 启东市| 东阿县| 韶关市| 滦南县| 新津县| 开远市| 日照市| 黑龙江省| 九江县| 平山县| 吴江市| 广南县| 曲水县| 吐鲁番市| 新丰县| 老河口市| 吉隆县| 田林县| 昂仁县| 祁东县| 黄梅县| 乐亭县| 西林县| 河池市| 建昌县| 胶南市| 五华县| 湖南省| 都兰县| 葵青区| 比如县|