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++ 等语言而言，这样的异常处困樱让理破坏了代码的结构。

Private Sub Command1_Click()

Dim s As String

s = InputBox("输入圆的半径")

Call mycalc(s)

End Sub

Private Sub mycalc(s As String)

If IsNumeric(s) Then

    Dim PI As Double

    PI = 4 * Atn(1)

    Dim R As Integer

    R = CInt(s)

    

    Dim mystr As String

    mystr = "圆面积 = " & PI * (R ^ 2) & vbCrLf & vbCrLf

    mystr = mystr & "圆周长 = " & PI * R * 2 & vbCrLf & vbCrLf

    mystr = mystr & "球体积 = " &物好 PI * (R ^ 3) * 4 / 3

    罩宏铅

    MsgBox mystr

    

Else

    s = InputBox("输入圆绝告的半径")

    Call mycalc(s)

End If

End Sub

'第一题结束

'第二题

Private Function getNum(num As Integer, i As Integer)

 

Select Case i

Case 1 '取个位

getNum = CStr(num Mod 10)

Case 2 '取拾位

getNum = CStr(Int((num Mod 100) / 10))

Case 3 '取佰位

getNum = CStr(Int(num / 100))

End Select

 

End Function

Private Sub Command2_Click()

Randomize

'随机数

Dim n As Integer

n = int(Rnd * 900 + 100)

'逆序数字

Dim b As String

b = getNum(n, 1) & getNum(n, 2) & getNum(n, 3)

MsgBox "原数字： " & n & vbCrLf & vbCrLf & "翻转数字： " & b

End Sub

---