貌似是这个意思
Dim XS1 As Integer = val(txt1.text)
Dim XS2 As Integer = val(txt2.text)
Dim XS3 As Integer = val(txt3.text)
If XS3 >= 101 And XS3 < 200 Then
If XS1 >= 1 OrElse XS1 = 0 AndAlso XS2 = 0 Then
ls2("H") = XS - 100
End If
ElseIf XS3 > 200
If XS1 >= 1 OrElse XS1 = 0 AndAlso XS2 = 0 Then
ls2("H") = XS - 200
End If
End If
如果不是,请使用文字描述你的逻辑