Üçgende Kenarlar

Kod:

Dim k1, k2, k3, As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
k1 = InputBox("1.kenarı giriniz")
k2 = InputBox("2.kenarı giriniz")
k3 = InputBox("3.kenarı giriniz")
If (k1 = k2) And (k2 = k3) Then
MsgBox("eşkenar")
ElseIf (k1 = k2) Or (k2 = k3) Or (k1 = k3) Then
MsgBox("ikizkenar")
Else
MsgBox("çeşit kenar")
End If
End Sub