vb中能否有 if else 的嵌套 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → vb中能否有 if else 的嵌套

标题：vb中能否有 if else 的嵌套

只看楼主

北纬30度迷恋

等　级：新手上路
帖　子：9
专家分：0
注　册：2010-7-2
结帖率：100%

楼主

已结贴√ 问题点数：10 回复次数：7

vb中能否有 if else 的嵌套

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

搜索更多相关主题的帖子: 嵌套　 else　

2010-12-07 20:59

Artless

等　级：贵宾
威　望：103
帖　子：4211
专家分：28888
注　册：2009-4-8

第 2 楼

得分:5

可以

无知

2010-12-07 22:39

北纬30度迷恋

等　级：新手上路
帖　子：9
专家分：0
注　册：2010-7-2

第 3 楼

得分:0

请教  这个错在哪

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

2010-12-08 09:45

happynight

等　级：贵宾
威　望：15
帖　子：807
专家分：760
注　册：2008-4-26

第 4 楼

得分:5

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

2010-12-08 09:55

北纬30度迷恋

等　级：新手上路
帖　子：9
专家分：0
注　册：2010-7-2

第 5 楼

得分:0

果然这样非常感谢

2010-12-08 12:03

a516094242

等　级：新手上路
帖　子：1
专家分：0
注　册：2010-12-12

第 6 楼

得分:0

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