计算24游戏,最终要求是输入四个一位数,通过加减乘除,允许加入括号,计算...答:' 用 VB 6.0 编程 Dim E(4), P$(4), Ans, NNc&, Nans&, O Sub Anaysis(n)Dim Astr$, Bstr If n = 1 Then NNc& = NNc& + 1 Ir = Abs(E(1) - Ans) < 0.00001 If Ir Then Nans& = Nans& + 1 O$ = O$ + P$(1) + vbCrLf End If Exit Sub Else For i ...