为什么这个程序中的计算结果不对呢,就是第一次正确,之后就会出现运算错误,

为什么这个程序中的计算结果不对呢,就是第一次正确,之后就会出现运算错误,

题目
为什么这个程序中的计算结果不对呢,就是第一次正确,之后就会出现运算错误,
Dim a As Boolean,num(1) As String,cou As Byte,operator
Private Sub Command1_click(Index As Integer)
If a Then
Label3.Caption = ""
Label4.Caption = ""
a = False
End If
If Index 10 Then
Label3.Caption = Label3.Caption & Index
num(cou) = num(cou) & Index
Else
Label3.Caption = Label3.Caption & "."
num(cou) = num(cou) & "."
Command1(10).Enabled = False
End If
End Sub
Private Sub Command2_click(Index As Integer)
If num(0) = "" Then Exit Sub
Select Case Index
Case 0:Label3.Caption = Label3.Caption & "+"
Case 1:Label3.Caption = Label3.Caption & "-"
Case 2:Label3.Caption = Label3.Caption & "*"
Case 3:Label3.Caption = Label3.Caption & "/"
End Select
operator = Index
cou = 1
For i = 0 To 3
Command2(i).Enabled = False
Next
Command1(10).Enabled = True
End Sub
Private Sub Command3_Click()
a = True
On Error GoTo a0
Select Cas
答案
你猜
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
热门考点

超级试练试题库

© 2017-2019 超级试练试题库,All Rights Reserved.