VB编程，求大神指教 10
自定义一个函数，按两个参数（直角三角形的直角边长度）的值，计算并返回三角形面积值。再定义一个程序，功能：从键盘输入两个数（表示直角三角形的直角边长度），调用上述自定义函数...
自定义一个函数，按两个参数（直角三角形的直角边长度）的值，计算并返回三角形面积值。再定义一个程序，功能：从键盘输入两个数（表示直角三角形的直角边长度），调用上述自定义函数和程序，并输出三角形面积值
展开
1个回答
展开全部
Option Explicit
Function mj(L1 As Single, L2 As Single) As Single
mj = (L1 * L2) / 2
MsgBox "三角形面积为：" + Str(mj)
End Function
Private Sub Form_Click()
Dim a() As String
a() = Split(InputBox("输入直角三角形的长和宽" + vbCrLf + vbCrLf + "例如: 2|3 表示输入一条边长2，一条变长3", "Input", "2|3"), "|")
If UBound(a) >= 2 Then
MsgBox "数据输入有误！！"
Else
Call mj(Val(a(0)), (Val(a(1))))
End If
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程，scratch和python也是其中的一种，属于入门级编程，以其简单生动的画面获得无数学生的喜爱，深圳市创客火科技有限公司是一家做教育无人机的公司，旗下有编程无人机，积木无人机及室内外编队，每款飞机含有...
点击进入详情页
本回答由--提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
