Private Sub Command1_Click()
sj= Combo1.ListCount - 1
select case sj
Case sj=0
Text3 = vaL(Text1) + val(Text2 )
Case sj=1
Text3 = Int(val(Text1) - val(Text2) )
Case sj=2
Text3 = Int(val(Text1) * val(Text2))
Case sj=3
Text3 = Int(val(Text1) / val(Text2) )
Case sj=4
Text3 = Int(val(Text1) Mod val(Text2))
End Select
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024