Ejercicios basic

Solo disponible en BuenasTareas
  • Páginas : 2 (366 palabras )
  • Descarga(s) : 0
  • Publicado : 19 de junio de 2011
Leer documento completo
Vista previa del texto
El Menor de 4

Dim a, b, c, d As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
Dim menor As Double
Dim variable As Boolean
variable = True
SelectCase variable
Case (a < b) And (a < c) And (a < d): menor = a
Case (b < a) And (b < c) And (b < d): menor = b
Case (c < a) And (c < b) And (c < d): menor = c
Case (d < a) And (d < b) And (d < c):menor = d
Case Else: menor = d
End Select
MsgBox ("El Menor de los 4 numeros es " & menor)

Categorias

Dim a, b As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
Dim categoria As Doublecategoria = Val(Text2.Text)
Select Case categoria
Case 1: categoria = 8500
Case 2: categoria = 7100
Case 3: categoria = 4200
Case 4: categoria = 2850
Case 5: categoria = 1920Case Else: categoria = 0
End Select
MsgBox (Text1.Text & " gana " & categoria)

Usuario-Password

Capa 1
nombre = Text3.Text
Dim usuario As String
usuario = Text1.Text
Dimpas As String
pas = Text2.Text
If (usuario = "chiki") And (pas = "napu") Then
Form1.Hide
Form2.Show
Else
MsgBox ("Usted no es un usuario registrado")
End If
End Sub
Capa 2
Private SubForm_Load()
Label1.Caption = "Bienvenido" & nombre
End Sub
Examen virtual

Dim a As Double
If Option1 = True Then
a = a + 5
Else
a = a - 1
End If
If Option6 = True Then
a = a + 5
Else
a = a -1
End If
If Option7 = True Then
a = a + 5
Else
a = a - 1
End If
If Option11 = True Then
a = a + 5
Else
a = a - 1
End If
If a < 0 Then
a = 0
End If
MsgBox (a)

Fecha Escrita
Dim m AsDouble
Dim mes As String

m = Val(Text2.Text)
Select Case m
Case 1: mes = "Enero"
Case 2: mes = "Febrero"
Case 3: mes = "Marzo"
Case 4: mes = "Abril"
Case 5: mes = "Mayo"
Case 6: mes ="Junio"
Case 7: mes = "Julio"
Case 8: mes = "Agosto"
Case 9: mes = "Setiembre"
Case 10: mes = "Octubre"
Case 11: mes = "Noviembre"
Case 12: mes = "Diciembre"
Case Else
MsgBox ("Los meses del año...
tracking img