1 Κάντε κλικ στο κουμπί « Έναρξη» των Windows που ακολουθείται από "Microsoft Visual Basic Script Editor" 2
Εισάγετε τον παρακάτω κωδικό στο ανοιχτό παράθυρο : .
Sub ChkFirstWhile ( )
Dim πάγκο , myNum
μετρητή = 0
myNum = 20
Do Ενώ myNum > 10
myNum = myNum - 1
μετρητή = Μετρητής + 1
Loop
MsgBox " . Ο βρόχος που '& μετρητή & « επαναλήψεις »
End Sub Sub
DoMyProc50Times ( )
Dim x
Για x = 1 To 50
MyProc
Επόμενη
MsgBox " Ο βρόχος επαναλαμβάνεται 50 φορές . "
End Sub Sub
cmdChange_OnClick
Dim d ' Δημιουργήστε μια μεταβλητή
Set d = CreateObject ( " Scripting.Dictionary " )
d.Add " 0 " , " Ελλάδα " " Προσθέστε μερικά πλήκτρα και αντικείμενα
d.Add " 1 " , " Γαλλία "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα