送分呀，大家快来看

[lxy27]

编写计算器软件，界面类似WINDOWS的计算器，要求能够计算“加”，“减”，“乘”，“除”，X的Y次方，Sin,Cos。
我要原代码

[zyl910]

那样的不好！
给你看看：

http://www.dapha.net/vb/down.asp?id=1095&file=http://www.dapha.net/soure/com/Expression Evaluator.zip
软件名称 计算器,(计算式直接计算)
软件类型
运行环境 VB6.0/Win9x
授权方式 免费代码
软件大小 67K
软件评价
上传时间 2001-12-10
相关链接 主页
本日下载 4 本周：293 总计：293
下载地址1 下载
软件简介 计算器,(计算式直接计算),搞笑的是还有配音...


http://www.dapha.net/vb/down.asp?id=1087&file=http://www.dapha.net/soure/com/Advanced Calculation Solver.zip
软件名称 高级计算器
软件类型
运行环境 VB6.0/Win9x
授权方式 免费代码
软件大小 141K
软件评价
上传时间 2001-12-10
相关链接 主页
本日下载 4 本周：325 总计：325
下载地址1 下载
软件简介 不需要任何＋,-,*,/,sin,cos..按钮.直接在文本框内输入你的计算式。按下calculate就得到结果了.另外可以改变计算式的属性,比如说sin60<--这里60是角度,也可以吧这个改成弧度来显示.

[water_j]

有没搞错啊！哈哈！~
UP！

[lxy27]

不行啊！界面不象

[年糕]

直接调用windows的不就行了以下为源程序：
shell app.path &"\calc.exe"

[vivan19781111]

我下载了一个解方程的程序，并能画图形，你的邮箱能告诉我吗，发给你。

[baguijin999]

窗体上加三个按钮
Option Explicit
Private Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long

Private Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Const WM_CLOSE = &H10
Private Target As String

Private Function closewin(ByVal app_hwnd As Long, _
ByVal param As Long) As Long
Dim buf As String * 256
Dim title As String
Dim length As Long

length = GetWindowText(app_hwnd, buf, Len(buf))

title = Left(buf, length)

If InStr(title, Target) <> 0 Then
SendMessage app_hwnd, WM_CLOSE, 0, 0
End If

closewin = True

End Function


Public Sub pausetask(app_name As String)
Target = app_name
EnumWindows AddressOf closewin, 0
End Sub





Private Sub Command1_Click()
Dim x
x = Shell("calc.exe")

End Sub

Private Sub Command2_Click()
pausetask "¼ÆËãÆ÷"
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "´ò¿ª¼ÆËãÆ÷"
Command2.Caption = "¹Ø±Õ¼ÆËãÆ÷"
Command3.Caption = "Í˳ö"
Me.Caption = "»Øµ÷º¯ÊýÑÝʾ"
End Sub