Microsoft® Visual Basic® Scripting Edition
Á¶°Ç¹® »ç¿ë
 VBScript ÀÚ½À¼­
 ÀÌÀü ÆäÀÌÁö´ÙÀ½ ÆäÀÌÁö


ÇÁ·Î±×·¥ ½ÇÇà Á¦¾î
Á¶°Ç¹®°ú ·çÇÁ 󸮹®À¸·Î ½ºÅ©¸³Æ®ÀÇ È帧À» Á¦¾îÇÒ ¼ö ÀÖ½À´Ï´Ù. ¶ÇÇÑ Á¶°Ç¹®À» »ç¿ëÇÏ¸é µ¿ÀÛÀ» °áÁ¤ÇÏ¿© ¹Ýº¹ÇÏ´Â VBScript Äڵ带 ÀÛ¼ºÇÒ ¼öµµ ÀÖ½À´Ï´Ù. VBScript¿¡¼­´Â ¾Æ·¡ Á¶°Ç¹®À» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù.
If...Then...Else¹®¿¡ ÀÇÇÑ °áÁ¤
If...Then...Else¹®Àº Á¶°Ç¹®ÀÌ True ¶Ç´Â FalseÀÎÁö¸¦ Æò°¡ÇÏ°í ±× °á°ú¿¡ µû¶ó µÑ ÀÌ»óÀÇ ¸í·É¹®À» ½ÇÇàÇÕ´Ï´Ù. ´ë°³ Á¶°Ç¹®Àº ºñ±³ ¿¬»êÀÚ¸¦ »ç¿ëÇÏ¿© °ªÀ̳ª º¯¼ö¸¦ ¼­·Î ºñ±³ÇÏ´Â ½ÄÀÔ´Ï´Ù. ºñ±³ ¿¬»êÀÚ¿¡ °üÇÑ Á¤º¸´Â ºñ±³ ¿¬»êÀÚ¸¦ ÂüÁ¶ÇϽʽÿÀ. If...Then...Else¹®Àº ÇÊ¿äÇÑ ¸¸Å­ ÁßøÇÒ ¼ö ÀÖ½À´Ï´Ù.

Á¶°Ç¹®ÀÌ TrueÀÎ °æ¿ì ¸í·É¹® ½ÇÇà
Á¶°Ç¹®ÀÌ TrueÀÏ ¶§ ÇϳªÀÇ ¸í·É¹®¸¸ ½ÇÇàÇÏ·Á¸é If...Then...Else¹®ÀÇ ´ÜÀÏ ÁÙ ±¸¹®À» »ç¿ëÇÕ´Ï´Ù. ¾Æ·¡ ¿ë·Ê¿¡¼­´Â ´ÜÀÏ ÁÙ ±¸¹®À» º¸¿©ÁÖÁö¸¸ Else Å°¿öµå¸¦ »ý·«ÇÏ°í ÀÖÀ½¿¡ À¯ÀÇÇϽʽÿÀ.
 Sub FixDate()
     Dim myDate
     myDate = #2/13/95#
     If myDate < Now Then myDate = Now
 End Sub
µÎ ÁÙ ÀÌ»óÀÇ Äڵ带 ½ÇÇàÇÏ·Á¸é ¿©·¯ ÁÙ(¶Ç´Â ºí·Ï) ±¸¹®À» »ç¿ëÇØ¾ß ÇÕ´Ï´Ù. ÀÌ ±¸¹®Àº ¾Æ·¡ ¿ë·Ê¿¡¼­Ã³·³ End If¹®À» Æ÷ÇÔÇÕ´Ï´Ù.
 Sub AlertUser(value)
     If value = 0 Then
         AlertLabel.ForeColor = vbRed
         AlertLabel.Font.Bold = True
         AlertLabel.Font.Italic = True
     End If
 End Sub
Á¶°Ç¹®ÀÌ TrueÀÎ °æ¿ì¿Í FalseÀÎ °æ¿ì¿¡ ¼­·Î ´Ù¸¥ ¸í·É¹® ½ÇÇà
If...Then...Else¹®À» »ç¿ëÇÏ¸é ½ÇÇàÇÒ ¼ö ÀÖ´Â 2°³ÀÇ ºí·Ï¹®À» Á¤ÀÇÇÒ ¼ö ÀÖ½À´Ï´Ù. Áï Á¶°Ç¹®ÀÌ TrueÀÏ ¶§ ÇÑ ºí·Ï¹®À», FalseÀÏ ¶§ ´Ù¸¥ ºí·Ï¹®À» ½ÇÇàÇÕ´Ï´Ù.
 Sub AlertUser(value)
     If value = 0 Then
         AlertLabel.ForeColor = vbRed
         AlertLabel.Font.Bold = True
         AlertLabel.Font.Italic = True
     Else
         AlertLabel.Forecolor = vbBlack
         AlertLabel.Font.Bold = False
         AlertLabel.Font.Italic = False
     End If
 End Sub
¿©·¯ ´ë¾È Áß¿¡¼­ °áÁ¤
If...Then...Else¹®À» º¯ÇüÇÏ¸é ¿©·¯ ´ë¾È Áß¿¡¼­ ¼±ÅÃÇÒ ¼ö ÀÖ½À´Ï´Ù. ElseIfÀýÀ» Ãß°¡Çϸé If...Then...Else¹®ÀÇ ±â´ÉÀ» È®ÀåÇÏ¿© ¿©·¯ °¡Áö ´Ù¸¥ °¡´É¼º(È®·ü)À» ±âÁØÀ¸·Î ÇÁ·Î±×·¥ È帧À» Á¦¾îÇÒ ¼ö ÀÖ½À´Ï´Ù. »ç¿ë ¿¹´Â ¾Æ·¡¿Í °°½À´Ï´Ù.
 Sub ReportValue(value)
     If value = 0 Then
         MsgBox value
     ElseIf value = 1 Then
         MsgBox value
     ElseIf value = 2 then
         Msgbox value
     Else
         Msgbox "Çã¿ë ¹üÀ§¸¦ ¹þ¾î³­ °ªÀÔ´Ï´Ù!"
     End If
¼±ÅÃÀûÀÎ ´ë¾ÈÀ» Á¦°øÇÒ ÇÊ¿ä°¡ ÀÖ´Â ¸¸Å­ ElseIfÀýÀ» Ãß°¡ÇÒ ¼ö ÀÖ½À´Ï´Ù. ElseIfÀýÀ» ³Ê¹« ¸¹ÀÌ »ç¿ëÇÏ¸é °¡²û ÀÛ¾÷ÀÌ ¹ø°Å·Î¿öÁý´Ï´Ù. ¿©·¯ ´ë¾È¿¡¼­ ¼±ÅÃÇÒ °æ¿ì¿¡´Â Select Case¹®À» »ç¿ëÇÏ´Â °ÍÀÌ °¡Àå ÁÁ½À´Ï´Ù.
Select Case¹®¿¡ ÀÇÇÑ °áÁ¤
Select Case ±¸Á¶´Â ¿©·¯ ºí·Ï¹®¿¡¼­ ¼±ÅÃÀûÀ¸·Î Çϳª¸¦ ½ÇÇàÇÏ´Â If...Then...ElseIf¹®¿¡ ´ëÇÑ ´ë¾ÈÀ» Á¦°øÇÕ´Ï´Ù. Select Case¹®Àº If...Then...Else¹®°ú ºñ½ÁÇÑ ±â´ÉÀ» Á¦°øÇÏÁö¸¸, ´õ È¿À²ÀûÀÌ°í Àб⠽¬¿î Äڵ带 ÀÛ¼ºÇÕ´Ï´Ù.

Select Case ±¸Á¶´Â ÇØ´ç ±¸Á¶ÀÇ ¸Ç ¾Õ¿¡¼­ ÇÑ ¹ø¸¸ Æò°¡µÇ´Â Å×½ºÆ® ½Ä Çϳª·Î ÀÛµ¿ÇÕ´Ï´Ù. ±×·± ´ÙÀ½ ±× ½ÄÀÇ °á°ú °ª°ú ±¸Á¶¿¡ ÀÖ´Â °¢ CaseÀÇ °ªÀ» ºñ±³ÇÕ´Ï´Ù. ¼­·Î ÀÏÄ¡Çϸé ÇØ´ç Case¿Í ¿¬°üµÈ ºí·Ï¹®À» ½ÇÇàÇÕ´Ï´Ù.

 Select Case Document.Form1.CardType.Options(SelectedIndex).Text
    Case "MasterCard"
        DisplayMCLogo
        ValidateMCAccount
    Case "Visa"
        DisplayVisaLogo
        ValidateVisaAccount
    Case "American Express"
        DisplayAMEXCOLogo
        ValidateAMEXCOAccount
    Case Else
        DisplayUnknownImage
        PromptAgain
End Select
Select Case ±¸Á¶´Â ±¸Á¶ÀÇ ¸Ç ¾Õ¿¡ ÀÖ´Â ½ÄÀ» ÇÑ ¹ø¸¸ Æò°¡ÇÏÁö¸¸, If...Then...ElseIf ±¸Á¶´Â °¢ ElseIf¹®¿¡ ´ëÇÑ ¼­·Î ´Ù¸¥ ½ÄÀ» Æò°¡ÇÕ´Ï´Ù. °¢°¢ÀÇ ElseIf¹®ÀÌ µ¿ÀÏÇÑ ½ÄÀ» Æò°¡ÇÒ °æ¿ì¿¡¸¸ If...Then...ElseIf ±¸Á¶¸¦ Select Case ±¸Á¶·Î ´ëüÇÒ ¼ö ÀÖ½À´Ï´Ù.