Ejercicio 1: Ejercicio 2

Escribir un programa en Visual Basic que lea 10 nmeros que

Escribir un programa en Visual Basic que lea N nmeros, corresponden a los elementos de un vector y determine y muestre
calcule la media aritmtica de los mismos y muestre los el mayor y menor de ellos.
Se debe crear:
nmeros ledos que son mayores que la media calculada.
1 CommandButton
Se debe crear: 2 TextBox
2 Label
1 CommandButton
Te debe quedar as
1 TextBox
5 Label
1 ListBox
Te debe quedar asi

Aqu esta el cdigo (Darle doble click al CommandButton e

introducir lo siguiente)
Private Sub Command1_Click()
'Declaramos el vector del 1 al 120
Dim Vector(1 To 20) As Integer
Dim Mayor As Integer
Aqui esta el codigo (Darle doble click al CommandButton e Dim Menor As Integer
introducir lo siguiente)
For Indice = 1 To 10
Private Sub Command1_Click() Vector(Indice) = InputBox("Numero " & Indice)
'Declaramos el vector del 1 al 1000 Next
Dim Numeros(1 To 1000) As Integer 'Leemos el primer dato ingresado en la posicion '1' del indice
'Atrapamos los numeros en un TextBox y luego lo Mayor = Vector(1)
pasamos a la variable N For Indice = 1 To 10
N = Val(Text1) If Vector(Indice) > Mayor Then
'Contamos desde el numeros que ingresamos en Mayor = Vector(Indice)
TextBox End If
For K = 1 To N Next
Numeros(K) = InputBox("Numero " & K) Menor = Mayor
Suma = Suma + Numeros(K) For Indice = 1 To 10
Next If Vector(Indice) < Menor Then
Prom = Suma / N Menor = Vector(Indice)
LabelP = Prom
For K = 1 To N End If
If Numeros(K) > Prom Then
'En espaol es Agregar Elementos(AddItem) en el evento List1 Next
[Link] Numeros(K) Text1 = Mayor
End If Text2 = Menor
Next
End Sub
End Sub
Ejercicio 3 Ejercicio 4
Escribir un programa en Visual Basic que permita Hacer un programa en Visual Basic que lea dos vectores
cargar "N" nmeros en un vector "V" y luego muestre la cantidad de de "N" elementos cada uno y cree y
elementos de "V" que son nmeros pares y la cantidad de ordene ascendentemente un tercer vector cuyos elementos
elementos de "V" que son mayores que 100 sean los elementos de los 2vectores leidos
Se debe crear:
1 CommandButton
1 TextBox
3 Label
Te debe quedar as

Dim c1 As Long
Dim c2 As Long
Dim c3 As Long
Dim V1(1 To 100000) As Double
Dim V2(1 To 100000) As Double
Dim V3(1 To 100000) As Double
Private Sub Command1_Click()
c1 = c1 + 1
V1(c1) = [Link]
[Link] = ""
End Sub
Aqu esta el cdigo (Darle doble click al CommandButton e Private Sub Command2_Click()
c2 = c2 + 1
introducir lo siguiente)
V2(c2) = [Link]
Private Sub Command1_Click() [Link] = ""
Dim Vector(1 To 1000) As Integer End Sub
Dim Pares, Mayores As Integer
Private Sub Command3_Click()
Dim aux As Long
N = Val(Text1) [Link]
For i = 1 To c1 Step 1
V3(i) = V1(i)
For Indice = 1 To N
Next i
Vector(Indice) = InputBox("Dato " & Indice) c3 = c1
If Vector(Indice) Mod 2 = 0 Then For i = 1 To c2 Step 1
Pares = Pares + 1
c3 = c3 + 1
V3(c3) = V2(i)
End If Next i
For i = 1 To c3 - 1 Step 1
If Vector(Indice) > 100 Then For j = i + 1 To c3 Step 1
If (V3(i) > V3(j)) Then
Mayores = Mayores + 1
aux = V3(i)
End If V3(i) = V3(j)
Next V3(j) = aux
End If
Next j
Label2 = "Cantidad de pares " & Pares Next i
Label3 = "Mayores que 100 " & Mayores For i = 1 To c3 Step 1
[Link] (V3(i))
Next i
End Sub
End Sub
Ejercicio 5 Ejercicio 6
Se dispone de un vector "T" de 30 numeros reales distintos Escribir un programa en Visual Basic que cree
de cero. Escribir un programa en Visual Basic para crear un vector de 20 numeros enteros, los ordene
un Vector "Q" en los que todos sus elementos resulten de ascendentemente (de menor a mayor) y decida si un
dividir los elementos del vector "T" por el elemento T(k), numero "N" se encuentra entre la posicion "i" y la
siendo k un valor dado. posicion "j" del vector ya ordenado. Los valores de "N", "i" y
El formulario debe quedarte asi "j"deben ser leidos por teclado.
Te debe quedar asi

