甜橙计算软件，给VB初学者好的例子

发布时间：2020-12-17 08:02:48 所属栏目：百科来源：网络整理

导读：本程序由小宇编写，供给那些想学编程，而有感觉无从下手的初学者。希望学者能从本软件中学到自己想要的东西。为了使初学者更加方便理解，在多处核心位置添加注释。 PS: 1.在程序设计之初，就要做好程序错误的捕获工作，想全面程序可能发生的错误，并给与相

本程序由小宇编写，供给那些想学编程，而有感觉无从下手的初学者。希望学者能从本软件中学到自己想要的东西。
为了使初学者更加方便理解，在多处核心位置添加注释。
PS:
1.在程序设计之初，就要做好程序错误的捕获工作，想全面程序可能发生的错误，并给与相应的处理，否则会给程序带来致命错误，导致程序退出，影响使用。
2.在程序设计的过程中，要多考虑人性化的设计，要知道，用户想要的是更加灵活和有活力的程序，适当的加强与用户的互动是必要的。比如，在适当的位置添加提示弹窗，询问弹窗等，都是软件和用户最好的交互，但是要知道，过多的弹窗等提示会使用户感到厌烦。应该适当添加，达到理想的效果。
核心源代码：

程序代码：

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 "请在各个文本框中输入数据，并选择运算符号！","提示："         '在出现错误，错误代码=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 "清除成功！","提示："
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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!