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 .