VB编程 输入三角形三条边长啊,a,b,c的值,根据其数值,判断是否构成三角形.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 04:51:34
VB编程 输入三角形三条边长啊,a,b,c的值,根据其数值,判断是否构成三角形.
如果能,判断三角形类型、;等边三角形,等腰三角形,直角三角形,一般三角形.
如果能,判断三角形类型、;等边三角形,等腰三角形,直角三角形,一般三角形.
a = Val(inputbox("输入a"))
b = Val(inputbox("输入b"))
c = Val(inputbox("输入c"))
If a+b > c And b+c>a And c+a>b Then
'能构成
If a=b And b=c Then
Msgbox "等边三角形"
ElseIf a=b Or b=c Or a=c Then
Msgbox "等腰三角形"
ElseIf a^2 + b^2 = c^2 Or a^2 + c^2 = b^2 Or c^2 + b^2 = a^2 Then
Msgbox "一般三角形"
end if
Else
Msgbox "不能构成三角形"
end if
再问: 不行啊 不能判断等腰跟直角 都是显示不能构成三角形
再答: 漏了一个 a = Val(InputBox("输入a")) b = Val(InputBox("输入b")) c = Val(InputBox("输入c")) If a + b > c And b + c > a And c + a > b Then '能构成 If a = b And b = c Then MsgBox "等边三角形" ElseIf a = b Or b = c Or a = c Then MsgBox "等腰三角形" ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 Then MsgBox "直角三角形" Else MsgBox "一般三角形" End If Else MsgBox "不能构成三角形" End If
再问: 可是我写的还是有问题。
再答: 要定义一下变量类型,我给你完整的,我已经在VB里试过了。 Option Explicit Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single a = Val(InputBox("输入a")) b = Val(InputBox("输入b")) c = Val(InputBox("输入c")) If a + b > c And b + c > a And c + a > b Then '能构成 If a = b And b = c Then MsgBox "等边三角形" ElseIf a = b Or b = c Or a = c Then MsgBox "等腰三角形" ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 Then MsgBox "直角三角形" Else MsgBox "一般三角形" End If Else MsgBox "不能构成三角形" End If End Sub
再问: 我是这样的 我感觉差不多 但是就是不能用
b = Val(inputbox("输入b"))
c = Val(inputbox("输入c"))
If a+b > c And b+c>a And c+a>b Then
'能构成
If a=b And b=c Then
Msgbox "等边三角形"
ElseIf a=b Or b=c Or a=c Then
Msgbox "等腰三角形"
ElseIf a^2 + b^2 = c^2 Or a^2 + c^2 = b^2 Or c^2 + b^2 = a^2 Then
Msgbox "一般三角形"
end if
Else
Msgbox "不能构成三角形"
end if
再问: 不行啊 不能判断等腰跟直角 都是显示不能构成三角形
再答: 漏了一个 a = Val(InputBox("输入a")) b = Val(InputBox("输入b")) c = Val(InputBox("输入c")) If a + b > c And b + c > a And c + a > b Then '能构成 If a = b And b = c Then MsgBox "等边三角形" ElseIf a = b Or b = c Or a = c Then MsgBox "等腰三角形" ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 Then MsgBox "直角三角形" Else MsgBox "一般三角形" End If Else MsgBox "不能构成三角形" End If
再问: 可是我写的还是有问题。
再答: 要定义一下变量类型,我给你完整的,我已经在VB里试过了。 Option Explicit Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single a = Val(InputBox("输入a")) b = Val(InputBox("输入b")) c = Val(InputBox("输入c")) If a + b > c And b + c > a And c + a > b Then '能构成 If a = b And b = c Then MsgBox "等边三角形" ElseIf a = b Or b = c Or a = c Then MsgBox "等腰三角形" ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 Then MsgBox "直角三角形" Else MsgBox "一般三角形" End If Else MsgBox "不能构成三角形" End If End Sub
再问: 我是这样的 我感觉差不多 但是就是不能用
VB编程 输入三角形三条边长啊,a,b,c的值,根据其数值,判断是否构成三角形.
VB编程题.输入三角形三条边a,b,c的值,根据其数值,判断能否构成三角形.不要求判断是具体什么三角形
输入三角形.形的三条边a,b,c的值,根据其数值,判断能否构成三角若能则求出三角形的面积
VB编程.输入三角形三条边a,b,c的值判断能否构成三角形.若能,显示三角形的类型:等边三角形 等腰三角形 等腰直角三角
vb三角形编程输入三条边,判断能否构成三角形.看我的编程是否有问题,
输入a,b,c三数,将其作为三角形三边,若能构成三角形,求周长;若能构成直角三角形,求面积,如何Vb编程?
让编一个程序,输入三角形的三条边长a、b、c,然后判断这个三角形是否存在,用 a+b>c且|a-b|
VB程序设计:判断任意的三条边长能否构成三角形并计算其面积
VB编程题:从3个文本框中输入3个数值,并判断能否构成三角形.若能,则显示三角形的特征.求代码,感激不尽
设计一个算法,实现如下功能:从键盘上输入三角形的三条边长a,b,c,如果能构成三角形
任务说明:输入三角形的三条边a,b,c,判断它们能否构成三角形.若能构成三角形,指出是何种三角形.注:判断浮点数是否相等
c++语言 输入三角形三边a,b,c.判断是否能够构成三角形,如果能构成三角形,通过海伦公式,计算其面积