VBSの基本 - 条件付き文（IfとSelect Case）

dim a 'Define a variable
a = 100
if a < 200 then a = 300 'If i < 200, then reassign the value to i
msgbox a 'The output value is 300

dim a,b,c
a=inputbox("Please enter the value of a: ")
b=100
c=200
if a<200 then 'Run a block of statements when the condition is True, and another block of statements when the condition is False
  msgbox b
else
  msgbox c
end if

dim a
a=inputbox("Please enter the value of a: ")
if a<200 then 'Run a block of statements if the condition is True, and another block of statements if the condition is False
  msgbox "Execute statement 1"
elseif a=200 then 
  msgbox "Execute statement 2"
elseif a>200 then
  msgbox "Execute statement 3"
end if

'The Select Case structure uses a simple test expression that is computed only once at its beginning. The result of the expression is compared to the value of each Case in the structure, and if it matches, the block of statements associated with that Case is executed.
dim a
a=inputbox("Fill in a random number")
a=int(a)
select case a 
  case 6,7,8,9 msgbox("okay")
  case 10,11,12,13,14,15 msgbox("fair")
  case 16,17,18,19,20 msgbox("It's okay")
  case 21,22,23,24,25 msgbox("invincible")
  case else msgbox("Dreaming")
end select