我在Excel中编了个添加运算符的程序,运行后可以得出部分结果,但电脑提出警告:类型不匹配.不知问题出在什么地方,该如何改正.请加以指正.谢谢!程序如下:
Dim aa(1 To 4) As String
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
aa(1) = "+": aa(2) = "-": aa(3) = "*": aa(4) = "/"
For a = 1 To 4
For b = 1 To 4
For c = 1 To 4
For d = 1 To 4
If Evaluate("(" & 1 / 2 & aa(a) & 1 / 2 & ")" & aa(b) & "(" & 1 / 2 & aa(c) & 1 / 2 & ")") = 1 Then
e = e + 1
Cells(e, 1) = "(" & "1 / 2" & aa(a) & "1 / 2" & ")" & aa(b) & "(" & "1 / 2" & aa(c) & "1 / 2" & ")" & "=1"
End If
Next d
Next c
Next b
Next a
------解决方案--------------------------------------------------------
F8,你应该在vba编辑器上找,菜单里肯定有告诉你这个的