vb语言编程实例（VB语言 编写一个程序）

本文目录

• VB语言 编写一个程序
• vb 例子
• 第十二题用vb语言写一下编程
• VB：编程计算三角形面积
• VB语言编程

VB语言 编写一个程序

将下列代码复制到一个文本文件，并将文本文件命名为Form1.frm，然后运行（我不知道你要取消按钮的用途）VERSION 5.00Begin 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 EndEndAttribute VB_Name = “Form1“Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate 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 LongPrivate Declare Function WritePrivateProfileString Lib “kernel32“ Alias “WritePrivateProfileStringA“ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPrivate Sub Command1_Click()If Text1 = ““ Then MsgBox “请输入名字！“ Text1.SetFocus Exit SubEnd IfRandomizeCF:Label3 = LTrim(Str(Int(Rnd() * 100000000)))Label3 = String(8 - Len(Label3), “0“) & Label3Open “D:\花名册\花名册.txt“ For Input As #1Do 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 IfLoopTG:Close #1Open “D:\花名册\花名册.txt“ For Append As #1Print #1, Text1 & “ “ & Label3 & “ “ & Format(Now, “yyyy年mm月dd日hh:nn:ss“)Close #1Text1.SelStart = 0Text1.SelLength = Len(Text1)End SubPrivate Sub Form_Load()If Dir(App.Path & “\MyTime.INI“) = ““ ThenMkDir “D:\花名册“Open “D:\花名册\花名册.txt“ For Append As #1Close #1End IfA = WritePrivateProfileString(“TIP“, “START“, Time$, App.Path & “\MyTime.INI“)ShowText1.SetFocusEnd Sub 更多VB代码请参阅我的博客：http://hi.baidu.com/zgmg/

vb 例子

1..Dim Words, Chars, MyStringFor Words = 10 To 1 Step -1 ’ 建立 10 次循环。 For Chars = 0 To 9 ’ 建立 10 次循环。 MyString = MyString & Chars ’ 将数字添加到字符串中。 Next Chars ’ Increment counter MyString = MyString & “ “ ’ 添加一个空格。Next Words2.Do...Loop 语句示例本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。Dim Check, CounterCheck = True: Counter = 0 ’ 设置变量初始值。Do ’ 外层循环。 Do While Counter 《 20 ’ 内层循环。 Counter = Counter + 1 ’ 计数器加一。 If Counter = 10 Then ’ 如果条件成立。 Check = False ’ 将标志值设成 False。 Exit Do ’ 退出内层循环。 End If LoopLoop Until Check = False ’ 退出外层循环。3.While...Wend 语句示例本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。Dim CounterCounter = 0 ’ 设置变量初值。While Counter 《 20 ’ 测试计数器的值。 Counter = Counter + 1 ’ 将计数器的值加一。Wend ’ 当 Counter 》 19 时则循环终止。Debug.Print Counter ’ 在“立即”窗口中显示数字 20。Select Case 语句示例本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。Dim NumberNumber = 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语言写一下编程

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

运行效果：

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语言编程

来练练手，有高招的话欢迎各位提出：1、思路：For循环，设置stepdim i,sum as integersum = 0for i = 1 to 99 step 2 sum = sum + inext2、思路：没什么好说的。。。private function Mysum(mydata() as double) as doubledim instance,sum as doublesum = 0.0for each instance in mydata sum = sum + instancenextreturn sum/mydata.countend function3、排序太多了，一艘一大把‘冒泡法private sub sort(byref mydata() as double)for i=1 to Ubound(mydata) for j=1 to Ubound(mydata)-i if mydata(j)《mydata(j+1) then temp=a(j) mydata(j)=mydata(j+1) mydata(j+1)=temp end if next jnext i