Question

VB加法运算程序

编码如下：
Private Sub Command1_Click()
Dim n1, n2 As Integer
n1 = Val(Text1.Text)
n1 = Val(Text2.Text)
Label4.Caption = n1 + n2
End Sub
输出结果为NI或者N2中的一个，不是加运算结果，为什么？
到底哪里错了呢？
如果编码改为：
Private Sub Command1_Click()
Dim n1, n2 As Integer
n1 = Val(Text1.Text)
n1 = Val(Text2.Text)
Label4.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub
运行则是对的，但是N1 N2根本就没有设置的必要了。。。

Answer 1

这个代码中
Private Sub Command1_Click()
Dim n1, n2 As Integer
n1 = Val(Text1.Text)
n1 = Val(Text2.Text)
Label4.Caption = n1 + n2
End Sub
第4行的n1显然应该是n2
要知道一个VB与众不同规定
Dim n1,n2 as integer
要改成
Dim n1 as integer ,n2 as integer
或者
Dim n1 as integer
Dim n2 as integer

追问

其实
Dim n1,n2 as integer
貌似可以不用改成
Dim n1 as integer ,n2 as integer
用简式也可以运行的~我试过了~
谢谢你！

追答

这个Dim n1,n2 as integer，可以用，但是深层的问题，你要好好探究啊！

这样的声明变量，n2确实是整型，而n1并非整型啊！

Answer 2

楼主你细心点啊！！你两个都写了n1了

n1 = Val(Text1.Text)
n1 = Val(Text2.Text)

应该是

n1 = Val(Text1.Text)
n2 = Val(Text2.Text)

才对啊。