帮我改下初学者的问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 12:20:50
private sub cmdadd click()
op1=val(txtop1.text)
op2=val(txtop3.text)
sum=op1+op2
txtresult.text=str$(sum)
end sub

private sub cmdclear_click()
txtop1.text=""
txtop3.text=""
txtresult.text=""
end sub

private sub cmdexit_click()
end
end sub

怎么换成减，乘，除法
看来只须要改函数，可是我不知道
最后是：？+？＝?
这么简单啊，那STR$(SUM)是什么函数？以为是加法函数。。

private sub cmdadd click()
op1=val(txtop1.text)
op2=val(txtop3.text)
sum=op1+op2
txtresult.text=str$(sum)
end sub
改为
private sub cmdadd click()
op1=val(txtop1.text)
op2=val(txtop3.text)
sum=op1-op2 '减法 op1减op2
txtresult.text=str$(sum)
end sub
改为
private sub cmdadd click()
op1=val(txtop1.text)
op2=val(txtop3.text)
sum=op1*op2 ‘乘法
txtresult.text=str$(sum)
end sub
改为
private sub cmdadd click()
op1=val(txtop1.text)
op2=val(txtop3.text)
sum=op1/op2 '除法
txtresult.text=str$(sum)
end sub

说什么不清楚

sum=op1+op2'加
sum=op1-op2’减
sum=op1*op2’乘
sum=op1/op2'除

方法