qbasic proggi in vb

[renew]

braucht man net viel umbaun....:

DIM x AS integer
DIM y AS integer 'obwohls natürlich auch single gibt, aber ich denk integer passt da besser 

RANDOMIZE
y = Int((100 - 0 + 1) * Rnd) + 0

DO
x = InputBox "Bitte geben Sie eine Zahl ein:"


IF int(x) < y THEN
msgbox " zu klein"
ELSEIF int(x) > y THEN
msgbox "zu groß"
ELSE
msgbox "Richtig"
END IF
LOOP UNTIL int(x) = y

Und das ganze rufst jetzt noch mit einem Button oder was du auch immer haben willst auf, und schon hast deine Funktion.