Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Kliknite na tlačidlo " Štart " vo Windows nasleduje " Microsoft Visual Basic Script Editor " 
 2 
 Zadajte nasledujúci kód v otvorenom okne : . 
 
 Sub ChkFirstWhile ( ) 
 
 Dim pult , myNum 
 
 counter = 0 
 
 myNum = 20 
 
 Do Kým myNum > 10 
 
 myNum = myNum - 1 
 
 counter = counter + 1 
 
 Loop 
 
 MsgBox " . slučka z ' a počítadlo a " opakovanie " 
 
 end Sub 
 
 Sub DoMyProc50Times ( ) 
 
 Dim x 
 
 x = 1 až 50 
 
 MyProc 
 
 Ďalšie 
 
 MsgBox " Slučka sa opakuje 50 krát . " 
 
 End Sub 
 
 Sub cmdChange_OnClick 
 
Dim d ' Vytvorenie premenné klipart
 Set d = CreateObject ( " Scripting.Dictionary " ) 
 
 d.Add " 0 " , " Grécko " 'Pridať niekoľko tlačidiel a položiek 
 
 d.Add " 1 " , " Francúzsko " 
 
 d.Add " 2 " , " Španielsko " 
 
 Pre každé i D 
 
 Document.frmForm.Elements ( i) . Value = D.Item ( i) 
 
 ďalšie 
 
 MsgBox " Slučka sa opakuje ' & d & " časy . " 
 
 End Sub 
 3 
 Kliknite na " Súbor " potom " Uložiť " uplatňovať kód VBS skriptu v aplikácii .