ÜÇGEN ÇEŞİTLERİ

Public Class Form1
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 = k1) Then
MsgBox("üçgen eşkenar üçgendir")
ElseIf (k1 = k2) Or (k2 = k3) Or (k1 = k3) Then
MsgBox("üçgen ikizkenar üçgendir")
Else
MsgBox("üçgen çeşitkenar üçgendir")
End If
End Sub
End Class