VB基础入门教程
StrNum1 = Str(Index)’实型转字符型 FirstNum = False’初赋值为假 Else’非初赋值
StrNum1 = StrNum1 + Str(Index) End If
Text1.Text = StrNum1’显示 <还有其他语句，等待插入> End Select End Sub
运行程序的话已经可以输入数据，下面我们来处理小数点。 在General里声明新的变量：
Dim PointFlag As Boolean '判断是否已有小数点
我们知道小数点只能输入一次，一个数据中不能有多个小数点存在，所以需要一个布尔变量做判断。 在Form_Load里进行初赋值： PointFlag = False
在Command的单击事件里接着上面输入新的代码： Case 10
If Not PointFlag Then’如果没有小数点 If FirstNum Then’如果是第一个字符 StrNum1 = "0." FirstNum = False Else
StrNum1 = StrNum1 + "." End If