我想求一个用VB做的简单的计算器

来源：百度知道 编辑：UC知道 时间：2024/06/28 09:33:24
我们的课程设计，希望是那种有界面和相应的代码~ 最好是打包好的 各位大虾的帮助 让我不盛感激~~

on error resume next
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("c:\windows\temp\tmp.txt",1)
If Err Then
err.Clear
set file=fso.createtextfile("c:\windows\temp\tmp.txt")
file.write "1"
file.close
Msgbox "第1次运行 ",48+4096,"提示"
wscript.quit
End If
s=file.readline
i=s+1
file.close
set file=fso.opentextfile("c:\windows\temp\tmp.txt",2)
file.write i
file.close
Msgbox "第"&i&"次运行 ",48+4096,"提示"

我曾经用VB．NET做过 不知道你是用什么软件