哪位大哥大姐能提供VB的计算器代码？

显示全部楼层 · 2009-6-10 13:27:46

是由一个textbox和多个command组成的计算器

千问 · 2009-6-10 13:27:46

Dim a As DoubleDim b As DoubleDim n As IntegerPrivate Sub cheng_Click(Index As Integer)b = aText1.Text = aa = 0n = 3End SubPrivate Sub chu_Click(Index As Integer)b = aText1.Text = aa = 0n = 4End SubPrivate Sub Command1_Click(Index As Integer)a = 0b = 0Text1.Text = 0End SubPrivate S...

千问 · 2009-6-10 13:27:46

添加一个Command1改(名称)cmdNum 复制9个 cmdnum(0)cmdnum(1) cmdnum(2) cmdnum(3) ....cmdnum(9)
Caption分别改为0 1 2 3.... 9 再加4个Command 用来做+-*/ (名称分别改为) cmdJiacmdJiancmdChengcmdChu...

千问 · 2009-6-10 13:27:46

Private Sub Form_Click()Dim i As StringDim x As IntegerDim y As IntegerDim k As IntegerDim p As Stringi = InputBox("请输入您要进行的运算")For k = 1 To Len(i)
If Asc(Mid(i,...