关于VB编程的语句

这个是我程序其中的一段代码：

If n >= 0.04 And n < 0.06 Then
Text0 = 0.004
Text1 = 0.0024
Label11.Caption = "Φ" + Str$(Val(Text4) + Val(Text2) + Val(Text0) + Val(Text1) / 2)
Label12.Caption = "Φ" + Str$(Val(Text2) + Val(Text3))
Label15.Caption = Str$(Val(Text1))
Label16.Caption = Str$(Val(Text1))
End If
最后两句：label15、label16均等于text1的值，我是分为两句写的。不知道能不能简单化用一句来表达。

label15.caption = label16.caption = Str$(Val(Text1))

这样写无法计算。。。。

VB中是不能这样连续赋值的，因为在VB中"="有两个作用一个是赋值，一个判断是否相等，都是用的这一个符号，当你

label15.caption = label16.caption = Str$(Val(Text1))

用这句的时候，它实际上执行的是首先判断label16.caption 与 Str$(Val(Text1))是否相等，如果相等则值为True赋给label15.caption ，若不相等值则值为false赋给label15.caption ,也就是第二个等号执行的是判断功能，第一个等号执行的是赋值功能，从而要给两个变量赋值的时候，只能分开写成两句.

赋值语句是这样设的 变量=值或变量，右边给左边，用等号来分析两个量，所以两个等好是没用的，

把两行并称一行还是可以的 Label1.Caption = Text1.Text: Label2.Caption = Text1.Text，两句中间加冒号

，另一种方法就是利用数组

貌似不可以，c语言就可以这样写，vb不行~多行不影响功能吧？