Q1：用VB编写一个计算器程序的代码
1、创建控件组的方法
首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：
设置效果如下图所示：
二、编写代码
Dim s1 As Single， s2 As Single， ysf As String
‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符
Private Sub Command1_Click（Index As Integer）
Text1.Text = Text1.Text & Command1（Index）.Caption ’将command1的单击事件与文本框显示的内容连接
End Sub
Private Sub Command2_Click（）
Text1.Text = Text1.Text + “。”
If （InStr（Text1.Text， “。”） = 1） Then ‘第一位不能为小数
Text1.Text = “”
End If
If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出现两个小数点
Text1.Text = Left
（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub
Command3_Click（）
s2 = Val（Text1.Text） ‘开始加减乘除运算
Select Case ysf Case “+”
Text1.Text = s1 + s2、
Case “-”
Text1.Text = s1 - s2、
Case “*”
Text1.Text = s1 * s2、
Case “/”
If s2 = 0 Then
MsgBox “分母不能为零！”
Text1.Text = “”
Else
Text1.Text = s1 / s2 End If End Select
Text1 = IIf（Left（Text1.Text， 1） = “。”， 0 & Text1.Text， Text1.Text） ‘
这个很关键，如果没有这个的话，得出小于1的小数前面没有0
End Sub
Private Sub Command4_Click（）
If Text1.Text = “” Then ’文本为空就结束
Exit Sub
End If
Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退一格
End Sub
Private Sub Command5_Click（）
Text1.Text = “” ’清除当前框内文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1 = Val（Text1.Text） ‘将s1隐藏起来 ysf = Command6（Index）.Caption
Text1.Text = “”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1） 《》 “-” Then ’判断作为负数
Text1.Text = “-” & Text1.Text
Else
Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text = Text1.Text * Text1.Text ‘平方
End Sub
拓展资料Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。
参考链Visual Basic——百度百科接
WwW.※BaZHiSHi.Com
Q2：用c语言编写一个简单计算器程序
double a,b;
char c;
scanf("%lf%c%lf",&a,&c,&b);
switch(c)
{case +:printf("%g%c%g=%g",a,c,b,a+b);break; case -:printf("%g%c%g=%g",a,c,b,a-b);break; case *:printf("%g%c%g=%g",a,c,b,a*b);break; case /:b?printf("%g%c%g=%g",a,c,b,a/b):puts("error");break; default:printf("error");break;}
Q3：求用vb编写一个简易计算器的程序代码
界面：
text1
1 2 3 +
4 5 6 -
7 8 9 *
0 = AC /
代码：
dim newnum as boolean
dim n1,n2 op as integer
private sub ac_click()
text1.text=""
end sub
private sub command1_click(index as integer)
if newnum=true then text1=""
text1=text1&index
newnum=false
end sub
private sub command1_click(index as integer)
if op=0 then
n1=val(text1)
else
n2=val(text1)
select case op
case 1
text1=n1+n2
case 2
text1=n1-n2
case 3
text1=n1*n2
case 4
if n2<>0 then text1=n1/n2
end select
op=0
end if
if index>0 then op=index
n1=val(text1)
newnum=true
end sub
WWW.bAZH&Ishi.COM
Q4：用C语言编写程序：一个简单的计算器
#include
voidmain()
{
inta[4],b[4],c[4],i;
charop[4];
for(i=0;i<4;i++)
{
scanf("%1d%1c%1d",&a[i],&op[i],&b[i]);
}
for(i=0;i<4;i++)
{
switch(op[i])
{
case+:c[i]=a[i]+b[i];break;
case-:c[i]=a[i]-b[i];break;
case*:c[i]=a[i]*b[i];break;
case/:c[i]=a[i]/b[i];break;
}
printf("%d%c%d=%d\n",a[i],op[i],b[i],c[i]);
}
}
Q5：用vb编写一个简单计算器程序 可以进行基本四则基本运算即可 谢谢各位
------------------------------------------------------------------------
版权所有 (C) 1994 Microsoft Corporation
您可以免费以任何方式使用、修改、复制并分发您认为有用的
示例应用程序文件 (或任何修改过的版本)。Microsoft 对任何
示例应用程序文件不做任何保证，不负任何责任和义务。
------------------------------------------------------------------------
Option Explicit
Dim Op1, Op2 预先输入操作数。
Dim DecimalFlag As Integer 小数点存在吗？
Dim NumOps As Integer 操作数个数。
Dim LastInput 指示上一次按键事件的类型。
Dim OpFlag 指示未完成的操作。
Dim TempReadout
C (取消) 按钮的 Click 事件过程
重新设置显示并初始化变量。
Private Sub Cancel_Click()
Readout = Format(0, "0.")
Op1 = 0
Op2 = 0
Form_Load
End Sub
CE (取消输入) 按钮的 Click 事件过程。
Private Sub CancelEntry_Click()
Readout = Format(0, "0.")
DecimalFlag = False
LastInput = "CE"
End Sub
小数点 (.) 按钮的 Click 事件过程
如果上一次按键为运算符，初始化 readout 为 "0."；
否则显示时追加一个小数点。
Private Sub Decimal_Click()
If LastInput = "NEG" Then
Readout = Format(0, "-0.")
ElseIf LastInput <> "NUMS" Then
Readout = Format(0, "0.")
End If
DecimalFlag = True
LastInput = "NUMS"
End Sub
窗体的初始化过程
设置所有变量为其初始值。
Private Sub Form_Load()
DecimalFlag = False
NumOps = 0
LastInput = "NONE"
OpFlag = " "
Readout = Format(0, "0.")
Decimal.Caption = Format(0, ".")
End Sub
数字键 (0-9) 的 Click 事件过程
向显示中的数追加新数。
Private Sub Number_Click(Index As Integer)
If LastInput <> "NUMS" Then
Readout = Format(0, ".")
DecimalFlag = False
End If
If DecimalFlag Then
Readout = Readout + Number(Index).Caption
Else
Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")
End If
If LastInput = "NEG" Then Readout = "-" & Readout
LastInput = "NUMS"
End Sub
运算符 (+, -, x, /, =) 的 Click 事件过程
如果接下来的按键是数字键，增加 NumOps。
如果有一个操作数，则设置 Op1。
如果有两个操作数，则将 Op1 设置为 Op1 与
当前输入字符串的运算结果，并显示结果。
Private Sub Operator_Click(Index As Integer)
TempReadout = Readout
If LastInput = "NUMS" Then
NumOps = NumOps + 1、End If
Select Case NumOps
Case 0
If Operator(Index).Caption = "-" And LastInput <> "NEG" Then
Readout = "-" & Readout
LastInput = "NEG"
End If
Case 1、Op1 = Readout
If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then
Readout = "-"
LastInput = "NEG"
End If
Case 2、Op2 = TempReadout
Select Case OpFlag
Case "+"
Op1 = CDbl(Op1) + CDbl(Op2)
Case "-"
Op1 = CDbl(Op1) - CDbl(Op2)
Case "X"
Op1 = CDbl(Op1) * CDbl(Op2)
Case "/"
If Op2 = 0 Then
MsgBox "除数不能为零", 48, "计算器"
Else
Op1 = CDbl(Op1) / CDbl(Op2)
End If
Case "="
Op1 = CDbl(Op2)
Case "%"
Op1 = CDbl(Op1) * CDbl(Op2)
End Select
Readout = Op1、NumOps = 1、End Select
If LastInput <> "NEG" Then
LastInput = "OPS"
OpFlag = Operator(Index).Caption
End If
End Sub
百分比键 (%) 的 Click 事件过程
计算并显示第一个操作数的百分数。
Private Sub Percent_Click()
Readout = Readout / 100
LastInput = "Ops"
OpFlag = "%"
NumOps = NumOps + 1、DecimalFlag = True
End Sub
Q6：编写一个简易计算器程序,根据用户输入的运算符做两个数的加,减,乘或除运算
#include
main()
{double a,b; double result: char operator;printf("Pleasr input two number:");scanf("%f,%f",&a,&b);printf("please input the operator:");scanf(%c",&operator);if(opreator==+)printf("result=%d\n",a+b);else if(opreator==-)printf("result=%d\n",a-b);else if(opreator==*)printf("result=%d\n",a*b);else if(opreator==/)printf("result=%d\n",a/b);else printf("Wrong!");getch();}
Q7：求助用C#编写一个简单计算器程序
这个很简单的就就是拖拽跟多的button过来
写在他的事件就可以了
在用if条件判断就可以了
