Scribd
Upload
26 views2 pages

Form1 Object Eventargs: "Ingrese Numero en La Posisción"

This document defines a class with methods to manage an array of integers. It includes buttons to populate the array by inputting values at each index, display the full array in a list box, remove a value at a specified index, and update a value at a specified index. The class supports inputting data into an array, viewing the full array, and modifying array elements through a graphical user interface.

Uploaded by

rodriguez21_02
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
26 views2 pages

Form1 Object Eventargs: "Ingrese Numero en La Posisción"

This document defines a class with methods to manage an array of integers. It includes buttons to populate the array by inputting values at each index, display the full array in a list box, remove a value at a specified index, and update a value at a specified index. The class supports inputting data into an array, viewing the full array, and modifying array elements through a graphical user interface.

Uploaded by

rodriguez21_02
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Public Class Form1

Dim n, x As Integer
Dim B(100) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
n = TextBox1.Text
For x = 1 To n
B(x) = InputBox("ingrese numero en la posiscin" & Str(x))
Next
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button6.Click
ListBox1.Items.Clear()
For x = 1 To n
ListBox1.Items.Add(B(x))
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Dim posi As Integer
posi = InputBox("ingrese posicin a borrar")
B(posi) = 0
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Dim posi As Integer
posi = InputBox("ingrese posicin")
B(posi) = InputBox("Ingrese valor")
End Sub
End Class

Ordenamiento
De la posicin 3 hacia adelante en forma ascendente y los atrs descendente

You might also like