小键盘处理-有小数点.docVIP

小键盘处理-有小数点 Dim Strnum1 As String 存数据字符串 Dim Firstnum As Boolean 第一个数标记 TURE表示是第一个数 Dim Dot As Boolean 小数点标记　　TURE表示己有小数点 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 If Firstnum = True Then 是第一个数据 Strnum1 = Str(Index) Text1.Text = Strnum1 If Index = 0 Then Firstnum = True Else Firstnum = False End If Else