vb语言编程实例（VB：编程计算三角形面积）

：暂无数据 2026-09-28 12:10:02 ：0

今天给各位分享VB：编程计算三角形面积的知识，其中也会对VB：编程计算三角形面积进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录

VB：编程计算三角形面积
VB语言编程的格式及代码
第十二题用vb语言写一下编程
vb 例子
VB语言编写一个程序

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

扩展资料：

注释方式

在VB中，注释有2种方式。

1.以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。

2.也可以使用一个撇号（’）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

特征衡量

在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。

事件（Event）

事件是指发生在某一对象上的事情。事件又可分为鼠标事件和键盘事件。例如，在命令按钮（Command Button）这一对象上可能发生鼠标单击（Click）、鼠标移动（Mouse Move）、鼠标按下（Mouse Down）等鼠标事件，也可能发生键盘按下（Key Down）等键盘事件。总之，事件指明了对象“什么情况下做？”，常用于定义对象发生某种反映的时机和条件。

方法（Method）

方法是用来控制对象的功能及操作的内部程序。例如，人具有说话、行走、学习、睡觉等功能，在visual Basic中，对象所能提供的这些功能和操作，就称作“方法”。以窗体为例，它具有显示（show）或隐藏（hide）的方法。总之，方法指明了对象“能做什么？”，常用于定义对象的功能和操作。

属性（Property）

属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标。可以通过属性改变对象的特性。

有些属性可以在设计时通过属性窗口来设置，不用编写任何代码；而有些属性则必须通过编写代码，在运行程序的同时进行设置。可以在运行时读取和设置取值的属性成为读写属性，只能读取的属性成为只读属性。总之属性指明了对象“是什么样的？”，常用于定义对象的外观。

对象与类

对象（Object）

Visual Basic.NET 具有“面向对象”的特性，Visual Basic.NET 应用种程序的基本单元是对象，用 Visual Basic.NET 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做 Visual Basic.NET 程序设计的核心。

在 Visual Basic.NET程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。

类（Class）

在 Visual Basic.NET中，对象是由类创建的，因此对象可以说是类的具体实例，这就好比是蛋糕和做蛋糕的模具之间的关系。

各种不同的对象分属于各种不同的种类。同一类对象可能具有一些不同的特征（或是说同一类对象不一定具有完全相同的特性）；具有某些相同的特性的对象，不一定是同一类对象，这就好比是人和猴子虽然都有身高、性别等特征，但二者之间还存在着智商、语言等特性差异，这两个对象之间的特性相差很多，根本就不能算是同一类对象。而男人和女人，虽然有着性别、生理等方面的差异，但他们绝大部分特性相同，可以算是同一种类。由此，可以归结为一句话：同一类对象的绝大部分特性相同。

参考资料：百度百科：Visual Basic编程语言

VB语言编程的格式及代码

Visual Basic是它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统。

VB编程有结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。

Msgobx “HelloWorld“ ’VB最简单的输出代码

第十二题用vb语言写一下编程

本程序限制只能输入大写字母，且结束字母要大于或等于起始字母。

Module VBModule

    Sub Main()
        Console.WriteLine(“Please Input The Begining Word(Between A-Z):“)
        Dim Begining As Char = Console.ReadLine()
        Do While (Asc(Begining) 《 Asc(“A“)) Or (Asc(Begining) 》 Asc(“Z“) )
            Console.WriteLine(“Error! Please Input The Begining Word Again(Between A-Z):“)
            Begining = Console.ReadLine()
        Loop
        Console.WriteLine(“Please Input The Ending Word(Between {0}-Z):“,Begining)
        Dim Ending As Char = Console.ReadLine()
        Do While Asc(Ending) 《 Asc(Begining) Or Asc(Ending) 》 Asc(“Z“)
            Console.WriteLine(“Error! Make Sure The Input Between {0}-Z !“,Begining)
            Console.WriteLine(“Please Input The Ending Word Again(Between {0}-Z):“,Begining)
            Ending = Console.ReadLine()
        Loop
        Console.WriteLine(“From: {0} To {1}“, Begining,Ending)
        Dim be As Integer = Asc(Begining)
        Dim ed As Integer = Asc(Ending)
        Dim loopCounter As Integer
        Dim i As Integer
        For i = 0 To ed-be
            For loopCounter = be To ed
                Console.Write(“{0}  “, Chr(((loopCounter-be+i) mod (ed-be+1)) mod ed + be ))
            Next
            Console.WriteLine(““)
        Next
    End Sub

End Module

运行效果：

vb 例子

1..

Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ’ 建立 10 次循环。
For Chars = 0 To 9 ’ 建立 10 次循环。
MyString = MyString & Chars ’ 将数字添加到字符串中。
Next Chars ’ Increment counter
MyString = MyString & “ “ ’ 添加一个空格。
Next Words

2.
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。

Dim Check, Counter
Check = True: Counter = 0 ’ 设置变量初始值。
Do ’ 外层循环。
Do While Counter 《 20 ’ 内层循环。
Counter = Counter + 1 ’ 计数器加一。
If Counter = 10 Then ’ 如果条件成立。
Check = False ’ 将标志值设成 False。
Exit Do ’ 退出内层循环。
End If
Loop
Loop Until Check = False ’ 退出外层循环。

3.
While...Wend 语句示例
本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。

Dim Counter
Counter = 0 ’ 设置变量初值。
While Counter 《 20 ’ 测试计数器的值。
Counter = Counter + 1 ’ 将计数器的值加一。
Wend ’ 当 Counter 》 19 时则循环终止。
Debug.Print Counter ’ 在“立即”窗口中显示数字 20。

Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。

Dim Number
Number = 8 ’ 设置变量初值。
Select Case Number ’ 判断 Number 的值。
Case 1 To 5 ’ Number 的值在 1 到 5 之间，包含1 和 5 。
Debug.Print “Between 1 and 5“
’ 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ’ Number 的值在 6 到 8 之间。
Debug.Print “Between 6 and 8“
Case 9 到 10 ’ Number 的值为 9 或 10。
Debug.Print “Greater than 8“
Case Else ’ 其他数值。
Debug.Print “Not between 1 and 10“
End Select

VB语言编写一个程序

将下列代码复制到一个文本文件，并将文本文件命名为Form1.frm，然后运行（我不知道你要取消按钮的用途）
VERSION 5.00
Begin VB.Form Form1
Caption = “Form1“
ClientHeight = 4035
ClientLeft = 60
ClientTop = 450
ClientWidth = 5310
LinkTopic = “Form1“
ScaleHeight = 4035
ScaleWidth = 5310
StartUpPosition = 3 ’窗口缺省
Begin VB.TextBox Text1
BeginProperty Font
Name = “宋体“
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 465
Left = 1920
TabIndex = 3
Top = 240
Width = 2175
End
Begin VB.CommandButton Command2
Caption = “取消“
BeginProperty Font
Name = “宋体“
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 615
Left = 3000
TabIndex = 1
Top = 2400
Width = 1455
End
Begin VB.CommandButton Command1
Caption = “确定“
Default = -1 ’True
BeginProperty Font
Name = “宋体“
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 615
Left = 720
TabIndex = 0
Top = 2400
Width = 1455
End
Begin VB.Label Label3
BeginProperty Font
Name = “宋体“
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 375
Left = 1800
TabIndex = 5
Top = 1080
Width = 2295
End
Begin VB.Label Label2
Caption = “八位号“
BeginProperty Font
Name = “宋体“
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 495
Left = 480
TabIndex = 4
Top = 1080
Width = 1215
End
Begin VB.Label Label1
Caption = “姓名“
BeginProperty Font
Name = “宋体“
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 375
Left = 480
TabIndex = 2
Top = 360
Width = 1215
End
End
Attribute VB_Name = “Form1“
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileString Lib “kernel32“ Alias “GetPrivateProfileStringA“ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib “kernel32“ Alias “WritePrivateProfileStringA“ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Sub Command1_Click()
If Text1 = ““ Then
MsgBox “请输入名字！“
Text1.SetFocus
Exit Sub
End If
Randomize
CF:
Label3 = LTrim(Str(Int(Rnd() * 100000000)))
Label3 = String(8 - Len(Label3), “0“) & Label3
Open “D:\花名册\花名册.txt“ For Input As #1
Do While Not EOF(1)
Input #1, strzc
If strzc = ““ Then GoTo TG
k = Split(strzc, “ “)
If k(1) = Label3 Then
Close #1
GoTo CF
End If
If k(0) = Text1 Then
w = MsgBox(“输入的姓名已经存在，点“是”保存，点“否”放弃。“, vbYesNo, “提示“)
If w = 7 Then
Close #1
Exit Sub
End If
End If
Loop
TG:
Close #1
Open “D:\花名册\花名册.txt“ For Append As #1
Print #1, Text1 & “ “ & Label3 & “ “ & Format(Now, “yyyy年mm月dd日hh:nn:ss“)
Close #1
Text1.SelStart = 0
Text1.SelLength = Len(Text1)

End Sub

Private Sub Form_Load()
If Dir(App.Path & “\MyTime.INI“) = ““ Then
MkDir “D:\花名册“
Open “D:\花名册\花名册.txt“ For Append As #1
Close #1
End If
A = WritePrivateProfileString(“TIP“, “START“, Time$, App.Path & “\MyTime.INI“)
Show
Text1.SetFocus
End Sub
更多VB代码请参阅我的博客：http://hi.baidu.com/zgmg/