本案例是我给小孩子做的编程入门练习题，很适合编程新手和少年儿童练习编程。本案例是用VBA做的，马上出C#语言的解法。

一、题目要求

生成1个窗体，3个文本框。两个文本框输入数字A和数字B，自动比较两个数字的大小，显示在第三个文本框里。

二、制作过程

先生成一个空白窗体，然后在窗体的”设计视图“，点击控件，生成三个文本框控件。

下一步是进行VBA编程，这块是技术核心，要注意两点：

1.模块式开发理念。

核心计算过程封装在一个子过程中，核心计算代码与自动化代码要分开。核心代码如下：

Public Sub judge()
If Val(Nz(Text0)) > Val(Nz(Text1)) Then
    Text2 = "数字A" & vbCrLf & "大于" & vbCrLf & "数字B"
    Me.Text2.ForeColor = RGB(255, 0, 0)
    Me.Label2.ForeColor = RGB(255, 0, 0)
ElseIf Val(Nz(Text0)) < Val(Nz(Text1)) Then
    Text2 = "数字A" & vbCrLf & "小于" & vbCrLf & "数字B"
    Me.Text2.ForeColor = RGB(0, 120, 0)
    Me.Label2.ForeColor = RGB(0, 120, 0)
Else
    Text2 = "数字A" & vbCrLf & "等于" & vbCrLf & "数字B"
    Me.Text2.ForeColor = RGB(0, 0, 255)
    Me.Label2.ForeColor = RGB(0, 0, 255)
End If
End Sub

判断代码封装在judge这个子过程里，需要调用的时候调用即可。

我设计的判断过程，用的是比较基础的If Else then语句，注意代码要整洁清晰。同时我还增加了不同条件下的字体颜色更改。

2.调用代码。

每当更改文本框1和文本框2的时候，自动进行判断。

代码如下：

Private Sub Text0_AfterUpdate()
    judge
    Me.Refresh
End Sub
Private Sub Text0_Change()
    judge
    Me.Refresh
End Sub
Private Sub Text1_AfterUpdate()
    judge
    Me.Refresh
End Sub
Private Sub Text1_Change()
    judge
    Me.Refresh
End Sub