Kako da zavrsim kod???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo koda. Ne znam sta da stavim na kraju, pre End Sub.

Private Sub cmdizracunaj_Click()
A = "Bolje da ga nemas": B = "Prosecan si": C = "Ti si crnac"
D = txtduzina.Text
For D = 0 To 15
txtrezultat.Text = A
Next D
For D = 15 To 25
txtrezultat.Text = B
Next D
For D = 25 To 100
txtrezultat.Text = C


End Sub

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Private Sub cmdizracunaj_Click()   A = "Bolje da ga nemas"   B = "Prosecan si"   C = "Ti si crnac"   D = txtduzina.Text   If D > 0 And D <= 15 Then     txtrezultat.Text = A   ElseIf D > 15 And D <=25 Then     txtrezultat.Text = B   ElseIf D > 25 And D <= 100 Then     txtrezultat.Text = C   End If End Sub

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

kakav je to program? sram da te bude

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hmm U help file stavi uputstvo za merenje

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Mozda se ovde radi o inchima???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ja nisam kriv, majke mi! Sao sam hteo da pomognem. Ja ne znam ni o cemu je rec. Oni su me nagovorili...oni su krivi...