Cuaderno de informatica 2 año General

4.1.9 Sentencia CASE Investiga y presenta un ejemplo de un programa donde ocupa cada sentencia.  SELECT CASE Option Explicit On Public Class Form1     Dim Ndía, Nmes, DDA As Integer     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.Text = "Cálculo día del año"         Label1.Text = "Introduzca aquí el número del día"         Label2.Text = "Introduzca aquí el número del mes"         ButtonCalcular.Text = "Determinar día del año"     End Sub     Private Sub ButtonCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcular.Click         Ndía = Val(Text1.Text)         Nmes ...

4.1.10 Bubles: FOR, FOR EACH, WHILE, WEND, DO LOOP 4.1.10 Bubles: FOR, FOR EACH, WHILE, WEND, DO LOOP Investiga y representa un ejemplo de un programa donde se ocupa cada sentencia. FOR ... NEXT    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.Text = "Tabla"         T = Val(InputBox("¿Qué tabla quiere conocer?" & vbCrLf & _ "(Introduzca un número de 1 a 10)", "¿Número?")) LabelTabla.Font = New Font("Arial", 10, FontStyle.Bold) LabelTabla.TextAlign = ContentAlignment.MiddleCenter LabelTabla.Text = "TABLA DEL " & T & vbCrLf & vbCrLf         For i = 1 To 10           LabelTabla.Text = LabelTabla.Text & T & " * " & i & " = " & T * i & vbCrLf         Next i ...