• Home
 · 
• Math/Dates
 · 
• This progarm will tell you if any three measurements are a Equilateral triangle, a Isosceles triang

This progarm will tell you if any three measurements are a Equilateral triangle, a Isosceles triang

This progarm will tell you if any three measurements are a Equilateral triangle, a Isosceles triangle, a Scalene triangle, or if they are not

Rate This progarm will tell you if any three measurements are a Equilateral triangle, a Isosceles triang

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim s1 As Single, s2 As Single, s3 As Single
s1 = Val(txts1)
s2 = Val(txts2)
s3 = Val(txts3)
If s1 + s2 < s3 Or s1 + s3 < s2 Or s2 + s3 < s1 Or s1 + s2 = s3 Or s1 + s3 = s2 Or s2 + s3 = s1 Then
lblnat.Visible = True
Printer.Print "These measurments can not be a trianlge"
ElseIf s1 = s2 And s1 = s3 And s2 = s3 Then
lbleq.Visible = True
Printer.Print "These measurements can be a Equilateral Triangle"
ElseIf s1 = s2 Or s2 = s1 Or s1 = s3 Or s3 = s1 Or s2 = s3 Or s3 = s2 Then
lblisos.Visible = True
Printer.Print "These measurments can be a Isoscles Triangle"
Else
lblgeneral.Visible = True
Printer.Print "These measurements can be a Scalene Triangle"
End If
Printer.Print "Spenser Newton, what kind of triangle prob."
Printer.Print "The measurements experimented with are "; txts1, txts2, txts3
Printer.Print ""
End Sub

Private Sub cmdclear_Click()
txts1 = ""
txts2 = ""
txts3 = ""
lblnat.Visible = False
lblisos.Visible = False
lblgeneral.Visible = False
lbleq.Visible = False
End Sub

Private Sub cmdEnd_Click()
End
End Sub