visual basic

a = InputBox("juttuja")
y = InputBox("lisää juttuja")
Dim b
b=0
Set wshShell = wscript.CreateObject("WScript.Shell")

wscript.sleep 2000

do
Do until b = y
_____________________________________
mites ton do untilin sais asettettua tuon y:n arvoksi (tolla ei toiminu)
tolla inputboxilla asetan ton y arvoksi vaikka 12 ja sitte se do until tekis sitä sen y:n arvon verran
Ilmoita


Do
b = b 1
Loop until b = cint(y)
1 VASTAUS:
Muuttujaa b on kasvatettava:
b = b + 1
+Lisää kommentti
Visual Basic on Microsoftin kehittämä, voiko tuota saada toimimaan siitä muolimatta vai olisko linux visual basicia jolla vois kokeilla

Vastaa alkuperäiseen viestiin

visual basic

a = InputBox("juttuja")
y = InputBox("lisää juttuja")
Dim b
b=0
Set wshShell = wscript.CreateObject("WScript.Shell")

wscript.sleep 2000

do
Do until b = y
_____________________________________
mites ton do untilin sais asettettua tuon y:n arvoksi (tolla ei toiminu)
tolla inputboxilla asetan ton y arvoksi vaikka 12 ja sitte se do until tekis sitä sen y:n arvon verran

5000 merkkiä jäljellä

Peruuta