VB程序设计一般的四个步骤

1、建立应用程序界面

2、设置对象的属性

3、编写应用程序的代码

4、保存和运行程序

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

扩展资料

VB语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。

1、不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。

2、无原生支持多线程

Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

3、异常处理不完善

Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会d出一个明确写出出错原因对话框，接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。

★条件判断语句

条件判断控制最主要的概念在于条件表达式的功能。相关的流程控制语句，会依据所给定的测试

数据，对程序部分片段作选择性的执行 *** 作。

在VB中提供了If...Then与Select Case两种条件判断语句。

If...Then判断语句

If..Then判断语句属于一种单行假设判断语句，它会按照用户所给定的比较或逻辑表达式

进行判断。当判断结果为“True”也就是真时，则执行Then后的程序代码块，否则跳过该块的执行步骤。

使用语法的方法如下：

If 判断式 Then 执行语句

或

If 判断式 Then

执行语句1

执行语句2

End If

其实上述的两种语法并不相同的，主要差异在于第一种写法是使用在处理程序部分的源代码较短，

无需分段的时候：

If a >b Then Print "a >b"

而当处理程序部分需要分段时，则必须使用第二种写法将执行语句包括在"If...Then...End If"范围中：

If a >b Then

c = a + b

Print "a + b = " &c

End If

而If...Then...Else...End If语句则可以将不符合条件式的情况，交给Else后所接的程序代码来处理：

例如：

If a <b Then

c = a + b

Else

c = a - b

End If

Print c

在上面程序片段中，变量C的数值会由条件式”a<b“成立与否而有不同的输出结果。

至于ElseIf的语法也是和If搭配来使用，它主要是用来进行多重逻辑判断。

If...ElseIf...Else...End If使用语法的方法如下：

If 判断式1 Then //当判断式1成立时，执行以下语句

程序语句 甲

ElseIf 判断式2 Then //当判断式1不成立，但判断式2成立时执行以下语句

程序语句乙

ElseIf 判断式3 //当判断式1和2都不程序，但判断式3成立时执行以下语句

程序语句 丙

Else //当上面所有判断式都不成立时，执行下面的语句

程序语句 丁

End If

★Select Case判断语句

Select Case流程控制语句可以根据判断式的返回值来执行不同程序代码片段。

Select Case语法如下：

Select Case 参数

Case 条件1 //当判断式满足条件1时就执行以下的语句

程序语句1

程序语句2

Case 条件2 //当判断式满足条件2时就执行以下的语句

程序语句1

程序语句2

Case Else //当判断式无满足任何条件时就执行Case Else标签后的语句

程序语句1

End Select

由于Select Case仅能传入一个参数，也就是说它无法执行“比较”与“判断”的 *** 作，并且Case

仅能是数值而不能是表达式。

以下这个是个错误程序的片段：

Select Case A >B //错误！！！仅能传送一个参数

或是

Select Case A

Case A <C //错误！！！Case只能接受数值

★循环语句

当程序需要执行重复性工作时，可以使用循环控制语句连续执行某段程序代码，直到满足特定条件为

止。

VB提供了Fot...Next、While...Wend与Do...Liio三种循环控制语法。

For...Next循环语句

For...Next属于先测试循环控制语句，属于基本的循环控制语法。它按照用户所赋予的初值、终值

与步长表达式来重复执行某一特定程序区段。在每次执行前，系统会先检查目前初值状态是否符合

终值条件，如果不符合终值条件的话则执行增量运算后，再执行循环语句：反之如符合终值条件，则

跳出循环。

For 循环语法如下：

For 初值 to 终值 Step 步长

程序语句

Next

While...Wend循环语句

While...Wend属于先测试循环语句，当执行条件参数成立时，程序会执行While循环内语句内容，直到

条件参数不成立时为止。

While...Wend循环语句如下：

While 执行条件

执行语句1

执行语句2

Wend

Do...Loop循环语句

Do...Loop循环控制的运用与For...Next以及While...Wend语句类似，但是在执行过程上有一点差异。

那就是Do...Loop循环控制不管条件式是否成立，必定会先执行一次循环内的程序代码。

Do...Loop循环语法如下：

Do

执行语句1

执行语句2

…

Loop 条件判断式

Do...Loop的条件判断式有“Do...Loop While”与“Do...Loop Until”两种写法，分别说明如下：

Do...loop While语法如下：

Do

i = i + 1

Loop While i <= 100

上面循环语句执行时，会走进行“i=i+1”的运算 *** 作，再判断While后所加的条件式。

Do...Loop Until语法如下：

Do

i = i + 1

Loop Until i = 100

上面循环语句执行时，同样会先执行“i=i+1”的运算，再判断While后所加的条件式。

★无条件跳转控制

VB中提供了一个无条件跳转语句“GoTO”命令，让用户搭配程序代码标识符，进行指定位置的跳转

*** 作。

声明语法如下所示：

标识符字符串： //将标识符字符串后加上冒号，例如firstBlock:

程序代码标识符建立完成后，用户即可在程序中的任意位置执行“GoTo”命令，即能跳到程序代码

的标识符位置，执行其后所包含的代码内容。

先在程序中加一个Label,名字应该符合VB程序控件命名规范:

lbl<名称>

再加一个Timer控件,名字也要符合命名规范

在窗体代码对话框中打入

Private Sub Form_Load()

On Error Resume Next

Me.Font = "Arial"

Me.FontSize = 24

Me.FontBold = True

<Timer控件名>.Enabled = True

<Timer控件名>.Interval = 1000

End Sub

'下列函数只能二选其一

'是时间显示

Private Sub <Timer控件名>_Timer()

On Error Resume Next

<Label控件名>.Caption = Time

End Sub

'是日期与时间显示

Private Sub <Timer控件名>_Timer()

On Error Resume Next

<Label控件名>.Caption = Now

End Sub

---