写到小数点部分，调试运行就错误了，请教各位代码错在那里了！不知道是不是变量的地方错误了。小弟初学
望高手指正！感激不尽！

Option Explicit
Dim Num1, Num2 As Single
Dim strNum1, strNum2 As String
Dim FirstNum As Boolean
Dim PointFlag As Boolean
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
strNum1 = Str(Index)
FirstNum = False
Else
strNum1 = strNum1 + Str(Index)
End If
Label1.Caption = strNum1
Case10
If Not PointFlag Then
strNum1 = "0"
FirstNum = False
Else
strNum1 = strNum1 + "."
End If
Else
Exit Sub
End If
PointFlag = True
Label1.Caption = strNum1
End Select
End Sub

Private Sub Form_Load()
Num1 = 0
Num2 = 0
strNum1 = ""
strNum2 = ""
FirstNum = True
PointFlag = False

End Sub

Case10
If Not PointFlag Then
strNum1 = "0"
FirstNum = False
Else
strNum1 = strNum1 + "."
End If
Else
Exit Sub
End If
PointFlag = True
Label1.Caption = strNum1

PointFlag = True这句应该放在加入点号以后


Else
strNum1 = strNum1 + "."
PointFlag = True
End If

楼上的你好啊~我试改过了，把PointFlag = True这修改了，还是不行。郁闷~不过还是很感谢你。

Option Explicit
Dim Num1, Num2 As Single
Dim strNum1, strNum2 As String
Dim FirstNum As Boolean
Dim PointFlag As Boolean
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
strNum1 = Str(Index)
FirstNum = False
Else
strNum1 = strNum1 + Str(Index)
End If
Label1.Caption = strNum1
Case 10
If Not PointFlag Then
strNum1 = "0"
FirstNum = False
Else
strNum1 = strNum1 + "."
End If
PointFlag = True
Label1.Caption = strNum1
End Select
End Sub

Private Sub Form_Load()
Num1 = 0
Num2 = 0
strNum1 = ""
strNum2 = ""
FirstNum = True
PointFlag = False

End Sub

帮你测试了下``

版主你好，？？你的意思是？？我的问题在那里呢？能指正一下吗？让我学习和改正！谢谢！

代码习惯不好而已1``你的语句有的都是一半 不出错误才怪1``

哦，谢谢~楼上的解答~我再重新写过！