少儿编程案例：比较数字大小（用VBA做的方法）

yugewanaccess

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

案例效果演示

一、题目要求

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

二、制作过程

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

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

1.模块式开发理念。

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

1. Public Sub judge()
   
2. If Val(Nz(Text0)) > Val(Nz(Text1)) Then
   
3.     Text2 = "数字A" & vbCrLf & "大于" & vbCrLf & "数字B"
   
4.     Me.Text2.ForeColor = RGB(255, 0, 0)
   
5.     Me.Label2.ForeColor = RGB(255, 0, 0)
   
6. ElseIf Val(Nz(Text0)) < Val(Nz(Text1)) Then
   
7.     Text2 = "数字A" & vbCrLf & "小于" & vbCrLf & "数字B"
   
8.     Me.Text2.ForeColor = RGB(0, 120, 0)
   
9.     Me.Label2.ForeColor = RGB(0, 120, 0)
   
10. Else
    
11.     Text2 = "数字A" & vbCrLf & "等于" & vbCrLf & "数字B"
    
12.     Me.Text2.ForeColor = RGB(0, 0, 255)
    
13.     Me.Label2.ForeColor = RGB(0, 0, 255)
    
14. End If
    
15. End Sub

复制代码

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

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

2.调用代码。

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

代码如下：

1. Private Sub Text0_AfterUpdate()
   
2.     judge
   
3.     Me.Refresh
   
4. End Sub
   
5. Private Sub Text0_Change()
   
6.     judge
   
7.     Me.Refresh
   
8. End Sub
   
9. Private Sub Text1_AfterUpdate()
   
10.     judge
    
11.     Me.Refresh
    
12. End Sub
    
13. Private Sub Text1_Change()
    
14.     judge
    
15.     Me.Refresh
    
16. End Sub

复制代码