Hogyan írnátok meg egy olyan programot Visual Basicben, ahol az a feladat, hogy annyiszor írja ki a szót egymás mellé ahány betűből áll a szó?

Én nem foglalkozom Visual Basickel, de megírtam rendes FreeBASICben. Elnézést, ha valami ügyefogyottabbra sikerült a kelleténél, ezer éve nem basiceztem.

*** Első program:

dim szo as string

dim i as integer

line input "Írd be a szót: ", szo

for i = 1 to len(szo)

      print(szo);

next

print

line input "Vége. Nyomd meg az Entert a kilépéshez.", szo

*** Második program, első változat:

dim szo as string

dim betu as string

dim nullak as byte

dim hossz as uinteger

dim i as uinteger

print "Írd be egy pozitív egész szám számjegyeit (maximum 99 számjegy),"

print "utána a program megmondja, volt-e közöttük nulla."

line input "Milyen hosszú legyen a szám? ", szo

if len(szo) > 2 then

      print "Nem megfelelő érték!"

else

      print

      hossz = abs(val(szo))

      nullak = 0

      szo = ""

      for i = 1 to hossz

            line input str(i) + ". számjegy: ", betu

            betu = left(betu, 1)

            if (betu < "0") or (betu > "9") then nullak = nullak + 1

            szo = szo + betu

      next

      print "A beírt szám: " + szo

      if nullak = 0 then

            for i = 1 to hossz

                  if (mid(szo, i, 1) = "0") then nullak = nullak + 1

            next

            if nullak > 0 then print "A szám tartalmaz nullát."

      else

            print "Hibás szám!"

      end if

end if

line input "Vége. Nyomd meg az Entert a kilépéshez.", szo

*** Második program, második változat:

dim szo as string

dim betu as string

dim hibak as byte

dim nullak as byte

dim hossz as uinteger

dim i as uinteger

print "Írj be egy pozitív egész számot (maximum 99 számjegy),"

print "utána a program megmondja, volt-e közöttük nulla."

line input "Milyen hosszú legyen a szám? ", szo

if len(szo) > 2 then

      print "Nem megfelelő érték!"

else

      hossz = abs(val(szo))

      line input "Írd be a számot: ", szo

      if len(szo) <> hossz then

            print "Sajnálom, ez más hosszúságú!"

      else

            hibak = 0

            nullak = hibak

            for i = 1 to hossz

                  betu = mid(szo, i, 1)

                  if (betu < "0") or (betu > "9") then

                        hibak = hibak + 1

                  else

                        if betu = "0" then nullak = nullak + 1

                  end if

            next

            print "A beírt szám: " + szo

            if hibak > 0 then

                  print "Hibás szám!"

            else

                  if nullak > 0 then print "A szám tartalmaz nullát."

            end if

      end if

end if

line input "Vége. Nyomd meg az Entert a kilépéshez.", szo