vb程序设计求三角形面积

1、海伦公式:p为三角形的周长的一半,而a,b,c分别为三角形三边的长度, S=p(p-a)(p-b)(p-c)=[(a+b+c)(a+b-c)(a+c-b)(b+c-a)]/2

2、已知底边和高，计算就简单了

3、已知两边和夹角，先求出第三边，再使用第一项计算

其他的类似。源程序如下：

Option Explicit

Dim A As Double, B As Double, C As Double

Dim Ja As Double, Jb As Double, Jc As Double

Dim S As Double

Private Sub Form_Load()

S = S1(3, 6, 8) '已知三边,求面积

MsgBox "三边:3、6、8，面积是" & S

S = S1(3, 6, C1(3, 6, 30 3142 / 180)) '已知两边和夹角,求面积

MsgBox "两边及夹角:3、6、30，面积是" & S

S = S2(3, 6) '已知底和高,求面积

MsgBox "底和高:3、6，面积是" & S

End Sub

Private Function C1(A As Double, B As Double, Jc As Double) As Double

C1 = Sqr(A A + B B - 2 A B Cos(Jc))

End Function

Private Function S1(A As Double, B As Double, C As Double) As Double

S1 = (A + B + C) (A + B - C) (A + C - B) (B + C - A) / 2

End Function

Private Function S2(D As Double, G As Double) As Double

S2 = D G / 2

End Function

'这个很简单的了，你用记事本把这段代码复制过去，然后另存为frm就可以了

'然后用vb打开。看看效果。

'以下保存为 任务名称frm

VERSION 500

Begin VBForm Form1

Caption = "计算机"

ClientHeight = 4230

ClientLeft = 60

ClientTop = 750

ClientWidth = 3165

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 4230

ScaleWidth = 3165

StartUpPosition = 2 '屏幕中心

Begin VBFrame Frame1

Height = 3495

Left = 120

TabIndex = 1

Top = 600

Width = 2895

Begin VBCommandButton cmdResult

Caption = "="

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1080

TabIndex = 20

Top = 3000

Width = 1695

End

Begin VBCommandButton cmdOff

Caption = "OFF"

Height = 375

Left = 1560

TabIndex = 19

Top = 240

Width = 495

End

Begin VBCommandButton cmdCE

Caption = "CE"

Height = 375

Left = 2280

TabIndex = 18

Top = 240

Width = 495

End

Begin VBCommandButton cmdchu

Caption = "/"

Height = 375

Left = 2280

TabIndex = 17

Top = 2520

Width = 495

End

Begin VBCommandButton cmdjia

Caption = "+"

Height = 375

Left = 2280

TabIndex = 16

Top = 720

Width = 495

End

Begin VBCommandButton cmd0

Caption = "0"

Height = 375

Left = 840

TabIndex = 15

Top = 2520

Width = 495

End

Begin VBCommandButton cmd6

Caption = "6"

Height = 375

Left = 1560

TabIndex = 14

Top = 1320

Width = 495

End

Begin VBCommandButton cmd8

Caption = "8"

Height = 375

Left = 840

TabIndex = 13

Top = 720

Width = 495

End

Begin VBCommandButton cmd4

Caption = "4"

Height = 375

Left = 120

TabIndex = 12

Top = 1320

Width = 495

End

Begin VBCommandButton cmd9

Caption = "9"

Height = 375

Left = 1560

TabIndex = 11

Top = 720

Width = 495

End

Begin VBCommandButton cmd2

Caption = "2"

Height = 375

Left = 840

TabIndex = 10

Top = 1920

Width = 495

End

Begin VBCommandButton cmdjian

Caption = "-"

Height = 375

Left = 2280

TabIndex = 9

Top = 1320

Width = 495

End

Begin VBCommandButton cmdPoint

Caption = ""

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1560

TabIndex = 8

Top = 2520

Width = 495

End

Begin VBCommandButton cmdcheng

Caption = ""

Height = 375

Left = 2280

TabIndex = 7

Top = 1920

Width = 495

End

Begin VBCommandButton cmd5

Caption = "5"

Height = 375

Left = 840

TabIndex = 6

Top = 1320

Width = 495

End

Begin VBCommandButton cmd3

Caption = "3"

Height = 375

Left = 1560

TabIndex = 5

Top = 1905

Width = 495

End

Begin VBCommandButton cmd1

Caption = "1"

Height = 375

Left = 120

TabIndex = 4

Top = 1920

Width = 495

End

Begin VBCommandButton cmd7

Caption = "7"

Height = 375

Left = 120

TabIndex = 3

Top = 720

Width = 495

End

Begin VBCommandButton cmdChange

Caption = "+/-"

Height = 375

Left = 120

TabIndex = 2

Top = 2520

Width = 495

End

End

Begin VBTextBox txt

Alignment = 1 'Right Justify

Enabled = 0 'False

BeginProperty Font

Name = "宋体"

Size = 105

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 120

Locked = -1 'True

TabIndex = 0

Top = 120

Width = 2895

End

Begin VBMenu meuFile

Caption = "文件(&F)"

Begin VBMenu meuExit

Caption = "退出(&X)"

Shortcut = ^X

End

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim XiaoShu As Boolean

'在窗体变量中声明一个布尔值来判断是否按下了小数点键，防止txt中出现多个小数。如果已经输入了小数点则Xiaoshu为True，否则为False

Dim FuHao As Byte

'声明一个Byte来记录我们按下了什么符号，1为"+"，2为"-"，3为""，4为"/"

Dim FirstNumber As Double

