Tämä on tarkoitettu aloittelijoille!!
Screen 13 'koko näyttö Screen 0 'tekstitila dim a as integer,b as string ,c as string'asettaa muuttujien tyypit Widht 80,50 'mahtuu enemmän merkkejä Color 3 'teksti vihreäksi Locate 2,5 'Kohdistaa tekstin Input "Anna kokonaisluku a:",a 'kysyy aata Input "Anna merkkijono b:",b'.... beetä Input "Anna merkkijono c:",c'.... ceetä a=a/2 'jakaa aan kahdella if a<>2 then a=a+1'jos aa jotain muuta kuin kaksi lisää aahan yhden Print"Puolet aasta on:";a f = instr(b,c) 'palauttaa merkkijonon c kohdan merkkijonossa b (jos ei ole palauttaa 0) d$=left$(b,f-1)'ottaa merkit ennen merkkijono ceetä toinen parametri monta e$=right$(b,len(b)-(f+len(c))'len palauttaa merkkijonon pituuden ottaa merkit merkkijono ceen jälkeen b=d$+e$'kopioi beehen b=b+mid$(b,len(b)-1,1)'ottaa toiseksi viimeisen kirjaimen ja kopio se perään midin parametrit merkkijono,alkukohta,montako locate 1,1 print b
Aihe on jo aika vanha, joten et voi enää vastata siihen.