OK, 'k heb morgen examen visual basic en al een paar vragen hoort van de andere groepen:
één ervan: Een programma dat test of een woord een palindroom is (bv lepel)
ik raak dus echt niet aan de oplossing
Wat ik momenteel heb:
Citaat:
Private Sub Command1_Click()
Dim tekst As String
Dim result As Integer
Dim i As Integer
tekst = Text1.Text
result = 0
n = Len(tekst) \ 2
For i = 0 To n
If Left(tekst, i) = Right(tekst, i) Then
result = result + 1
Else
End If
Next i
If result = n Then
MsgBox "ja"
Else
MsgBox "nee"
End If
End Sub
|
dit werkt dus enkel maar voor woorden met 4 letters (had gedacht ook voor 6letters maar blijkbaar dus niet :s)
Dus mensen die vb kennen, help me
*edit* klein foutje gemaakt
moest integerdeling zijn ipv gewone deling...
maaaar nu werkt het wel voor 4,5,6 letter woorden maar dus nog niet voor 2,3(ligt waarschijnlijk aan die +1) en meer dan 6