Question

vb控件数组制作一个只有加减乘除的简易计算器

vb控件数组制作一个只有加减乘除的简易计算器

Answer 1

以下是一个简单的+-*/的计算器代码，按钮采用数组，text2不可见。详情也可在我的百度空间里查看“vb6 比较简单的计算器代码”下载源文件和说明。

Function Eval(ByVal Expressions As String) As String '文本运算vbs
Dim Mssc As Object
Set Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = "vbscript"
On Error GoTo EvalErr
Eval = Mssc.Eval(Expressions)
Exit Function
EvalErr:
Exit Function
End Function
Private Sub Command1_Click(Index As Integer)
Dim i As Long, j As Long
For i = 0 To 10 '数字输出0-9和小数点，输入按钮的Caption值
If Index = i Then
Text2 = Text2 & Command1(i).Caption
Text1 = Format$(Eval(Text2), "0.########") '格式化小于1大于-1的数，下同
End If
Next i
For j = 11 To 14 '运算符号输出+-*/，输入按钮的Caption值
If Index = j Then
Text1 = Format$(Eval(Text2), "0.########")
Text2 = Text1 & Command1(j).Caption
End If
Next j
End Sub