13518219792
dim a as single=...'自己输入长方形的长
为杂多等地区用户提供了全套网页设计制作服务，及杂多网站建设行业解决方案。主营业务为成都网站制作、网站建设、杂多网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
dim b as single=...'自己输入长方形的宽
dim c as single=a*b'计算面积
textbox1.text=c'显示面积
代码如下：
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
Private Type PointXY
x As Double
y As Double
End Type
Private Sub Command1_Click()
Dim n As Integer
Dim s As Double
Dim sum As Double
Dim a() As PointXY
n = InputBox("请输入多边形的边数")
ReDim a(n)
s = 0
sum = 0
For i = 1 To n
a(i).x = Val(InputBox("请输入第" i "个点的坐标的X值"))
a(i).y = Val(InputBox("请输入第" i "个点的坐标的Y值"))
Next i
For i = 1 To n - 1
sum = sum + (a(i).x * a(i + 1).y - a(i + 1).x * a(i).y)
Next i
sum = sum + a(n).x * a(1).y - a(1).x * a(n).y
s = 0.5 * sum
MsgBox ("该多边形的面积为 " Abs(s))
End Sub
Private Sub Command2_Click()
Dim n As Integer
Dim sum As Double
Dim a() As PointXY
n = InputBox("请输入多边形的边数")
ReDim a(n)
s = 0
sum = 0
For i = 1 To n
a(i).x = Val(InputBox("请输入第" i "个点的坐标的X值"))
a(i).y = Val(InputBox("请输入第" i "个点的坐标的Y值"))
Next i
For i = 1 To n - 1
sum = sum + Sqr((a(i).x - a(i + 1).x) ^ 2 - (a(i).y - a(i + 1).y) ^ 2)
Next i
sum = sum + Sqr((a(n).x - a(1).x) ^ 2 - (a(n).y - a(1).y) ^ 2)
MsgBox ("该多边形的周长为 " sum)
End Sub
