VBScript ³ÌÐò
VBScript ³ÌÐò
ÎÒÃÇ¿ÉʹÓÃÁ½ÖÖ³ÌÐò£º×Ó³ÌÐòºÍº¯Êý³ÌÐò¡£
×Ó³ÌÐò£º
- ÊÇһϵÁеÄÓï¾ä£¬±»·â×°ÔÚ Sub ºÍ End Sub Óï¾äÄÚ¡£
- ¿ÉÖ´ÐÐijЩ²Ù×÷£¬µ«²»»á·µ»ØÖµ¡£
- ¿É´øÓÐͨ¹ý³ÌÐòµ÷ÓÃÀ´Ïò×Ó³ÌÐò´«µÝ²ÎÊý¡£
- Èç¹ûûÓУ¬±ØÐë´øÓпյÄÔ²À¨ºÅ
Sub mysub() some statements End Sub
Sub mysub(argument1,argument2) some statements End Sub
º¯Êý³ÌÐò£º
- ÊÇһϵÁеÄÓï¾ä£¬±»·â×°ÔÚ Function ºÍ End Function Óï¾äÄÚ¡£
- ¿ÉÖ´ÐÐijЩ²Ù×÷²¢·µ»ØÖµ¡£
- ¿É´øÓÐͨ¹ý³ÌÐòµ÷ÓÃÀ´ÏòÆä´«µÝ²ÎÊý¡£
- Èç¹ûûÓУ¬±ØÐë´øÓпյÄÔ²À¨ºÅ
- ͨ¹ýÏòº¯Êý³ÌÐòÃû¸³ÖµµÄ·½Ê½£¬¿ÉʹÆä·µ»ØÖµ¡£
Function myfunction() some statements myfunction=some value End Function
Function myfunction(argument1,argument2) some statements myfunction=some value End Function
µ÷ÓÃ×Ó³ÌÐò»òº¯Êý³ÌÐò
¿ÉÒÔÕâÑùµ÷ÓÃij¸öº¯Êý£º
name = findname()
´Ëº¯ÊýÃûΪ "findname"£¬º¯Êý»á·µ»ØÒ»¸öÖµ£¬Õâ¸öÖµ»á´æ´¢ÓÚ±äÁ¿ "name" ÖС£
»òÕß¿ÉÒÔÕâÑù×ö£º
msgbox "Your name is " & findname()
ÎÒÃÇͨ¹ýµ÷ÓÃÁËÃûΪ "findname" µÄº¯Êý£¬Õâ¸öº¯Êý·µ»ØµÄÖµ»áÏÔʾÔÚÏûÏ¢¿òÖС£
¿ÉÒÔÕâÑùµ÷ÓÃ×Ó³ÌÐò£º
Call MyProc(argument)
»òÕߣ¬Ò²¿ÉÒÔÊ¡ÂÔ Call Óï¾ä£º
MyProc argument