'声明一个变量来记录 *** 作数的第一个数,如A+B，那么FirstNumber来记下A的值。

Dim DengHao As Boolean

'声明一个变量来记录是否按下了=号，如果按下了则为True

Private Sub cmd0_Click()

If txtText <> "" Then txtText = txtText + "0" '防止多个0在文本中出现

End Sub

Private Sub cmd1_Click() '按下1时

If Not DengHao Then '没按下等号

txtText = txtText + "1"

Else

txtText = "1" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmd2_Click() '按下2时

If Not DengHao Then '没按下等号

txtText = txtText + "2"

Else

txtText = "2" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmd3_click() '按下3时

If Not DengHao Then '没按下等号

txtText = txtText + "3"

Else

txtText = "3" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmd4_Click() '按下4时

If Not DengHao Then '没按下等号

txtText = txtText + "4"

Else

txtText = "4" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmd5_Click() '按下5时

If Not DengHao Then '没按下等号

txtText = txtText + "5"

Else

txtText = "5" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmd6_Click() '按下6时

If Not DengHao Then '没按下等号

txtText = txtText + "6"

Else

txtText = "6" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmd7_Click() '按下7时

If Not DengHao Then '没按下等号

txtText = txtText + "7"

Else

txtText = "7" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmd8_Click() '按下8时

If Not DengHao Then '没按下等号

txtText = txtText + "8"

Else

txtText = "8" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmd9_Click() '按下9时

If Not DengHao Then '没按下等号

txtText = txtText + "9"

Else

txtText = "9" '按下了等号

DengHao = False

End If

End Sub

Private Sub cmdCE_Click()

txtText = ""

XiaoShu = False

End Sub

Private Sub cmdChange_Click()

If (Sgn(Val(txtText))) = 1 Then txtText = "-" + txtText: Exit Sub '用Sgn来判断txt文本框内的值的符号。大于0的话就在前面加上"-"

If (Sgn(Val(txtText))) = -1 Then txtText = Abs(Val(txtText)) 'txt文本框的文本为大于0的数txt前面的"-"去掉。

End Sub

Private Sub cmdcheng_Click()

FirstNumber = Val(txtText)

FuHao = 3

txtText = ""

XiaoShu = False

End Sub

Private Sub cmdchu_Click()

FirstNumber = Val(txtText)

FuHao = 4

txtText = ""

XiaoShu = False

End Sub

Private Sub cmdjia_Click()

FirstNumber = Val(txtText)

FuHao = 1

txtText = ""

XiaoShu = False

End Sub

Private Sub cmdjian_Click()

FirstNumber = Val(txtText)

FuHao = 2

txtText = ""

XiaoShu = False

End Sub

Private Sub cmdOff_Click()

End

End Sub

Private Sub cmdPoint_Click()

If txtText = "" Then txtText = "0"

If Not XiaoShu Then '当我们以前没有按下小数点键时在txt中加上小数点

txtText = txtText + ""

XiaoShu = True

End If

End Sub

Private Sub cmdResult_Click()

If FuHao = 1 Then '按下了+号

txtText = FirstNumber + Val(txtText)

End If

If FuHao = 2 Then '按下了-号

txtText = FirstNumber - Val(txtText)

End If

If FuHao = 3 Then '按下了号

txtText = FirstNumber Val(txtText)

End If

If FuHao = 4 Then '按下了、号

txtText = FirstNumber / Val(txtText)

End If

DengHao = True '记录下按了=号

XiaoShu = False

End Sub

Private Sub meuExit_Click()

End

End Sub

以下是求出100-200之间的所有素数的VB程序设计：

Public Function IsPrime(ByVal num As Integer) As Boolean

' 判断一个整数是否为素数

If num < 2 Then

IsPrime = False

ElseIf num = 2 Then

IsPrime = True

ElseIf num Mod 2 = 0 Then

IsPrime = False

Else

Dim i As Integer

For i = 3 To MathSqrt(num) Step 2

If num Mod i = 0 Then

IsPrime = False

Exit Function

End If

Next i

IsPrime = True

End If

End Function

Private Sub btnGetPrimes_Click(sender As Object, e As EventArgs) Handles btnGetPrimesClick

' 找出100-200之间的所有素数

Dim i As Integer

For i = 100 To 200

If IsPrime(i) Then

lstPrimesItemsAdd(i)

End If

Next i

End Sub

上述程序中，IsPrime函数用于判断一个整数是否为素数，btnGetPrimes_Click事件处理程序用于找出100-200之间的所有素数并将其显示在lstPrimes控件中。该程序使用了基本的素数判定方法，即从3到该数的平方根范围内枚举可能的因子，如果能整除则该数不是素数。

VB60便携小程序很方便，今天我们就来看看vb制作一个加法计算器的教程。

1、启动软件，新建一个变准 EXE工程 。

2、我们在窗体上绘制好要使用到的控件。

3、双击 计算按钮 进入代码窗口，我们可以在这里编写代码。

4、接下来我们打入累加的 赋值语句。

5、接下来我们点击运行测试的 小三角。

6、这时候我们就可以开始计算了。

以上就是VB60编写一个加法计算器的方法，希望大家喜欢，请继续关注我们。

循环执行过程:

i a(i-1) a(i)

2 1 2

3 2 6

4 6 24

5 24 120

所以a(2)是2, a(5)是120

以上就是关于vb程序设计求三角形面积全部的内容，包括:vb程序设计求三角形面积、用VB设计一个计算器、求出100-200之间的所有素数的VB程序设计。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！