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
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
Vastaukset 4
Vanhimmat
Do
b = b 1
Loop until b = cint(y)
Muuttujaa b on kasvatettava:
b = b 1
Visual Basic on Microsoftin kehittämä, voiko tuota saada toimimaan siitä muolimatta vai olisko linux visual basicia jolla vois kokeilla
http://www.mono-project.com/docs/about-mono/languages/visualbasic/
En ole kokeillut.