窗体做简易计算器

lifewithsky

可以问题对于前辈来说太简单了，但是我想破头都想不通。
所以拜托各位了！！
我在做的时候卡在等于号的代码上。

我写的代码：
Dim a As Integer
Dim n As String
a = Text1.Value
n = "+"
n = "-"
n = "*"
n = "/"
Select Case c
  Case Is = "+"
    Text1.Value = a + Text1.Value
  Case Is = "-"
    Text1.Value = a - Text1.Value
  Case Is = "*"
    Text1.Value = a * Text1.Value
  Case Is = "/"
    Text1.Value = a / Text1.Value
End Select
而且我本来在写的时候把按键都付给文本了，但是发现+、-、*、/、不能付。
设定了一个变量n也不知道要怎么用。

我等于只做了一个窗体的外壳，里面都不会，郁闷死了。
求解~~~~~

todaynew

用Eval函数即可：
Eval("(2+8)/2*3")
这个结果为15

lifewithsky

我是新学access的，没有学过Eva
只是想让前辈理一下思路，说多了我听不懂。