VB基础入门教程(19)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB基础入门教程(19)在线全文阅读。