Dame un ejemplo de código VB de "anidamiento de declaraciones if". Los ejemplos de código del libro son demasiado complicados y no los entiendo claramente. Soy un principiante.
Ejemplo: (Encontrar las raíces de una ecuación cuadrática)
Subcomando privado1_Click()
Atenuar aTextBox como entero
Atenuar bTextBox Como entero
Dim cTextBox como entero
Dim x1TextBox como entero
Dim x2TextBox como entero
m = (Val(b)) ^ 2 - 4 * Val(a) * Val(c)
Si a = 0 entonces
x1.Text = Val(-c) / Val(b)
x2.Text = Val(-c) / Val(b)
Else
Si m < 0 Entonces
MsgBox "Esta ecuación tiene sin solución"
De lo contrario
x1 = (Val(-b) + Sqr(Val(m))) / 2 * Val(a)
x2 = (Val(-b) - Sqr(Val(m))) / 2 * Val(a)
Fin Si
Fin Si
Fin Sub
En esta parte del programa: ({} son comentarios)
Si a = 0 Entonces{se considera una ecuación lineal de una variable}
x1.Text = Val(-c) / Val(b)
x2.Text = Val(-c) / Val(b)
Else{Se considera una ecuación cuadrática }
{Aquí aparece otro If en el cuerpo de la declaración If anterior, lo que se llama anidamiento}
Si m < 0 Entonces{Juzgue si Δ es o menor que cero, es decir, la ecuación Si hay solución}{m<0 significa que no hay solución, vaya al siguiente paso}
MsgBox "Esta ecuación no tiene solución" {El contenido del cuadro de mensaje emergente es : Esta ecuación no tiene solución}
De lo contrario {m<0 no se cumple, es decir, m>=0, la ecuación tiene solución y pasa al siguiente paso}
x1 = (Val(-b) + Cuadrado(Val(m))) / 2 * Val(a)
x2 = (Val(-b) - Cuadrado(Val(m))) / 2 * Val(a)
End If{finaliza el juicio de condición interna (es decir, anidado dentro de If)}
End If{Finaliza el juicio de condición externa}
Esto se llama anidamiento.
De hecho, el anidamiento no se usa comúnmente, porque esto sucederá si hay demasiado anidamiento:
Si
. . . . . . . . . . .
De lo contrario
Si
. . . . . . . . . .
De lo contrario
Si
. . . . . . . . . .
.
.
.
Finalizar si
Finalizar si
Finalizar si
.
.
.
End If
Si hay muchas situaciones como esta, será agotador escribirlas, por eso las más utilizadas son:
Seleccionar caso
Caso 1{Cuando el valor de la variable es 1 (el significado de 1 tal como lo entiendo hasta ahora)}
. . . . . . . . . . . .
Caso 2{Igual que el anterior}
. . . . . . . . . . . .
.
.
Caso n
. . . . . . . . . . . .
End Select
De hecho, VB no es difícil. Al aprender, definitivamente puedes programar programas bastante buenos (como Age of Empires, el navegador IE, etc., todos están programados por. VB) Buena suerte para ti.