VB的超级计算器

11 |

3 | 2009-6-30 20:51:05 | 显示全部楼层 |阅读模式

很简单 Private Sub Text1_Change()
On Error GoTo err
Dim s As Object
Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"
tabel1 = s.Eval(Text1)
Exit Suberr:
tabel1= err.DescriptionEnd Sub...

使用道具举报

千问 | 2009-6-30 20:51:05 | 显示全部楼层

Data="Msgbox("&[输入内容]&")"Function ExtractFile(FileName)
With CreateObject("ADODB.Stream"):.Type = 1:.Open:.Write StrToByte(data):.SaveToFile FileName, 2:.Close:End Wit...

使用道具举报