广电的发行以及制作:求 计算器小数点怎么控制 代码 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 ' 在显示屏上显示数字串

不必再输入时做文章
可以在读取文本框文字时作出如下判断：

dim a '(注意：不写变量类型)'
a=text1.text
if val(a)=a then XXX=XXX '(读出数据）'
else text1.text=""
end if

就是说如果文本框中文字不构成数字就命令清空文本框。

Dim a As Integer

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then '46是 "."的 ASCII值
a = a + 1 '通过变量a的值控制小数点的输入
If a >= 2 Then KeyAscii = 0
End If

End Sub

按#