VB简单计算器源码

2014/02/27 16:21 共创 adminMo 3972 0
😂 这篇文章最后更新于3711天前，您需要注意相关的内容是否还可用。
Sub Calc() Dim Result As Single Set MSSC = CreateObject("MSScriptControl.ScriptControl") MSSC.Language = "VBScript" Result = MSSC.Eval(Text1.Text) Label2.Caption = CStr(Result) End Sub Private Sub Command1_Click() Calc End Sub Private Sub Command2_Click() Text1.Text = "" End Sub

声明：本文由adminMo发布，如需转载请注明出处。