Evaluacion

Fecha : 23 de Octubre

Lo que hay que saber
Para que se utilizan las funciones LEN, LEFT, RIGHT, MID
Que funcionan los ciclos FOR-NEXT, DO WHILE-LOOP
Principales propiedades de los Botones (caption, forecolor, font, passwordchar)
TEXTBOX
LABEL
LISTBOX
COMBOBOX
OPTIONBUTTON

Tipos de Variables
STRING, INTEGER, DOBLE, LONG, SINGLE

Instrucciones condicionales
IF THEN ELSE ENDIF
SELECT CASE - ENDCASE

Instrucciones para ingreso de valores
INPUTBOX

Random
RND()

Tp 4

Trabajo Practico funciones de cadenas de caracteres

1-     Escribir para que se utilizan y como se deben escribir las siguientes sentencias

LEN

LEFT

RIGHT

MID

2-     Hacer un programa que realice lo siguiente:

Ingresar una palabra, informe la cantidad de letras, muestre la primera y la ultima letra.

3-     Hacer un programa que pida el ingreso de una palabra y luego la imprima en forma vertical

4-     Ingresar una palabra (ejemplo : alegria) y luego imprimirla de la siguiente manera

Alegria

Alegri

Alegr

Aleg

Ale

Al

A

5-     Ingresar una palabra, y luego una letra. Indicar si la letra ingresada pertenece o no a la palabra. En el caso que pertenezca indicar en que posición esta

6-     Ingresar una frase y luego mostrar cuantas letras A tiene dicha frase.

7-     Idem anterior pero indicando la cantidad de Vocales que tiene la frase

8-     Ingresar una frase y luego separar las palabras una debajo de otra. ( por ejemplo: Hoy es un lindo día de sol)

HOY

ES

UN

LINDO

DIA

DE

SOL

9-     Para que se utilizan las funciones Lcase y Ucase

10- Para que se utilizan las funciones TRIM, LTRIM y RTRIM, dar ejemplos

TP 3

TP de Aplicación FOR – NEXT- RND DO WHILE

1-     Ingresar 10 números, luego mostrar cuantos son mayores a 20 y cuantos menores a 10.

Resolver haciendo el formulario y corrigiendo los posibles errores que se presentaran al ejecutar el programa

Dim x,a,c,m as integer

For x= 1 to 10

      Rem la siguiente línea permite ingresar un numero en una ventana

     A=inputbox(“ingrese numero”)

     Rem esta línea sirve para mostrar en una etiqueta el numero ingresado

     Label1= label1 & A & “          “ 

     If a>20 then

         C=c+1

           Endif

      Next x

      Label2= “ La cantidad de números mayores a 20 son “ & c

    

2-     Generar 100 números al azar entre 1 y 20, luego informar cuantos fueron iguales a 10

3-     Generar 500 números al azar entre 1 y 10, luego informar cuantos de cada uno se repitieron

4-      Ingresar números hasta que se  ingrese un cero, luego informar cuantos números se ingresaron, la suma de los números ingresados y el promedio