private
sub
form_click()
dim
a
as
integer
dim
b
as
integer
a
=
val(t1.text)
b
=
val(t2.text)
msg$
=
"你选择做除法吗？"
title$
=
"请选择"
x
=
msgbox(msg$,
20,
title$)
if
x
=
6
then
l2.caption
=
"您求得的结果是"
&
str(a
/
b)
else
l2.caption
=
"您求得的结果是"
&
str(a
mod
b)
end
if
end
sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024