Consejos de programación en VB

'Tema: 4-4

Subcomando privado1_Click() ¿Dim x como único, y como único? '¿Declarar xey como variables de precisión única x = Val(InputBox(" Por favor ingrese el valor de x")) 'Ingrese el valor de xSi x > 3 Entonces ?'La estructura selectiva determina si x>3 es verdadero y = x + 3 'Calcular el valor de y¿De lo contrario? 'En caso contrario (es decir, x<=3 )

Si x > 0 Entonces 'La estructura selectiva determina si x>0 es verdadero

?y = Sqr(x) 'Calcula el valor de y

De lo contrario,

?y = x ^ 2 - 1 ?'Calcular el valor de y

End If ? 'Fin de la declaración if (capa interna) End If 'Fin de if declaración (capa exterior) Print x ; y 'Emite los valores de x e y

End Sub

'Tema: 4-3

Sub privado Form_Load() 'Cargar proceso de evento del formulario Header Me.Caption = "Despertador Electrónico" 'El título del formulario es "Despertador Electrónico" Me.BorderStyle = 1 'El formulario es un borde fijo Timer1.Interval = 1000 ' El intervalo de tiempo de Timer1 es 1 segundo Timer2.Interval = 500 ?'El intervalo de tiempo de Timer2 es 0,5 segundos Timer2.Enabled = False 'Timer Timer2 no está disponible Label1.Caption = Time() 'Label1 muestra la hora del sistema

End Sub

'La imagen requerida para ejecutar el programa está incompleta, así que la escribí casualmente.

Private Sub Timer1_Timer() Label1.Caption = Time() Si Label1.Caption = Text1.Text Entonces

MsgBox "Se acabó el tiempo" Fin si

End Sub

Por favor consulte y adopte.