Codigo:
Private Sub Command1_Click()
'vector
Codigo
Dim V(1 To 10) As Integer
'Hecho By Cyxymux 'Es el numero donde esta en dichas posiones
N = Val(Text1)
'Psicion 1
Private Sub Command1_Click() i = Val(Text2)
'Vectores 'Posicion 2
j = Val(Text3)
Dim T(1 To 100) As Double
For Indice = 1 To 10
Dim Q(1 To 100) As Double V(Indice) = InputBox("Numero: " & Indice)
Next
For IndiceAux = 1 To 9
K = Val(T1) For Indice = 1 To 9
For N = 1 To 5 If V(Indice) and V(Indice + 1) Then
Auxiliar = V(Indice)
T(N) = InputBox("Numero: " & N)
V(Indice) = V(Indice + 1)
'Si en el vector T es igual a cero V(Indice + 1) = Auxiliar
If T(N) = 0 Then End If
Next
MsgBox ("No puede ser cero") Next
'Decrementamos el indice For Indice = 1 To 10
[Link] V(Indice)
N=N-1 Next
End If Acceder = 0
For Indice = i To j
Next
If V(Indice) = N Then
For N = 1 To 5 Acceder = 1
Q(N) = T(N) / T(K) Posicion = Indice
End If
Next Next
For N = 1 To 5 If Acceder = 1 Then
MsgBox ("Se encuentra en la posicion: " & Posicion)
[Link] T(N)
Else
[Link] Q(N) MsgBox ("no se encuentra")
Next End If

End Sub End Sub

7) HACER UN PROGRAMA EN VISUAL BASIC Q LEA DOS MATRICES Private Sub Command2_Click()
3x3 Y CALCULE Y MUESTRE LA MATRIZ SUMA DE AMBAS MATRICES Dim c As Integer
c=0
For i = 1 To 3 Step 1
For j = 1 To 3 Step 1
B(i, j) = InputBox("ingrese el numero de la matriz B")
c=c+1
If c = 1 Then
[Link] = B(i, j)
End If
If c = 2 Then
[Link] = B(i, j)
End If
If c = 3 Then
[Link] = B(i, j)
End If
If c = 4 Then
Dim A(1 To 3, 1 To 3) As Integer [Link] = B(i, j)
Dim B(1 To 3, 1 To 3) As Integer End If
Dim SUMA(1 To 3, 1 To 3) As Integer If c = 5 Then
Private Sub Command1_Click() [Link] = B(i, j)
Dim c As Integer End If
c=0 If c = 6 Then
For i = 1 To 3 Step 1 [Link] = B(i, j)
For j = 1 To 3 Step 1 End If
A(i, j) = InputBox("ingrese el numero de la matriz A") If c = 7 Then
c=c+1 [Link] = B(i, j)
If c = 1 Then End If
[Link] = A(i, j) If c = 8 Then
End If [Link] = B(i, j)
If c = 2 Then End If
[Link] = A(i, j) If c = 9 Then
End If [Link] = B(i, j)
If c = 3 Then End If
[Link] = A(i, j) Next j
End If Next i
If c = 4 Then End Sub
[Link] = A(i, j) Private Sub Command3_Click()
End If Dim c As Integer
If c = 5 Then c=0
[Link] = A(i, j) For i = 1 To 3 Step 1
End If For j = 1 To 3 Step 1
If c = 6 Then SUMA(i, j) = A(i, j) + B(i, j)
[Link] = A(i, j) c=c+1
End If If c = 1 Then
If c = 7 Then [Link] = SUMA(i, j)
[Link] = A(i, j) End If
End If If c = 2 Then
If c = 8 Then [Link] = SUMA(i, j)
[Link] = A(i, j) End If
End If If c = 3 Then
If c = 9 Then [Link] = SUMA(i, j)
[Link] = A(i, j) End If
End If If c = 4 Then
Next j [Link] = SUMA(i, j)
Next i End If
End Sub
 If c = 5 Then Ejercicio 8
[Link] = SUMA(i, j) Escribir un programa en Visual Basic que cree una
End If matriz cuadrada de NxN y verifique si la matriz es o no
If c = 6 Then simtrica.
[Link] = SUMA(i, j) Te debe quedar as
End If
If c = 7 Then
[Link] = SUMA(i, j)
End If
If c = 8 Then
[Link] = SUMA(i, j)
End If
If c = 9 Then
[Link] = SUMA(i, j)
End If
Next j
Next i
End Sub

Private Sub Command4_Click() Dale doble click al CommandButton y escribe el siguiente

