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
VUE