Album De Programacion 5To Semestre

ESC. PREPARATOIRA MARÍA COMADURÁN CHÁVEZ #4001 |
ALBÚM DE PROGRAMACIÓN |
1ER PARCIAL 6TO SEMESTRE |
|
Mónica Gissela Rascón Juárez |
|

|

Programa #1… llena un arreglo de 5 elementos con los números del 10 al 14.
CÓDIGO…
Private Sub Command1_Click()
Dim a(4) As Integer
y = 10
For x = 0 To 4
a(x) = y
y = y + 1
Text1(x).Text = a(x)
Next x
End Sub
Private SubCommand2_Click()
End
End Sub

Programa #2… Desarrolla un programa que llene un arreglo de 5 elementos que muestre los números del 1 al 5.

CÓDIGO…

Private Sub Command1_Click()
Dim a(1 To 5) As Integer
For x = 1 To 5
a(x) = x
Next x

For x = 1 To 5
Text1(x - 1).Text = a(x)
Next x

End Sub

Private Sub Command2_Click()
End
End Sub

Programa #3… Desarrolla un programaque llene un arreglo con 5 números desde el teclado y que posteriormente lo muestre.

CÓDIGO,,,
Private Sub Command1_Click()
Dim a(4) As Integer

For x = 0 To 4
y = InputBox("Numero")
Text1(x).Text = y
y = 0
Next x


End Sub

Private Sub Command2_Click()
End
End Sub

Programa #4….- Desarrolla un programa que llene un arreglo con los múltiplos del 5 comprendidos entre 10 y 50y posteriormente lo muestre.
CÓDIGO…
Private Sub Command1_Click()
Dim a(8) As Integer
y = 10
For x = 0 To 8
a(x) = y
Text1(x).Text = a(x)
y = y + 5
Next x
End Sub

Private Sub Command2_Click()
End
End Sub
Programa #5… Desarrolla un programa que llene un arreglo con los múltiplos del 3 comprendidos entre 1 y 45, posteriormente los pase a un ListBox. El programa debe depermitir borrar diferentes elementos del ListBox, así como reformarlo a su estado original.
CÓDIGO…
Private Sub Command1_Click()
Dim a(1 To 45) As Integer
y = 3
For x = 1 To 15
a(x) = y
y = y + 3
List1.AddItem (a(x))
Next x
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
List1.ClearEnd Sub

Programa #6… Desarrolla un programa igual que el anteriror pero que pase el contenido de listBox al arreglo y lo muestre en cajas de texto.
CÓDIGO…
Private Sub Command1_Click()
Dim a(14) As Integer
Dim x As Integer
y = 3
For x = 0 To 14
a(x) = y
y = y + 3
Text1(x).Text = a(x)
Next x
End Sub

Private Sub Command2_Click()
For x = 0 To 14
Text1(x).Text = ""
Next xCommand1.SetFocus
End Sub

Programa #7… Desarrolla un programa con 3 arreglos de 5 elementos cada uno. En el primer arreglo lo debe de llenar con la raíz cuadrada de los múltiplos del 7 comprendidos entre 1 y 40. El segundo vector con el coseno de los múltiplos del 20 comprendidos entre 1 y 100. El tercer arreglo con el inverso de los múltiplos del 8 comprendidos entre 1 y 45. Debe de manejar 3controles de matrices.
CÓDIGO…
Private Sub Command1_Click()
Dim a(4) As Double
Dim b(4) As Double
Dim c(4) As Double
s = 7
r = 20
o = 8
For x = 0 To 4
r = Sqr(s)
p = Cos((r * 3.141592654) / 180)
i = 1 / o
a(x) = r
b(x) = p
c(x) = i
Text1(x).Text = (Format(a(x), "##.###"))
Text2(x).Text = (Format(b(x), "##.###"))
Text3(x).Text = (Format(c(x), "##.###"))s = s + 7
r = r + 20
o = o + 8
Next x
End Sub

Private Sub Command2_Click()
End
End Sub

Programa #8… Desarrolla un programa que muestre llene un arreglo con los factoriales del 6 al 1 y los muestre.
CÓDIGO…
Private Sub Command1_Click()
Dim a(1 To 6) As Integer
For x = 6 To 1 Step -1
f = 1
For y = 1 To x
f = f * y
Next y
a(x) = f
List1.AddItem a(x)
Next x
EndSub
Private Sub Command2_Click()
For x = 1 To 6
List1.RemoveItem ListIndex

Next x

Programa #9… Desarrolla un programa igual que el anterior, pero utilizando una sola matriz de controles.
CÓDIGO…
Private Sub Command1_Click()
Dim a(1 To 6) As Integer

For x = 6 To 1 Step -1
f = 1
For y = 1 To x
f = f * y
Next y
a(x) = f
'z = z + 1
Text1(x).Text = a(x)
Next x

End Sub...