运行程序的话已经可以输入数据，下面我们来处理小数点。
　　在General里声明新的变量：
　　DimPointFlagAsBoolean'判断是否已有小数点
　　我们知道小数点只能输入一次，一个数据中不能有多个小数点存在，所以需要一个布尔变量做判断。
　　在Form_Load里进行初赋值：
　　PointFlag=False
　　在Command的单击事件里接着上面输入新的代码：
　　Case10
　　IfNotPointFlagThen’如果没有小数点
　　IfFirstNumThen’如果是第一个字符
　　StrNum1="0."
　　FirstNum=False
　　Else
　　StrNum1=StrNum1 "."
　　EndIf
　　Else’已有小数点
　　ExitSub’则退出单击事件
　　EndIf
　　PointFlag=True
　　Text1.Text=StrNum1