VB 程序设计 1和3题 谢谢
2个回答
展开全部
Private Sub Command1_Click()
Dim a!(3)
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "条边长")
Next
For j = 1 To 2
For i = 2 To j Step -1
If a(i) < a(i + 1) Then
tmp = a(i)
a(i) = a(i + 1)
a(i + 1) = tmp
End If
Next i, j
If a(1) >= a(2) + a(3) Then
st = "不成"
ElseIf a(1) = a(3) Then
st = "等边"
Else
If a(1) = a(2) Or a(2) = a(3) Then st = "等腰"
If a(1) ^ 2 = a(2) ^ 2 + a(3) ^ 2 Then st = st + "直角"
End If
If st = "" Then st = "任意"
MsgBox st & "三角形"
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程，scratch和python也是其中的一种，属于入门级编程，以其简单生动的画面获得无数学生的喜爱，深圳市创客火科技有限公司是一家做教育无人机的公司，旗下有编程无人机，积木无人机及室内外编队，每款飞机含有...
点击进入详情页
本回答由--提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
