[原创]甜橙计算软件，给VB初学者好的例子。

Option Explicit
Dim opt As String                         '定义一个字符串型变量opt
Private Sub About_Click()                 'About按钮的Click事件（即单击事件）
FormAbout.Show                            '调出另一新的"FormAbout"窗体
End Sub
Private Sub Add_Click()                   'Add（加）的单击事件
opt = "+"                                
End Sub
Private Sub CalculationCommand_Click()    '计算按钮的单击事件
On Error GoTo Wrong                       '设计一个错误捕获程序，用来捕获程序的未知错误
Dim No1 As Double, No2 As Double, Result As Double     '定义No1，No2,Result均为双精度型
No1 = No1Text.Text                        '将No1文本框中的文本赋值给No1
No2 = No2Text.Text                        '将No2文本框中的文本赋值给No2
Select Case opt                           '运用Select Case语句判断
Case "+"                                  '如果是"+"，也就是opt="+"
Result = No1 + No2                        '那么将No1+No2的值赋给Result，简单的说就是结果=No1+No2
Case "-"                                  '依次类推
Result = No1 - No2
Case "*"
Result = No1 * No2
Case "/"
If No2 <> 0 Then                          '用If语句来判断，如果No2(被除数)大于小于0（即不等于0）才执行下一行代码。
Result = No1 / No2                        '将No1/No2的值赋给Result
Else                                      '如果不满足No2<>0，也就是在No2=0的情况下执行
MsgBox "除数不能为0，请修改！", vbCritical + vbOKOnly, "提示："       '弹出一个对话框，告诉用户除数不能为0，必须修改。
End If      
End Select
ResultText.Text = Result                  '最后将Result赋值给Result文本框
If Err.Number = 13 Then                   '用If语句判断，如果错误代码是13，那么执行下一行代码
Wrong: MsgBox "请在各个文本框中输入数据，并选择运算符号！", vbCritical + vbOKOnly, "提示："         '在出现错误，错误代码=13的情况下，弹出对话框，报错。
End If
End Sub
Private Sub Division_Click()
opt = "/"
End Sub
Private Sub EmptyCommand_Click()
No1Text.Text = ""             '将No1文本框中的内容清空。
No2Text.Text = ""             '将No2文本框中的内容清空。
ResultText.Text = ""          '将Result文本框中的内容清空。
Add.Value = False             '将所有的单选框初始化。
Subtract.Value = False
Multiplicat.Value = False
Division.Value = False
MsgBox "清除成功！", vbInformation + vbOKOnly, "提示："    '人性化设计，弹出一个对话框，告诉用户，清除成功！
End Sub
Private Sub ExitCommand_Click()
Unload Me                     '卸载本窗体。
End Sub
Private Sub ExitTheProgram_Click()
Unload Me                     '卸载本窗体。
End Sub
Private Sub Multiplicat_Click()
opt = "*"
End Sub
Private Sub OperationAdd_Click()
Add.Value = True
CalculationCommand_Click
End Sub
Private Sub OperationDivision_Click()
Division.Value = True
CalculationCommand_Click
End Sub
Private Sub OperationEmpty_Click()
No1Text.Text = ""             '将No1文本框中的内容清空。
No2Text.Text = ""             '将No2文本框中的内容清空。
ResultText.Text = ""          '将Result文本框中的内容清空。
Add.Value = False
Subtract.Value = False
Multiplicat.Value = False
Division.Value = False
MsgBox "清除成功！", vbInformation + vbOKOnly, "提示："
End Sub
Private Sub OperationMultiplicat_Click()
Multiplicat.Value = True
CalculationCommand_Click
End Sub
Private Sub OperationSubtract_Click()
Subtract.Value = True
CalculationCommand_Click
End Sub
Private Sub Subtract_Click()
opt = "-"
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time
End Sub
Private Sub UserHelp_Click()
FormUserHelp.Show
End Sub