VB：编程计算三角形面积
提示：三角形面积的计算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c))
其中，s = (a + b + c) / 2
注意：三角形的三条边是要判断是否符合形成一个三角形！！！！ 展开
代码如下：
Dim a!, b!, c!, s!, p!
a = InputBox("请输入第一条边长")
b = InputBox("请输入第二条边长")
c = InputBox("请输入第三条边长")
If a + b <= c Or b + c <= a Or c + a <= b Then
Print "这样的三角形不存在"
Else
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "这个三角形的面积是"; s
End If
扩展资料：
语言缺点：
Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。
不支持继承
VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。
无原生支持多线程
Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。
异常处理不完善
Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。
Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。
微软开发了一系列由 Visual Basic 所派生的语言：
VBA
Visual Basic for Applications(VBA)：包含在微软的应用程序中（如Microsoft Office），以及类似WordPerfect、Office这样第三方的产品里面。VBA 这样嵌入在各种应用程序中看起来有些矛盾，但是它的功能和 VB 一样强大。
VBS
VBScript(VBS)：是默认的ASP语言，还可以用在Windows脚本编写和网页编码中。尽管它的语法类似于VB，但是它却是一种完全不同的语言。VBS 不使用 VB运行库运行，而是由Windows脚本主机解释执行。这两种语言之中的不同点影响ASP网站的表现。
vb.net
Visual Basic .NET(vb .net)：当微软准备开发一种新的编程工具的时候，第一决定就是利用 VB 6.0 来进行旧改，或者就是重新组建工程开发新工具。微软后来开发了 VB 的继任者Visual Basic .NET，同时也是.NET平台的一部分。vb .net编程语言是一种真正的面向对象编程语言，和 VB 并不完全兼容。
Visual Basic .NET(vb .net) 是新一代的 VB 语言，并不只是 VB 6.0 的简单升级，vb .net 与 VB (泛指 VB 6.0 之前的版本) 之间有非常大的区别。其新特性主要表现在以下几方面：
1．vb .net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。
2．vb .net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。
3．vb .net 中使用ado .net来访问数据库，ado .net是.NET Framework的一部分。在 vb .net 中实现数据访问的方法主要有两种：其一是在程序设计阶段，通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。
4．在 vb .net 中是使用asp .net技术来编写 Web 页面的。在asp .net中使用的也不是脚本语言，而是真正意义的编程语言。凭借asp .net的 Web 应用程序、XML Web Services 等基于 Web 的功能，使得 vb .net 开发 Web 页面与开发 Windows 应用程序很相似，Web 页面代码也显得有条有理了。
5．vb .net 已经成为完全的面向对象的编程语言，并且新增更多语言特性。
参考资料：百度百科：VB
代码如下：
Dim a!, b!, c!, s!, p!
a = InputBox("请输入第一条边长")
b = InputBox("请输入第二条边长")
c = InputBox("请输入第三条边长")
If a + b <= c Or b + c <= a Or c + a <= b Then
Print "这样的三角形不存在"
Else
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "这个三角形的面积是"; s
End If
扩展资料：
注释方式
在VB中，注释有2种方式。
1.以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。
2.也可以使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。
特征衡量
在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。
事件（Event）
事件是指发生在某一对象上的事情。事件又可分为鼠标事件和键盘事件。例如，在命令按钮（Command Button）这一对象上可能发生鼠标单击（Click）、鼠标移动（Mouse Move）、鼠标按下（Mouse Down）等鼠标事件，也可能发生键盘按下（Key Down）等键盘事件。总之，事件指明了对象“什么情况下做？”，常用于定义对象发生某种反映的时机和条件。
方法（Method）
方法是用来控制对象的功能及操作的内部程序。例如，人具有说话、行走、学习、睡觉等功能，在visual Basic中，对象所能提供的这些功能和操作，就称作“方法”。以窗体为例，它具有显示（show）或隐藏（hide）的方法。总之，方法指明了对象“能做什么？”，常用于定义对象的功能和操作。
属性（Property）
属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标。可以通过属性改变对象的特性。
有些属性可以在设计时通过属性窗口来设置，不用编写任何代码；而有些属性则必须通过编写代码，在运行程序的同时进行设置。可以在运行时读取和设置取值的属性成为读写属性，只能读取的属性成为只读属性。总之属性指明了对象“是什么样的？”，常用于定义对象的外观。
对象与类
对象（Object）
Visual Basic.NET 具有“面向对象”的特性，Visual Basic.NET 应用种程序的基本单元是对象，用 Visual Basic.NET 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做 Visual Basic.NET 程序设计的核心。
在 Visual Basic.NET程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。
类（Class）
在 Visual Basic.NET中，对象是由类创建的，因此对象可以说是类的具体实例，这就好比是蛋糕和做蛋糕的模具之间的关系。
各种不同的对象分属于各种不同的种类。同一类对象可能具有一些不同的特征（或是说同一类对象不一定具有完全相同的特性）；具有某些相同的特性的对象，不一定是同一类对象，这就好比是人和猴子虽然都有身高、性别等特征，但二者之间还存在着智商、语言等特性差异，这两个对象之间的特性相差很多，根本就不能算是同一类对象。而男人和女人，虽然有着性别、生理等方面的差异，但他们绝大部分特性相同，可以算是同一种类。由此，可以归结为一句话：同一类对象的绝大部分特性相同。
Do
Dim a As Single, b As Single, c As Single, p As Single, s As Single
a = Val(InputBox("请输入三角形第1条边长"))
b = Val(InputBox("请输入三角形第2条边长"))
c = Val(InputBox("请输入三角形第3条边长"))
s = (a + b + c) / 2
If a >= s Or b >= s Or c >= s Then
MsgBox "不能构成三角形"
Else
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "面积为" & area
End If
Loop
End
End Sub
a = InputBox("请输入第一条边长")
b = InputBox("请输入第二条边长")
c = InputBox("请输入第三条边长")
If a + b <= c Or b + c <= a Or c + a <= b Then
Print "这样的三角形不存在"
Else
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "这个三角形的面积是"; s
End If
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b + c And b < a + c And c < a + b Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Text4.Text = s
Else
Text4.Text = "不能构成三角形！"
End If
End Sub