[Link] = "" cdigo
[Link] = "" Private Sub Command1_Click()
[Link] = "" Dim Matriz(1 To 10, 1 To 10) As Integer
[Link] = "" Do
[Link] = "" N = InputBox("N = ")
[Link] = "" Loop Until N > 0 And N < 11
[Link] = "" For Fila = 1 To N
[Link] = "" For Columna = 1 To N
[Link] = "" Matriz(Fila, Columna) = InputBox("Dato ")
[Link] = "" Next
[Link] = "" Next
[Link] = ""
[Link] = "" Paso = 0 'Es un Switch(Es Booleano 0 y 1), su funcion
[Link] = "" principal es que si cumple la condicin
[Link] = "" 'En este caso esta en cero porque no se ha cumplido una
[Link] = "" condicin
[Link] = ""
[Link] = "" For Fila = 1 To N
[Link] = "" For Columna = 1 To N
[Link] = ""
[Link] = "" If Matriz(Fila, Columna) <> Matriz(Columna, Fila) Then
[Link] = "" Paso = 1 'Paso se le asigna 1 porque la condicion es
[Link] = "" verdadera
[Link] = "" End If
[Link] = "" Next
[Link] = "" Next
[Link] = ""
End Sub If Paso = 1 Then
Label1 = "No es simtrica"
Else
'Si Paso es 0
Label1 = "Si es simtrica"
End If
End Sub
Ejercicio 10 cdigo
Private Sub Command1_Click()
Escribir un programa en Visual Basic que cree una matriz
de NxN y calcule y muestre: A) La suma de los elementos Dim Matriz(1 To 100, 1 To 100)
que estn por encima de la diagonal principal. B) La suma de
los elementos que estn por debajo de la diagonal Dim Suma1 As Integer
principal. C) La suma de los elementos que estn en la Dim Suma2 As Integer
diagonal principal y D) La suma de los elementos que estn
en la diagonal secundaria. Dim Suma3 As Integer
Dim Suma4 As Integer

Se debe crear:
N = Val(Text1)

1 CommandButton
For Fila = 1 To N
For Columna = 1 To N
1 TextBox
Matriz(Fila, Columna) = InputBox("Dato")
If Fila = Columna Then
5 Label (Con BoderStyle 1-Fixed Single)
Suma1 = Suma1 + Matriz(Fila, Columna)
ElseIf Fila < Columna Then
Te debe quedar as
Suma2 = Suma2 + Matriz(Fila, Columna)
Else
Suma3 = Suma3 + Matriz(Fila, Columna)
End If

If Fila + Columna = N + 1 Then

Suma4 = Suma4 + Matriz(Fila, Columna)
End If
Next
Next
'Respuestas
Label2 = "La suma de la diagonal principal " & Suma1
Label3 = "La suma que est por encima en la diagonal
principal " & Suma2
Label4 = "La suma que est por debajo de la diagonal
principal " & Suma3
Label5 = "La suma que est en la diagonal secundaria " &
Dale doble click al CommandButton y escribe el siguiente
Suma4

End Sub
Ejercicio 12
Escribir un programa en Visual Basic que permita llenar
con "X" y "O" una matriz 3x3 y luego inspeccione los valores
de sus elementos y diga "GANARON LAS 'X'" si en
cualquiera de sus filas, columnas o diagonales hay 3 "X",
o "GANARON las 'O'" en caso de que los valores sean "O",
o "EMPATE" sino se cumple ninguna de las condiciones
anteriores.

Este es el famoso juego llamado la VIEJA o como en otros

lugares TIC TAC TOE

Para eso debemos crear una "Matriz de Controles", lo que

significa que debemos crear 9veces un TEXT1

Como se muestra grficamente.

Creamos un TextBox

Ahora acercamos el cursor en el espacio del formulario le

damos click derecho y pegar. O lo ms fcil apretamos la
tecla Ctrl y la tecla V las dos (teclas a la vez)

Le damos click derecho del Mouse y nos saldr el siguiente

cuadro lo cual sale una opcin que dice copiar.

Luego de haberle dado pegar te va a salir un cuadro que te

dice lo siguiente:
"Ya existe un control llamado Text1 Deseas crear una matriz For f = 1 To 3
de controles?" If M(f, 1) = M(f, 2) And M(f, 2) = M(f, 3) Then
Les das click en SI o en Aceptar
Creas 9 Text1 Label1 = "Ganaron las " & M(f, 1)
1 Labels End If
y un CommandButton Next
El formulario debe quedarte as For c = 1 To 3

If M(1, c) = M(2, c) And M(2, c) = M(3, c) Then

Label1 = "Ganaron las " & M(1, c)

End If

Next

If M(1, 1) = M(2, 2) And M(2, 2) = M(3, 3) Then

Label1 = "Ganaron las " & M(1, 1)

End If

If M(1, 3) = M(2, 2) And M(2, 2) = M(3, 1) Then

Label1 = "Ganaron las " & M(1, 1)

End If

For f = 1 To 3
Dale doble click al CommandButton y escribe el siguiente
For c = 1 To 3
codigo
Private Sub Command1_Click()
If M(c, f) <> M(f, c) Then

Dim M(1 To 3, 1 To 3) As String

Label1 = "Empate"
M(1, 1) = Text1(0)
M(1, 2) = Text1(1)
End If
M(1, 3) = Text1(2)
M(2, 1) = Text1(3)
Next
M(2, 2) = Text1(4)
Next
M(2, 3) = Text1(5)
M(3, 1) = Text1(6)
End Sub
M(3, 2) = Text1(7)
M(3, 3) = Text1(8)