2015-11-03 回答

1、在窗体上摆一个command1,然后在窗体上复制粘贴command，直到你需要的按钮数。

2、在窗体上摆一个label1

3、按钮名和标签名按以下程序中用的名称修改。

' ------------------------------------------------------------------------

'               版权所有 (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