[原创]甜橙计算软件，给VB初学者好的例子。
一个小程序：[甜橙计算软件](中文版)功能：用于计算日常的数据。
软件截图：
本程序由小宇编写，供给那些想学编程，而有感觉无从下手的 初学者。希望学者能从本软件中学到自己想要的东西。
为了使初学者更加方便理解，在多处核心位置添加注释。
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 "请在各个文本框中输入数据，并选择运算符号！", 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发布时间：2014/1/19
文件：
甜橙计算软件.rar
(2.69 MB)
[ 本帖最后由 VB丶小宇 于 2014-1-20 14:08 编辑 ]
我也是从新手一点一点走过来的，希望能够帮助他们！
