简易计算器1396安装，简易计算器Javascript

1，简易计算器Javascript

贴上运行了一下除了一个false被你写成flase 其他的没看出错误啊

item_flag=flase;

简易计算器Javascript

2，简易计算器

加，减，乘，你应该用#define 定义一个简单的字符来表示，scanf("%s",&a)，这个s建议写成c，其次，数据和对应的运算符（+ - *）只要倒过来运算就可以了，用一个%把对应的数组下表转换一下就可以了，你这写的太复杂，大家都不想看

简易计算器

3，vb简易计算器

if text1.text="" thentext1.text=0elsetext1.text=""end if

pravate sub command1_click()command1.caption=iif(command1.caption="ON",command1.caption="OFF",command1.caption="ON",)text1.text=iif(text1.text="",text1.text="0.",text1.text="")end sub

你好！如果是用vb做一个计算器方法有很多，都有很多种不同的编译手段不知道你喜欢那一种不过综合来说，都是一个计算器，如果你想要的加qq373903757

vb简易计算器

4，VB简易计算器

我用的是单选钮 Option Explicit Dim a As Double Dim b As Double Dim c As Double Dim d As Double Private Sub Command1_Click() d = Text4.Text If Option9.Value = True Then Text7.Text = Text6.Text + d If Option10.Value = True Then Text7.Text = Text6.Text - d If Option11.Value = True Then Text7.Text = Text6.Text * d If Option12.Value = True Then Text7.Text = Text6.Text / d End Sub Private Sub Command2_Click() a = Text1.Text b = Text2.Text If Option1.Value = True Then Text5.Text = a + b If Option2.Value = True Then Text5.Text = a - b If Option3.Value = True Then Text5.Text = a * b If Option4.Value = True Then Text5.Text = a / b End Sub Private Sub Command3_Click() c = Text3.Text If Option5.Value = True Then Text6.Text = Text5.Text + c If Option6.Value = True Then Text6.Text = Text5.Text - c If Option7.Value = True Then Text6.Text = Text5.Text * c If Option8.Value = True Then Text6.Text = Text5.Text / c Command1.Visible = True End Sub Private Sub Command4_Click() Text1.Text = Empty Text2.Text = Empty Text3.Text = Empty Text4.Text = Empty Text5.Text = Empty Text6.Text = Empty Text7.Text = Empty End Sub Private Sub Command5_Click() Form3.Show Me.Hide End Sub 还有做输入数字的按钮可以用Command控件数组 Private Sub Command1_Click(Index As Integer) Text1.Text = Command1(Index).Caption End Sub