我想使用记事本编写一个计算器！@

来源：百度知道 编辑：UC知道 时间：2024/06/05 09:35:20
听说只要把源代码写如记事本，然后，把记事本的后戳改为.exe就可以了吗？？？？？？？？那么请给我一个计算器的源代码好吗？》如果不是这样的，请给我一个软件+源代码！谢谢！
我打开VB后把代码复制进去啦！然后呢？怎么弄？？？？告诉我一下！还有，代码从什么地方复制进去啊！我是在Private Sub Form_Load()这个位置之下End Sub之上开始复制的，但是后来我保存以后就不能用啦！无法打开文件！

哪有这么简单，谁告诉你的。。。

需要先把源代码写好了，再通过编译器。编译。连接，生成可执行文件

哪有那么简单。

下载个VB6 然后到百度搜索计算器源码。。就一大堆啦。。

计算器还是很好写的。

最简单拿VB写。。
用下载个VB6.0精简版。
源代码你留下QQ吧。。
大哥你一点基础也没有，跟你说代码你也不会啊。

Dim num1 As Single, i As Integer 'num1---保留第一个数，i---保留操作符的索引
Dim fNum As Boolean, fEqu As Boolean 'num---说明是要接受新数字还是要连续输入数字,fequ---确定是否按下了等于号

Private Sub cmdClear_Click()
'恢复最初状态
txtEdit.Text = 0 '初始值
fNum = False '准备接受新数字
fEqu = False '使得第一次按"="可以显示计算结果
i = -1 '表明没有按下过操作按纽
cmdPot.Enabled = True '可以使用小数点按纽
txtEdit.SetFocus '使客户可以调用键盘
End Sub

Private Sub cmdNum_Click(Index As Integer)
If fNum = False Then '输入新数字
num1 = txtEdit.Text
txtEdit.Text = cmdNum(Index).Caption
cmdPot.Enabled = True
fNum = True
Else '连续输入数字
txtEdit.Text = txtEdit.Text & cmdNum(In