方法一：
#include <stdio.h>
#include<string.h>
#include<math.h>
#include<stdlib.h>
struct complex multiply(struct complex x, struct complex y)
struct complex{
int real
int imag
}
int main()
{
struct complex a,b,s
scanf("%d%d%d%d",&a.real,&a.imag,&b.real,&b.imag)
s=multiply(a,b)
printf("(%d+%di)*(%d+%di)=%d+%di\n",a.real,a.imag,b.real,b.imag,s.real,s.imag)
return 0
}
struct complex multiply(struct complex x, struct complex y)
{
struct complex m
m.real=x.real*y.real-x.imag*y.imag
m.imag=x.imag*y.real+x.real*y.imag
return m
}
方法二：
#include<stdio.h>
int main()
{
int a,b,c,d,e,f
scanf("%d %d %d %d",&a,&b,&c,&d)
e = a * c - b * d
f = a * d + b * c
printf("(%d+%di)*(%d+%di)=%d+%di\n",a,b,c,d,e,f)
}
＃include＜stdio．h＞／／计算器
voidmenu（）／／自定义的菜单界面
｛
printf（＂－－－－－－－－－－－－－－－－－－－－＼n＂）；
printf（＂请输入你的选择＼n＂）；
printf（＂1．＋＼n＂）；
printf（＂2．－＼n＂）；
printf（＂3．＊＼n＂）；
printf（＂4．／＼n＂）；
printf（＂－－－－－－－－－－－－－－－－－－－－＼n＂）；
｝
intmain（）
｛
inti＝0；
intj＝0；
intnum＝0；／／计算结果存放在nun
intselect＝0；／／选择的选项存放在select
do／／do－while先执行再判断循环条件，即可实现重复计算功能
｛
menu（）；／／打印出菜单界面
scanf（＂％d＂，＆select）；／／输入你的选项
printf（＂请输入计算值：＂）；
scanf（＂％d％d＂，＆i，＆j）；／／输入要计算的数值
switch（select）
｛
case1：
printf（＂％d＋％d＝％d＼n＂，i，j，num＝i＋j）；／／实现加法功能
break；
case2：
printf（＂％d－％d＝％d＼n＂，i，j，num＝i－j）；／／实现减法功能
break；
case3：
printf（＂％d＊％d＝％d＼n＂，i，j，num＝i＊j）；／／实现乘法功能
break；
case4：
printf（＂％d－％d＝％d＼n＂，i，j，num＝i／j）；／／实现除法功能
break；
default：
printf（＂输入有误重新选择＂）；
break；
｝
｝while（select）；
return0；
｝
运行结果：
扩展资料：return表示把程序流程从被调函数转向主调函数并把表达式的值带回主调函数，实现函数值的返回，返回时可附带一个返回值，由return后面的参数指定。
return通常是必要的，因为函数调用的时候计算结果通常是通过返回值带出的。如果函数执行不需要返回计算结果，也经常需要返回一个状态码来表示函数执行的顺利与否（-1和0就是最常用的状态码），主调函数可以通过返回值判断被调函数的执行情况。
简单的用c语言写一个计算器程式，加减乘除能用就好 #include"stdio.h"void main()
{
float a,b,c
char e
printf("input a,e,b\n")/*输入两个数和符号，例如3+8*/
scanf("%f%c%f",&a,&e,&b)
switch(e)
{
case '+':c=a+bbreak
case '-':c=a-bbreak
case '*':c=a*bbreak
case '/':
if(b==0.0) printf("error\n")
else c=a/bbreak
}
printf("%f%c%f=%f",a,e,b,c)
}
如何用vc++编写一个简单的（只有加减乘除）计算器程式?
先设定介面如下
加法按钮程式码
void CMy03Dlg::OnBnClickedButton1()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
m_Nub3=m_Nub1+m_Nub2
UpdateData(FALSE)
}
减法按钮程式码
void CMy03Dlg::OnBnClickedButton2()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
m_Nub3=m_Nub1-m_Nub2
UpdateData(FALSE)
}
乘法按钮程式码
void CMy03Dlg::OnBnClickedButton3()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
m_Nub3=m_Nub1*m_Nub2
UpdateData(FALSE)
}
除法按钮程式码
void CMy03Dlg::OnBnClickedButton4()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
if(m_Nub2!=0)
m_Nub3=m_Nub1 / m_Nub2
else
AfxMessageBox("被除数不能为0")
UpdateData(FALSE)
}
清除按钮程式码
void CMy03Dlg::OnBnClickedButton5()
{
TODO：在此新增控制元件通知处理程式程式码
UpdateData(TRUE)
m_Nub3=0
m_Nub1=0
m_Nub2=0
UpdateData(FALSE)
}
结束按钮程式码
void CMy03Dlg::OnBnClickedButton6()
{
TODO：在此新增控制元件通知处理程式程式码
CDialog::OnOK()
}
如果只允许在输入框中输入资料应该怎样处理？
制作托盘程式
目的：在工作列中建立一个图示，使该程式永远驻留在记忆体中。例如邮件检查程式可以作为驻留程式，一旦有邮件来了，就可以接收邮件。
Shell_NotifyIcon函式传送讯息来增加、删除、修改工作列的图示
BOOL TrayMessage(HWND hWnd, DWORD dwMessage, HICON hIcon, PSTR pszTip)
{
BOOL res
NOTIFYICONDATA tnd
tnd.cbSize = sizeof(NOTIFYICONDATA)
tnd.hWnd = hWnd
tnd.uID = IDI_ICON1
tnd.uFlags = NIF_MESSAGE|NIF_ICON|NIF_TIP
tnd.uCallbackMessage = WM_MY_TRAY_NOTIFICATION
tnd.hIcon = hIcon
lstrcpyn(tnd.szTip, pszTip, sizeof(tnd.szTip))
res = Shell_NotifyIcon(dwMessage, &tnd)dwMessage为NIM_ADD从工作列中新增图示、NIM_DELETE从工作列中删除图示、NIM_MODIFY改变工作列中图示
if (hIcon)
DestroyIcon(hIcon)
return res
}
定义一个回拨讯息：WM_MY_TRAY_NOTIFICATION
在DLG的CPP档案中，
#define WM_MY_TRAY_NOTIFICATION WM_USER+100
为对话方块新增讯息对映ON_MESSAGE(WM_MY_TRAY_NOTIFICATION,OnTrayNotification)
在DLG的标头档案中应该有
public:
long m_Nub1
float m_Nub3
CBitmapButton Button
afx_msg void OnBnClickedButton1()
long m_Nub2
afx_msg void OnBnClickedButton2()
afx_msg void OnBnClickedButton4()
afx_msg void OnBnClickedButton5()
afx_msg void OnBnClickedButton3()
afx_msg void OnBnClickedButton6()
afx_msg void OnBnClickedButton7()
afx_msg LRESULT OnTrayNotification(WPARAM wparam, LPARAM lparam)
在DLG的CPP档案中应该有
BEGIN_MESSAGE_MAP(CMailCheckDlg, CDialog)
……
ON_MESSAGE(WM_MY_TRAY_NOTIFICATION,OnTrayNotification)
……
END_MESSAGE_MAP()
并定义一个回拨讯息函式
LRESULT CMailCheckDlg::OnTrayNotification(WPARAM wparam, LPARAM lparam)
{
switch (lparam )
{
case WM_RBUTTONUP:
case WM_LBUTTONDBLCLK:修改不同的按钮处理事件，以观察图示退出效果。
ShowWindow(SW_SHOW)
TrayMessage(m_hWnd, NIM_DELETE, NULL, "")从工作列中删除图示
}
return 0
}
在对话方块视窗上新增“驻留”按钮，双击按钮新增程式码
void CMailCheckDlg::OnBnClickedButton1()
{
TODO：在此新增控制元件通知处理程式程式码
下面程式向工作列新增图示
TrayMessage(m_hWnd, NIM_ADD, NULL, "计算器程式")
TrayMessage(m_hWnd, NIM_MODIFY, m_hIcon, "计算器程式")
ShowWindow(SW_HIDE)
用MFC编写一个简单的加减乘除计算器
我有程式，加31782771群
c语言计算器程式设计包含加减乘除简单的函式运算
实用计算器之程式设计
[摘 要]多用计算器的构思及设计程式码
[关键词]多用计算器；设计
数值计算可以说是日常最频繁的工作了，WIN98提供了“计算器”软体供使用者使用，该软体可以处理一般的一步四则运算，例如：3+2、5/3等等，但在日常中使用者经常遇到多步四则运算问题，例如：3+4*5-4/2，45*34/2+18*7等等，那么该个计算器就无法胜任了，作者制作了一个实用的计算器，该计算器新增不少功能：（程式介面如图）
1．可以实现连续的四则运算
2．可以实现输入式子的显示
3．可以方便计算个人所得税
4．滑鼠、键盘均可输入资料
5． *** 作介面友好
6．击键可发声
构建该个计算器所需研究及解决的核心问题有如下几个：1、连乘求值?2、字元显示 3、键盘输入?4、击键发声?5、个人所得税法规，为了使大家对程式有更一步认识，现将程式码提供给读者参考：
*定义阵列及窗体变数
Dim number2(0 To 50) As Double
Dim number(0 To 50) As Double
Dim z As Integer
Dim k As Integer, r As Integer
Dim j As Integer
Dim str As String
*呼叫名为“playsound”的API函式
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_FILENAME = &H20000?
Private Const SND_ASYNC = &H1?
Private Const SND_SYNC = &H0
*判断通用过程
Sub pianduan(p As String)
r = 0
Dim i As Integer, l As Integer, h As Integer
h = 0
i = 1
If InStr(Trim$(p), "*") <>0 Then
k = k + 1
End If
If InStr(Trim$(p), "/") <>0 Then
r = r + 1
End If
End Sub
*连乘通用过程(略)
*各按钮事件过程
Private sub Command1_Click(Index As Integer)
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text1.Text = Text1.Text + Command1(Index).Caption
Text2.Text = Text2.Text + Command1(Index).Caption
Text1.SetFocus
End Sub
rivate sub Command10_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
str = Text3.Text
End Sub
Private sub Command11_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text3.Text = str
End Sub
rivate sub Command2_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Dim totle As Double
Dim n As Integer
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
Text2.Text = Text2 + "+"
z = z + 1
Text1.SetFocus
End Sub
rivate sub Command3_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Dim totle As Double
Dim n As Integer
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
Text2.Text = Text2 + "-"
Text1.Text = Text1.Text &"-"
z = z + 1
Text1.SetFocus
End Sub
Private sub Command4_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text2.Text = Text2.Text + "*"
Text1.Text = Text1.Text + "*"
Text1.SetFocus
End Sub
rivate sub Command5_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text2.Text = Text2 + "/"
Text1.Text = Text1 + "/"
Text1.SetFocus
End Sub
Private sub Command6_Click()
PlaySound App.Path &"\sound.wav", 0, SND_SYNC
Dim totle As Double
Dim n As Integer
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
z = z + 1
Dim dengyu As Double
Dim v As Integer
For v = 0 To 50
dengyu = dengyu + number2(v)
Next v
If dengyu <0 Then
Text3.ForeColor = &HFF&
Else
Text3.ForeColor = &HFF0000
End If
Text3.Text = dengyu
Text1.SetFocus
If Len(Text3.Text) >= 14 Then
calcresult.Show
End If
End Sub
rivate sub Command7_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
z = 0: k = 0: r = 0: j = 0
Dim i As Integer
For i = 0 To 50
number(i) = 0
number2(i) = 0
Next i
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
rivate sub Command8_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
If Val(Text3.Text) = 0 Then
MsgBox "除数不能为0！"
Exit Sub
End If
Text3.Text = 1 / Val(Text3.Text)
End Sub
Private sub Command9_Click()
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Text3.ForeColor = &HFF0000
Text3.Text = Val(Text3.Text) * Val(Text3.Text)
End Sub
rivate sub muninter_Click()
Dim i
i = Shell("C:\Program Files\InterExplorer\iexplore.exe", vbMaximizedFocus)
End Sub
rivate sub munmp3_Click()
Dim i
i = Shell("C:\Program Files\Windows Media Player\mplayer2", vbNormalNoFocus)
End Sub
Private sub mun *** _Click()
Dialog.Show
End Sub
rivate sub muntax_Click()
tax.Show
End Sub
rivate sub munver_Click()
ver.Show
End Sub
rivate sub notepad_Click()
Dim i
i = Shell("c:\windows\notepad", vbNormalFocus)
End Sub
Private sub Text1_KeyPress(KeyAscii As Integer)
PlaySound App.Path &"\start.wav", 0, SND_SYNC
Dim num As Integer
num = Val(KeyAscii)
If num >47 And num <58 Then
Text1.Text = Text1.Text + CStr(num - 48)
Text2.Text = Text2.Text + CStr(num - 48)
End If
If num = 46 Then
Text1.Text = Text1.Text + "."
Text2.Text = Text2.Text + "."
End If
If KeyAscii = 43 Then
Dim totle As Double
Dim n As Integer
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
Text2.Text = Text2 + "+"
z = z + 1
End If
If KeyAscii = 45 Then
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
Text2.Text = Text2 + "-"
Text1.Text = Text1.Text &"-"
z = z + 1
End If
If KeyAscii = 42 Then
Text2.Text = Text2.Text + "*"
Text1.Text = Text1.Text + "*"
End If
If KeyAscii = 47 Then
Text2.Text = Text2.Text + "/"
Text1.Text = Text1.Text + "/"
End If
If KeyAscii = vbKeyReturn Then
PlaySound App.Path &"\sound.wav", 0, SND_SYNC
Call pianduan(Text1.Text)
If k >= 1 Or r >= 1 Then
Call liancheng(totle)
number2(z) = totle
If Mid$(Trim$(Text1.Text), 1, 1) = "-" Then
number2(z) = -totle
End If
k = 0: r = 0
Else
number2(z) = Val(Text1.Text)
End If
Text1.Text = ""
z = z + 1
Dim dengyu As Double
Dim v As Integer
For v = 0 To 50
dengyu = dengyu + number2(v)
Next v
If dengyu <0 Then
Text3.ForeColor = &HFF&
Else
Text3.ForeColor = &HFF0000
End If
Text3.Text = dengyu
End If
If KeyAscii = vbKeyEscape Then
z = 0: k = 0: r = 0: j = 0
Dim i As Integer
For i = 0 To 50
number(i) = 0
number2(i) = 0
Next i
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End If
If Len(Text3.Text) >= 14 Then
calcresult.Show
End If
End Sub
rivate sub Text3_Change()
tax2.Text1 = Text3.Text
End Sub
用c语言编写能运算加减乘除的计算器程式，用到栈
#include "stdio.h"
#include "string.h"
#include "ctype.h"
#include "math.h"
expression evaluate
#define iMUL 0
#define iDIV 1
#define iADD 2
#define iSUB 3
#define iCap 4
#define LtKH 5
#define RtKH 6
#define MaxSize 100
void iPush(float)
float iPop()
float StaOperand[MaxSize]
int iTop=-1
char Srcexp[MaxSize]
char Capaexp[MaxSize]
char RevPolishexp[MaxSize]
float NumCapaTab[26]
char validexp[]="*/+-()"
char NumSets[]="0123456789"
char StackSymb[MaxSize]
int operands
void NumsToCapas(char [], int , char [], float [])
int CheckExpress(char)
int PriorChar(char,char)
int GetOperator(char [], char)
void counterPolishexp(char INexp[], int slen, char Outexp[])
float CalcRevPolishexp(char [], float [], char [], int)
void main()
{
int ilen
float iResult=0.0
printf("enter a valid number string:\n")
memset(StackSymb,0,MaxSize)
memset(NumCapaTab,0,26)A--NO.1, B--NO.2, etc.
gets(Srcexp)
ilen=strlen(Srcexp)
printf("source expression:%s\n",Srcexp)
NumsToCapas(Srcexp,ilen,Capaexp,NumCapaTab)
printf("Numbers listed as follows:\n")
int i
for (i=0i<operands++i)
printf("%.2f ",NumCapaTab[i])
printf("\nCapaexp listed in the following:\n")
printf("%s\n",Capaexp)
ilen=strlen(Capaexp)
counterPolishexp(Capaexp,ilen,RevPolishexp)
printf("RevPolishexp:\n%s\n",RevPolishexp)
ilen=strlen(RevPolishexp)
iResult=CalcRevPolishexp(validexp, NumCapaTab, RevPolishexp,ilen)
printf("\ncounterPolish expression:\n%s%.6f\n",Srcexp,iResult)
}
void iPush(float value)
{
if(iTop<MaxSize) StaOperand[++iTop]=value
}
float iPop()
{
if(iTop>-1)
return StaOperand[iTop--]
return -1.0
}
void NumsToCapas(char Srcexp[], int slen, char Capaexp[], float NumCapaTab[])
{
char ch
int i, j, k, flg=0
int sign
float val=0.0,power=10.0
i=0j=0k=0
while (i<slen)
{
ch=Srcexp[i]
if (i==0)
{
sign=(ch=='-')?-1:1
if(ch=='+'||ch=='-')
{
ch=Srcexp[++i]
flg=1
}
}
if (isdigit(ch))
{
val=ch-'0'
while (isdigit(ch=Srcexp[++i]))
{
val=val*10.0+ch-'0'
}
if (ch=='.')
{
while(isdigit(ch=Srcexp[++i]))
{
val=val+(ch-'0')/power
power*=10
}
} end if
if(flg)
{
val*=sign
flg=0
}
} end if
write Capaexp array
write NO.j to array
if(val)
{
Capaexp[k++]='A'+j
Capaexp[k++]=ch
NumCapaTab[j++]=valA--0, B--1,and C, etc.
}
else
{
Capaexp[k++]=ch
}
val=0.0
power=10.0
i++
}
Capaexp[k]='\0'
operands=j
}
float CalcRevPolishexp(char validexp[], float NumCapaTab[], char RevPolishexp[], int slen)
{
float sval=0.0, op1,op2
int i, rt
char ch
recursive stack
i=0
while((ch=RevPolishexp[i]) &&i<slen)
{
switch(rt=GetOperator(validexp, ch))
{
case iMUL: op2=iPop()op1=iPop()
sval=op1*op2
iPush(sval)
break
case iDIV: op2=iPop()op1=iPop()
if(!fabs(op2))
{
printf("overflow\n")
iPush(0)
break
}
sval=op1/op2
iPush(sval)
break
case iADD: op2=iPop()op1=iPop()
sval=op1+op2
iPush(sval)
break
case iSUB: op2=iPop()op1=iPop()
sval=op1-op2
iPush(sval)
break
case iCap: iPush(NumCapaTab[ch-'A'])
break
default:
}
++i
}
while(iTop>-1)
{
sval=iPop()
}
return sval
}
int GetOperator(char validexp[],char oper)
{
int oplen,i=0
oplen=strlen(validexp)
if (!oplen) return -1
if(isalpha(oper)) return 4
while(i<oplen &&validexp[i]!=oper) ++i
if(i==oplen || i>=4) return -1
return i
}
int CheckExpress(char ch)
{
int i=0
char
while((=validexp[i]) &&ch!=) ++i
if (!)
return 0
return 1
}
int PriorChar(char curch, char stach)
{
栈外优先顺序高于(>)栈顶优先顺序时，才入栈
否则(<=)，一律出栈
if (curch==stach) return 0等于时应该出栈
else if (curch=='*' || curch=='/')
{
if(stach!='*' &&stach!='/')
return 1
}
else if (curch=='+' || curch=='-')
{
if (stach=='(' || stach==')')
return 1
}
else if (curch=='(')
{
if (stach==')')
return 1
}
return 0
}
void counterPolishexp(char INexp[], int slen, char Outexp[])
{
int i, j, k,pr
char t
i=0
j=k=0
while (INexp[i]!='=' &&i<slen)
{
if (INexp[i]=='(')
StackSymb[k++]=INexp[i]
iPush(*(INexp+i))
else if(INexp[i]==')')
{
if((t=iPop())!=-1)
while((t=StackSymb[k-1])!='(')
{
Outexp[j++]=t
k--
}
k--
}
else if (CheckExpress(INexp[i])) is oparator
{
printf("operator %c k=%d\n",INexp[i],k)
while (k)
{
iPush(*(INexp+i))
if(pr=PriorChar(INexp[i],StackSymb[k-1]))
break
else
{
if ((t=iPop())!=-1)
t=StackSymb[k-1]k--
Outexp[j++]=t
}
} end while
StackSymb[k++]=INexp[i]mon process
}
else if() 变数名
{
printf("operand %c k=%d\n",INexp[i],k)
Outexp[j++]=INexp[i]
}
i++
}
while (k)
{
t=StackSymb[k-1]k--
Outexp[j++]=t
}
Outexp[j]='\0'
}
注：程式源于“百度知道”
用verilog编写一个最简单的加减乘除的计算器的程式
verilog是有加法器乘法器的。也直接识别 + - * / 符号。
module kjasdja(a,option,b,result)
input option,a,b
output result
always @(a,b,option)
begin
result_r=0结果暂存器清零
case(option)
+:result_r=a+b
-:result_r=a-b
*:result_r=a*b
/:result_r=a/b
assign result =result_r
endmodule
大概演算法就这样。写的仓促，语法可能有误。另外除法reg型别只能储存整数部分，小数通过移位 *** 作实现，比较麻烦。比如3/5=0.6
做的时候先3=30，然后30/5=6,然后对6在数码管的显示进行调整就好。把6显示在小数点后面1位就好
用vb编写一个计算器程式，实现加减乘除，
Dim v As Boolean
Dim s As Integer
Dim X As Double
Dim Y As Double
Private Sub Command1_Click(Index As Integer)
If Form1.Tag = "T" Then
If Index = 10 Then
Text1.Text = "0"
Else
Text1.Text = Command1(Index).Caption
End If
Form1.Tag = ""
Else
Text1.Text = Text1.Text &Command1(Index).Caption
End If
End Sub
Private Sub Command2_Click(Index As Integer)
Form1.Tag = "T"
If v Then
X = Val(Text1.Text)
v = Not v
Else
Y = Val(Text1.Text)
Select Case s
Case 0
Text1.Text = X + Y
Case 1
Text1.Text = X - Y
Case 2
Text1.Text = X * Y
Case 3
If Y <>0 Then
Text1.Text = X / Y
Else
MsgBox ("不能以0为除数")
Text1.Text = X
v = False
End If
Case 4
Y = 0
v = False
End Select
X = Val(Text1.Text)
End If
s = Index
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
控制元件自己新增吧，空间名要和程式码名一致
求一简单的加减乘除计算器c++程式
#include<stdio.h>
#include<math.h>
void main()
{
float a,b
char C
while(1)
{
scanf("%f%c%f",&a,&C,&b)
if((C!='+')&&(C!='-')&&(C!='*')&&(C!='/'))
break
switch(C)
{
case '+': printf("%f+%f=%f",a,b,a+b)
break
case '-': printf("%f-%f=%f",a,b,a-b)
break
case '*': printf("%f*%f=%f",a,b,a*b)
break
case '/': printf("%f/%f=%f",a,b,a/b)
break
}
}
}
想改成按1 2 3 4分别为加减乘除，只需要将程式中的+ - * / 改成1 2 3 4即可。按除了+ - * / 以外的键就会退出。
用c++语言编写一个简单的计算器程式，会加减乘除就行，本人初学不太会，特训求帮助
这个是最简单，简陋的计算器。很多情况没考虑进去，例如除数不能为0之类的，真要写完整的话程式码还要更多。
程式码如下： #include <iostream>using namespace stdint main(){ float a, b, result char operation cout <<"请输入算式，如1+2并回车：" <<endl cin >>a >>operation >>b switch(operation) { case '+': result = a + bbreak case '-': result = a - bbreak case '*': result = a * bbreak case '/': result = a / bbreak default: cout <<"输入非法，程式退出！" <<endlreturn -1 } cout <<endl <<"结果为：" <<endl <<a <<operation <<b <<"=" <<result <<endl return 0}
知道switch函式 吗 用这个就行
建俩个int型变数 一个字元型变数
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）