VBA程序设计代码,设计一个函数,通过输入三角形的三个边长,计算三角形的面积,要求函数在标准模块中添加
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/01 01:33:19
VBA程序设计代码,设计一个函数,通过输入三角形的三个边长,计算三角形的面积,要求函数在标准模块中添加
代码应该怎么写?急
![](http://img.wesiedu.com/upload/b/51/b51727abbc234d276a75f64e950caf95.jpg)
代码应该怎么写?急
![](http://img.wesiedu.com/upload/b/51/b51727abbc234d276a75f64e950caf95.jpg)
![VBA程序设计代码,设计一个函数,通过输入三角形的三个边长,计算三角形的面积,要求函数在标准模块中添加](/uploads/image/z/4712173-61-3.jpg?t=VBA%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%E4%BB%A3%E7%A0%81%2C%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA%E5%87%BD%E6%95%B0%2C%E9%80%9A%E8%BF%87%E8%BE%93%E5%85%A5%E4%B8%89%E8%A7%92%E5%BD%A2%E7%9A%84%E4%B8%89%E4%B8%AA%E8%BE%B9%E9%95%BF%2C%E8%AE%A1%E7%AE%97%E4%B8%89%E8%A7%92%E5%BD%A2%E7%9A%84%E9%9D%A2%E7%A7%AF%2C%E8%A6%81%E6%B1%82%E5%87%BD%E6%95%B0%E5%9C%A8%E6%A0%87%E5%87%86%E6%A8%A1%E5%9D%97%E4%B8%AD%E6%B7%BB%E5%8A%A0)
Function getArea(a As Double,b As Double,c As Double) As Double
Dim perimeter As Double
Dim area As Double
perimeter = (a + b + c) / 2
area = Sqr(perimeter * (perimeter - a) * (perimeter - b) * (perimeter - c))
getArea = area
End Function
把这个函数放到标准模块中就行了,然后向调用excel的公式一样调用这个函数就行了.
再问: 还有,怎么把函数在标准模块中添加?这个代码是写在哪里,写在userform的代码里面吗?
再答: 看你想怎么用了,如果你已经做了userform,那你就可以把这个放到userform里,然后你代码里调用就行了,传递三边的数给函数,会返回给你面积值。 如果你想象使用excel的Sum函数公式那样在单元格里使用,那就得放到模块里了,从VBA project点击右键插入标准模块,把上面的函数放进去就行了。 声明一下:我上面写的程序没有错误判断,没做三角形三边是否符合要求的判断。
再问:
j就是这样的一个userform,好像在userform中输入代码不行啊,能不能解答一下?大神,求求求
再答: 那你把代码写在计算的按钮click事件中,然后a=边长a输入框的值, b=边长b输入框的值, c=边长c输入框的值,面积label的值=area。我不知道你做的输入框和label的变量名是什么,写个代码你再根据你的修改一下Private Sub CommandButton1_Click() Dim area As Double Dim perimeter As Double perimeter = (CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value)) / 2 area = Sqr(perimeter * (perimeter - CDbl(TextBox1.Value)) * (perimeter - CDbl(TextBox2.Value)) * (perimeter - CDbl(TextBox3.Value))) Label5.Caption = areaEnd Sub![](http://img.wesiedu.com/upload/5/46/546c5e7fa956375ec254dd44d707cd4f.jpg)
Dim perimeter As Double
Dim area As Double
perimeter = (a + b + c) / 2
area = Sqr(perimeter * (perimeter - a) * (perimeter - b) * (perimeter - c))
getArea = area
End Function
把这个函数放到标准模块中就行了,然后向调用excel的公式一样调用这个函数就行了.
再问: 还有,怎么把函数在标准模块中添加?这个代码是写在哪里,写在userform的代码里面吗?
再答: 看你想怎么用了,如果你已经做了userform,那你就可以把这个放到userform里,然后你代码里调用就行了,传递三边的数给函数,会返回给你面积值。 如果你想象使用excel的Sum函数公式那样在单元格里使用,那就得放到模块里了,从VBA project点击右键插入标准模块,把上面的函数放进去就行了。 声明一下:我上面写的程序没有错误判断,没做三角形三边是否符合要求的判断。
再问:
![](http://img.wesiedu.com/upload/c/96/c9664e81fd448c9b19fadbd26921054b.jpg)
再答: 那你把代码写在计算的按钮click事件中,然后a=边长a输入框的值, b=边长b输入框的值, c=边长c输入框的值,面积label的值=area。我不知道你做的输入框和label的变量名是什么,写个代码你再根据你的修改一下Private Sub CommandButton1_Click() Dim area As Double Dim perimeter As Double perimeter = (CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value)) / 2 area = Sqr(perimeter * (perimeter - CDbl(TextBox1.Value)) * (perimeter - CDbl(TextBox2.Value)) * (perimeter - CDbl(TextBox3.Value))) Label5.Caption = areaEnd Sub
![](http://img.wesiedu.com/upload/5/46/546c5e7fa956375ec254dd44d707cd4f.jpg)
VBA程序设计代码,设计一个函数,通过输入三角形的三个边长,计算三角形的面积,要求函数在标准模块中添加
matlab编写函数1、 编写一个函数文件计算三角形的面积,要求函数的输入为三角形三边的边长,输出为三角形
VBA程序设计代码,输入一个大于一的整数,然后分别计算从0到该数之间的奇数和和偶数和,怎么设计?如图
怎么设计一个程序:输入三角形的三个边长然后算面积?
编写一个求任意三角形面积的函数,并在主函数中调用它,计算任意三角形的面积.
C语言编写设计一个计算正方形面积的函数,边长由主函数输入,输出该正方形的面积.
输入三角形的三个边长,首先判断由该 3 个边长组成的三角形是否存在,如果存 在,计算并输出三角形的面积
c++编写程序根据键盘输入的边长计算三角形的面积并输出,判断能否构成三角形及三角形的面积设计成函数形式
用Java描述一个三角形,提供计算三角形面积方法.三角形的三个边长从键盘输入.
C#程序设计 输入三角形三边长,并计算的周长和面积
编写程序,设计一个三角形类,给定三角形的三条边长a,b,c,包含一个友元函数,用于比较两个三角形的面积大
VB程序设计:判断任意的三条边长能否构成三角形并计算其面积