vb科学计算机x y,vb程序用vb实现系统的计算器功能1/x，sqrt,%,+/-, 爱问知识人

dim v as boolen

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=flase

end select

x=val(text1。

text)

end if

s=index

end sub

。

全部