一个很基础的比较大小的小程序，如图：

控件数量：4个Label标签，2个Text文本框,1个Command按钮
核心源代码：

Private Sub Command1_Click()
Dim a As Double, b As Double     '定义两个变量a,b均为双精度型。
a = Rnd                          '设定a为一个随机数
b = Rnd                          '设定b为一个随机数
Text1.Text = a                   '将a赋值给Text1文本框中的文本
Text2.Text = b                   '将b赋值给Text2文本框中的文本
If a > b Then                    '判断语句If，如果在a>b的条件下
MsgBox "A大", vbOKOnly, "提示"   '弹出一个对话框，说A大
ElseIf a = b Then                '判断另一种情况，在满足a=b的条件下
MsgBox "A和B一样大", vbOKOnly, "提示"    '弹出一个对话框，A和B一样大
Else                             '否则，也就是在满足a<b的前提下
MsgBox "B大", vbOKOnly, "提示"   '弹出一个对话框B大
End If                           '结束判断语句If
Print a                          '在窗体上输出a
End Sub

百度了一下Rnd随机数，百度上是这么定义的：Rnd 函数返回小于 1 但大于或等于 0 的值。
那么问题就出现了

如图 Q：如果定义是Rnd函数返回小于1但大于或等于0的值，那么Text文本框中的数字应该是0.579518....  0.289562...那个小数点前面的那个0哪里去了？
虽然是一个很幼稚的问题，但还是要问。

哎，专家就是专家，自愧不如。

后续的改良程序：

核心代码：

Private Sub Command1_Click()
Dim a As Double, b As Double          '定义两个变量a,b为双精度型
a = Rnd                               '设定a为一个随机数
b = Rnd                               '设定b为一个随机数
Text1.Text = Format(a, "0.00")        '用Format函数，固定随机数a的格式为0.00，然后将此值赋给Text1文本框的文本
Text2.Text = Format(b, "0.00")        '用Format函数，固定随机数a的格式为0.00，然后将此值赋给Text2文本框的文本
If a > b Then                         '后续代码基本相同
MsgBox "A大", vbOKOnly, "提示"       
ElseIf a = b Then
MsgBox "A和B一样大", vbOKOnly, "提示"
Else
MsgBox "B大", vbOKOnly, "提示"
End If
Print Format(a, "0.00")               '用Format函数，固定随机数a的格式为0.00，然后将此值显示在Form1窗体上
End Sub