VB中怎么将两个文本框中的数字相加在第三个文本框中显示

VB中怎么将两个文本框中的数字相加在第三个文本框中显示

Private Sub Command1_Click()
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub 文本框的值是文本类型，想要相加必须先转换成数值类型。

Text3.text=val(Text1.text)+val(Text2.text)

先说下我的做法 窗体上有三个text,三个command text1输入你任意你想的数字,不同数字间用一个空格隔开 text2和text1是一样的 text3中输出两个文本框相同的数字,不同数字之间是写一个空格隔开的 程序使用: 1,按下command2此时会提醒在text1中输入你想要的数字 2,按下command3此时会提醒在text2中输入你想要的数字 3,按下command3此时就会显示两文本框中相同的数字 程序如下: 已测试通过,希望能对你有所帮助 function f(a as string, b as string) as integer dim s() as string, i%, j% dim y() as string s = split(a, " ") y = split(b, " ") for i = 0 to ubound(s) for j = 0 to ubound(y) if s(i) = y(j) then text3.text = text3.text & " " & s(i) goto h end if next j h: next i end function private sub command1_click() dim i as integer i = f(text1.text, text2.text) end sub private sub command2_click() print "请输入text1里的数，不同的数用空格分开" text1.text = "" text3.text = "" text1.setfocus end sub private sub command3_click() print "请输入text2里的数，不同的数用空格分开" text2.text = "" text2.setfocus end sub