求 计算器小数点怎么控制 代码 VB滴
用VB怎么控制一个计算器的小数点的输入呀。比如前面有小数点了。再输入小数点就失效了。谁可以告诉我代码呀
参考答案:（1）在通用_声明中定义新的变量
Dim PointFlag As Boolean ' 判断是否已有小数点
（2）在 Form_Load 里增加赋初值语句
PointFlag = False ' 将 PointFlag 设为否，即没有小数点。
（3）在 CmdN_Click 过程的 End Select 前增加下面代码
Case 10 ' 如果输入为小数点
If Not PointFlag Then ' 如果没有小数点
If FirstN Then ' 如果是第一个字符
StrN1 = "0." ' 显示为" 0." 不变
FirstN = False ' 初赋值标志为假
Else ' 否则
StrN1 = StrN1 + "." ' 字符串上加上小数点符号
End If ' 结束if块
Else ' 已有小数点
Exit Sub ' 则退出单击事件,也就是对单击事件不反应
End If
PointFlag = True ' 将小数点标志为真,即在输入串中有了小数点
LabXs.Caption = StrN1 ' 在显示屏上显示数字串