vb.net求面积 vb中计算三角形面积的代码
谁知道怎么用VB.NET编写一个算长方形面积的程序?
dim a as single=...'自己输入长方形的长
为杂多等地区用户提供了全套网页设计制作服务,及杂多网站建设行业解决方案。主营业务为成都网站制作、网站建设、杂多网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
dim b as single=...'自己输入长方形的宽
dim c as single=a*b'计算面积
textbox1.text=c'显示面积
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
扩展资料:
语言缺点:
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
vb.net任意n边形面积
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
新闻标题:vb.net求面积 vb中计算三角形面积的代码
文章URL:http://pwwzsj.com/article/doeeipd.html