Ejemplo de Evaluacion

1) Ingresar 10 números luego mostrar cuantos fueron positivos y cuantos fueron negativos

el resultado debe mostrarse en 2 label con color verde, fuente Arial de 20

2) Ingresar una palabra de 7 letras, Mostrar la primera letra, la letra central y la ultima

en el caso que la palabra ingresada tenga mas o menos de 7 letras, mostrar un cartel que indique

ERROR

3) Generar 50 números al azar entre 1 y 20, luego mostrar cuantos números fueron iguales a 10 y

cuantos fueron iguales a 5

Utilizar dos label con color amarillo y fuente time new Román de 18

4) Ingresar en un TEXTBOX la distancia en KM a una Ciudad, luego mostrar el consumo de combustible

considerando que cada 100k gasta 8 litros de nafta. Modificar el Programa para ingresar también el

precio del combustible, mostrando cuanto seria el gasto en pesos para hacer dicho viaje 5) Hacer un programa para mover una imagen de izquierda a derecha y de arriba a abajo Respuestas ej1 Private Sub Command1_Click() Dim a, x, c, n As Integer For x = 1 To 10 a = InputBox("ingrese numeo") Label3 = Label3 & a & " " If a > 0 Then c = c + 1 If a < 0 Then n = n + 1 Next x Label1 = c Label2 = n End Sub ej2 Private Sub Command1_Click() Dim a As Integer Dim frase, i, d, m As String frase=inputbox("Ingrese una palabra" a = Len(frase) If a = 7 Then i = Left(frase, 1) d = Right(fase, 1) m = Mid(frese, 4, 1) Label1 = i Label2 = d Label3 = m Else Label3="Error" End If End Sub ej3 dim a,b,c,x,n as integer randomize for x =1 to 50   b=int(50*rnd(1)+1)   if b=10 then c=c+1   if b=5 then n=n+1  next x label1=c label2=n ej4 dim km, litros as integer km=text1.text litros=km*100/8 Text2.text=litros valor=text3.text text4.text=valor*litros