if
     .......
       if  
            ;.......
             else
        ............
           else
vb 中if的嵌套可以实现吗

可以

请教  这个错在哪

Private Sub Command1_Click()

Dim a As Single
Dim b As Single
Dim c As Single
Dim D As Single
Dim x1
Dim x2

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
D = b * b - 4 * a * c

If a >= 0 Then
    If D >= 0 Then
      x1 = (-b + Sqr(D)) / (2 * a)
      x2 = (-b - Sqr(D)) / (2 * a)
      
      Else
       x1 = "错误"
       x2 = "错误"
      
       Else
       x1 = "错误"
       x2 = "错误"
      
       End If
      
      
    Text4.Text = x1
    Text5.Text = x2
   
      
      
      
      

End Sub

If a >= 0 Then
    If D >= 0 Then
      x1 = (-b + Sqr(D)) / (2 * a)
      x2 = (-b - Sqr(D)) / (2 * a)
      
      Else
       x1 = "错误"
       x2 = "错误"
    end if   
Else
    x1 = "错误"
    x2 = "错误"      
End If

按照你的意思应该少了一个end if  你有两个 if ... else 但只有一个end if

果然这样   非常感谢

if 语句 then
语句
elseif 语句 then
语句
endif

汗。。
怎么可能几个Else呢！逻辑判断不是True就是False，不是False就是True，怎么还有别的？

汗。。
怎么可能几个Else呢！逻辑判断不是True就是False，不是False就是True，怎么还有别的？汗。。
怎么可能几个Else呢！逻辑判断不是True就是False，不是False就是True，怎么还有别的？