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

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

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

取消只看楼主

北纬30度迷恋

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

楼主

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

vb中能否有 if else 的嵌套

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

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

2010-12-07 20:59

北纬30度迷恋

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

第 2 楼

得分: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

北纬30度迷恋

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

第 3 楼

得分:0

果然这样非常感谢

2010-12-08 12:03

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-328286-1-1.html