Miscellany

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strOrd1, strOrd2 As String
        Dim intLängre, intKortare As Integer 'Längden på det längre resp. kortare av de 2 orden
        Dim intAntRätt, intAntFel, idx As Integer
        Dim sngProcRätt As Single
        Dim strLångOrd, strKortOrd As String 'Det längre resp. kortare ordet

        intAntFel = 0
        intAntRätt = 0

        strOrd1 = InputBox("Ord 1")
        strOrd2 = InputBox("Ord 2")

'Om orden är lika långa, sätts Ord1 som det         
längsta
        If strOrd1.Length >= strOrd2.Length Then 
            intLängre = strOrd1.Length
            strLångOrd = strOrd1
            intKortare = strOrd2.Length
            strKortOrd = strOrd2
        Else
            intLängre = strOrd2.Length
            strLångOrd = strOrd2
            intKortare = strOrd1.Length
            strKortOrd = strOrd1
        End If

        intAntFel = intLängre - intKortare ' Skillnaden i ordlängden läggs till antalet fel

'Stega igenom kortare ordet å jmf med längre ordet
'Bryr ej om ifall bokstäverna är gemener eller versaler
        For idx = 1 To intKortare 
            If LCase(Mid(strKortOrd, idx, 1)) <> LCase(Mid(strLångOrd, idx, 1)) Then 
                intAntFel += 1
            End If
        Next

        intAntRätt = intLängre - intAntFel 'Ant rätt är längden av längsta ordet minus ant fel
        sngProcRätt = intAntRätt / intLängre * 100

        If sngProcRätt >= 80 Then
            MsgBox("Lika! " & sngProcRätt & " % rätt")
        Else
            MsgBox("Olika! " & sngProcRätt & " % rätt")
        End If

    End Sub