1个回答
展开全部
新建EXE,画4个text文本框和一个按钮,复制下面的代码:
Private Sub Command1_Click()
Dim a, b, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b + c And b > c + a And c > a + b Then
Text4.Text = "是三角形"
Else
Text4.Text = "不是三角形"
End If
End Sub
然后运行,输入值后点按钮即可。
Private Sub Command1_Click()
Dim a, b, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a > b + c And b > c + a And c > a + b Then
Text4.Text = "是三角形"
Else
Text4.Text = "不是三角形"
End If
End Sub
然后运行,输入值后点按钮即可。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |