Mahdoton tehtävä mulle

Kokeilin piruuttani Linuxin Gambasilla eikä ole kovin kummoinen tehtävä. Pitäisi toimia VB:ssä pienellä modifioinnilla.

PUBLIC SUB Button1_Click()

   DIM x AS Integer
   DIM paikka1 AS Integer
   DIM paikka2 AS Integer
   DIM merkki AS String
   DIM talle AS Integer
   DIM s AS String
   DIM d AS String
   DIM j[50] AS Integer

   s=TextBox1.Text

   FOR x = 1 TO Len(s)
      j[x]=x
   NEXT

   FOR x = 1 TO 2*Len(s)
      paikka1 = Int(Rnd(1,Len(TextBox1.Text) 1))
      paikka2 = Int(Rnd(1,Len(TextBox1.Text) 1))
      WHILE paikka1 = paikka2
         paikka2 = Int(Rnd(1,Len(TextBox1.Text) 1))
      WEND
      talle = j[paikka1]
      j[paikka1]= j[paikka2]
      j[paikka2]=talle
   NEXT

   d=""
   FOR x = 1 TO Len(s)
   merkki=Mid$(s,j[x],1)
   d=d & merkki
   NEXT

   TextBox2.Text = d
END

Koulutehtävät on annettu sitä varten, että niitä miettii ja siten oppii.

Voin toki minäkin neuvoa jossain yksityiskohdassa, mutta pääsisit liian helpolla jos koko koodin tänne panisin.

Label-kontrolleihin ei voi sitä paitsi kirjoittaa mitään, vaan niiden pitää olla Text-kontrolleja.