锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net三角形 vb三角形代码

语言IT技术

用VB.NET.编写一个输入三角形的三条边a，b，c的值，根据其数值 ， 判断能否构成三角形 。Dim a, b, c, s, p As Single
a = Val(InputBox("请输入三角形边长a"))
b = Val(InputBox("请输入三角形边长b"))
c = Val(InputBox("请输入三角形边长c"))
If a + b = c Or b + c = a Or c + a = b Then
MsgBox("这样的三角形不存在")
Else
If a = b Or b = c Or c = a Then
MsgBox("这是一个等腰三角形")
End If
If a = b = c Then
MsgBox("这是一个等边三角形")
End If
If a ^ 2 + b ^ 2 = c ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Or c ^ 2 + a ^ 2 = b ^ 2 Then
MsgBox("这是一个直角三角形")
End If
p = (a + b + c) / 2
s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))
MsgBox("这个三角形的面积是"s)
End If
End Sub
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，显示具有n行的杨辉三角形 。参考：
以下为十行的杨辉三角输出，根据这个自己做相应修改，都做好了 ， 那你就是伸手党了 。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim n As Integer
n = 10
Dim dete(n, n) As Integer
Dim sum As Integer
For i = 0 To n
For j = 0 To i
If i = 0 Then
dete(i, j) = 1
ElseIf j = 0 Then
dete(i, j) = 1
ElseIf i = j Then
dete(i, j) = 1
Else
dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)
End If
Next
Next
For i = 0 To n
For j = 0 To i
Debug.Write(dete(i, j)" ")
sum += dete(i, j)
Next
Debug.WriteLine(" ")
Next
End Sub
End Class
在vb中 。如何进行三角函数的程序代码编写有几个地方要注意vb.net三角形：
1、VB中vb.net三角形的三角函数vb.net三角形的角度全部是用弧度制表示的vb.net三角形，如果是度数的话 ， 应先乘以180再除以π转成弧度，再用函数计算结果 。
2、VB中直接支持的三角函数有：Sin()、Cos()、Tan()，如果涉及到其它三角函数 ， 可以从下面列出的代码中自己选择相应的函数：
Function
【vb.net三角形 vb三角形代码】Sec(X)
As
Double
'正割
Sec
=
1
/
Cos(Angle)
End
Function
Function
Csc(X)
As
Double
'余割
Csc
=
1
/
Sin(Angle)
End
Function
Function
Cot(X)
As
Double
'余切
Cot
=
1
/
Tan(Angle)
End
Function
Function
ArcSin(X)
As
Double
'反正弦
ArcSin
=
Atn(X
/
Sqr(-X
*
X
+
1))
End
Function
Function
ArcCos(X)
As
Double
'反余弦
ArcCos
=
Atn(-X
/
Sqr(-X
*
X
+
1))
+
2
*
Atn(1)
End
Function
Function
ArcSec(X)
As
Double
'反正割
ArcSec
=
Atn(X
/
Sqr(X
*
X
-
1))
+
Sgn((X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCsc(X)
As
Double
'反余割
ArcCsc
=
Atn(X
/
Sqr(X
*
X
-
1))
+
(Sgn(X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCot(X)
As
Double
'反余切
ArcCot
=
Atn(X)
+
2
*
Atn(1)
End
Function
Function
HSin(X)
As
Double
'双曲正弦
HSin
=
(Exp(X)
-
Exp(-X))
/
2
End
Function
Function
HCos(X)
As
Double
'双曲余弦
HCos
=
(Exp(X)
+
Exp(-X))
/
2
End
Function
Function
HTan(X)
As
Double
'双曲正切
HTan
=
(Exp(X)
-
Exp(-X))
/
(Exp(X)
+
Exp(-X))
End
Function
Function
HSec(X)
As
Double
'双曲正割
HSec
=
2
/
(Exp(X)
+
Exp(-X))
End
Function
Function
HCsc(X)
As
Double
'双曲余割
HCsc
=
2
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HCot(X)
As
Double
'双曲余切
HCot
=
(Exp(X)
+
Exp(-X))
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HArcsin(X)
As
Double
'反双曲正弦
HArcsin
=
Log(X
+
Sqr(X
*
X
+
1))
End
Function
Function
HArccos(X)
As
Double
'反双曲余弦
HArccos
=
Log(X
+
Sqr(X
*
X
-
1))
End
Function
Function
HArctan(X)
As
Double
'反双曲正切
HArctan
=
Log((1
+
X)
/
(1
-
X))
/
2
End
Function
Function
HArcsec(X)
As
Double
'反双曲正割
HArcsec
=
Log((Sqr(-X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccsc(X)
As
Double
'反双曲余割
HArccsc
=
Log((Sgn(X)
*
Sqr(X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccot(X)
As
Double
'反双曲余切
HArccot
=
Log((X
+
1)
/
(X
-
1))
/
2
End
Function
用vb.net2008打印杨辉三角形(打印10行),要求如图所示？Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim n As Integer, i As Integer, j As Integer, a(,) As Integer
n = 10
ReDim a(n + 1, n + 1)
For i = 1 To n + 1
a(i, 1) = 1 : a(i, i) = 1 : Next i
For i = 3 To n + 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n + 1
For j = 1 To i
TextBox1.AppendText(Space(4 - Len(Trim(Str(a(i, j)))))Trim(Str(a(i, j))))
Next j
TextBox1.AppendText(vbCrLf)
Next i
End Sub
End Class,9,
xixihahano1举报
谢谢了，但是你写的代码可以输出多少行？多久会溢出了
举报ccddty
没试过，你可以试试，将n的值加大 当n》16的时候就显示“参数“Number”必须大于或等于 0 。”了 有没有办法解决？,
vb.net三角形的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb三角形代码、vb.net三角形的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何开设《作妖记》服务器？ 作妖记怎么开服务器

    下一篇：后台服务器出现问题怎么办