求教加法计算器代码怎么写

level 1

天津老来狂楼主

这个代码编出来的计算器计算结果变成这样

2018年01月02日 04点01分 1

level 6

命幽

加扣2374541790

2018年01月03日 17点01分 2

level 1

forfai

默认是文本类型，你需要把文本类型转换成数字类型，这样才能进行数字运算。

2018年01月12日 21点01分 3

level 11

Text3.text=Clng(text1.text)+clng(text2.text)

2018年10月17日 09点10分 5

level 1

Private Sub Command1_Click()
Dim a%, b%
a = Text1.Text
b = Text2.Text
Text3.Text = a * b
End Sub

2018年12月05日 00点12分 6

level 10

jjww2999

最简单的一招就是后面再加0.0
+0.0 就OK了。

2018年12月11日 03点12分 7

level 14

mathsfan

文本框的数据格式得预先设置为数字。

2018年12月24日 23点12分 8

level 4

360_safe

Text3.text=Cstr(CInt(text1.text)+CInt(text2.text))

2019年04月13日 05点04分 9

level 1

myjam💯

text3.text=val(text1.text)+val(text2.text)

2019年10月05日 04点10分 10