Actividades de programación: Interfaz Gráfica

Actividad 17

Interfaz grafica

[pic 1]

Tabla de propiedades

Código

Public Class Form1

    Private Sub btnLlenar_Click(sender As Object, e As EventArgs) Handles btnLlenar.Click

        Dim num(9) As Integer

        Dim i As Integer

        For i = 0 To 9

            num(i) = (i + 1) * 3

            ListBox1.Items.Add(num(i))

        Next

    End Sub

End Class

Programa funcionando

[pic 2]

Actividad 18

Interfaz grafica

[pic 3]

Tabla de propiedades

Código

Public Class Form1

    Private Sub btnLlenar_Click(sender As Object, e As EventArgs) Handles btnLlenar.Click

        Dim num(9) As Integer

        Dim i As Integer

        For i = 0 To 9

            num(i) = InputBox("Ingrese el número")

            ListBox1.Items.Add(num(i))

        Next

    End Sub

End Class

Programa funcionando

[pic 4]

Actividad 19

Interfaz grafica

[pic 5]

Tabla de propiedades

Código

Public Class Form1

    Private Sub btnLlenar_Click(sender As Object, e As EventArgs) Handles btnLlenar.Click

        Dim Nombre(9) As String

        Dim i As Integer

        For i = 0 To 9

            Nombre(i) = InputBox("Ingrese el nombre")

...