如何编写vb程序求三角形面积

知识问答 2022-04-02 12:26:11 admin

以下编写的vb程序，其功能为输入三角形的三边，求出三角形的面积。

操作方法

【步骤01】

首先启动VB程序软件，在打开软件前弹出的界面中选择【标准 EXE】，再单击【打开】，界面如图所示。

【步骤02】

单击【TextBox】,在“Form 1”窗体中拖动十字线画出合适的文本框大小或者是双击【TextBox】，会在窗体中间自动出现文本框控件，自己可以调节它的大小和位置，重复操作建立四个文本框即可。

【步骤03】

单击【CommandButton】,在“Form 1”窗体中拖动十字线画出合适的控制按钮大小或者是双击【CommandButton】，会在窗体中间自动出现控制键，自己可进行调节大小和位置，重复操作建立两个控制键即可。

【步骤04】

单击【Label】，在“Form 1”窗体中拖动十字线画出合适的大小或者是双击【Label】，会在窗体中间自动出现控件，自己可进行调节大小和位置，重复操作，如图所示

【步骤05】

单击“Text1”在界面最右面下方的“属性窗口”中选择“Text”,删除内容“Text1”或是改为“a=”,同时在“Font”中单击“宋体”右边的“...”按钮可以在弹出框中选择文本框中内容的字体、字形、大小，(Text2、Text3、Text4操作相似)。

【步骤06】

单击“Label1”,在界面最右面下方的“属性窗口”中选择“Caption”,删除内容“Label1”改为“a”,同时在“Font”中单击“宋体”右边的“...”按钮可以在弹出框中选择其中内容的字体、字形、大小（Label2、Label3、Label操作相似），操作如图所示

【步骤07】

单击“Command1”，在界面最右面下方的“属性窗口”中选择“Caption”,将“Command1”改为“计算”,同时在“Font”中单击“宋体”右边的“...”按钮可以在弹出框中选择其中内容的字体、字形、大小（Command2操作类似，只是名称改为“结束”）

【步骤08】

双击“Command1”即“计算”按钮，进入编辑程序，如图所示：
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double, 面积 As Double
a = Text1.Text
b = Text2.Text
c = Text3.Text
s = (a + b + c) / 2
面积 = Sqr(s * (s - a) * (s - b) * (s - c))
Text4.Text = 面积
End Sub
再双击“Command2”即“结束”按钮，进入编辑程序，如图所示：
Private Sub Command2_Click()
End
End Sub