具体代码如下,毛病就是点=的时候不出结果啊,大家看看哪错了. Dim tf As Boolean Dim op1, op2 Dim i As Byte Private Sub Command1_Click(i As Integer) If Not tf Then Label1.Caption = Label1.Caption & i Else Label1.Caption = i tf = False End If End Sub

Private Sub Form_Load()

tf = False End Sub

Private Sub oper_Click(char As Integer) op1 = Label1.Caption i = char Label1.Caption = "" tf = False End Sub

Private Sub result_Click() op2 = Label1.Caption Select Case i Case i = "0" Label1.Caption = op1 + op2 Case i = "1" Label1.Caption = op1 - op2 Case i = "2" Label1.Caption = op1 * op2 Case i = "3" Label1.Caption = op1 / op2 End Select tf = True End Sub

我不知道,我也没运行,不过看你的程序好像是select case i 错了.因为当你按 = 时,i是你输入op2时最后一位数了.这样不是使i 得到你不想要的值了吗？  还有 case i="0", 应该是 case i=0 吧.    还有, 要是你这样做计算器的话,那么你就能输入000000000  这样的数了.    你不该有个选择语句吗？判断label1中是不是只有一个0.你的label1在初始化时它的caption 是空吧.     怎么也该写个0上去啊.