VB 制作的计算器
龙珠
45
0
EXE
2020-04-02 01:04:44
自己编写的VB计算器，以下是代码
PrivateSubCommand1_Click()
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a+b
Text3.Text=c
EndSub
PrivateSubCommand2_Click()
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a-b
Text3.Text=c
EndSub
PrivateSubCommand3_Click()
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a
暂无评论