CODIGOS FUENTES

...

PARES, IMPARES Y DESENDENTES

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim H, T, A As Integer

H = 1

A = 200

For H = 1 To 200 Step 2

ListBox1.Items.Add(Str(H))

T = T + H

Next

TextBox1.Text = Str(T)

ListBox1.Items.Add(Str(A))

Dim A1, T1 As Integer

A1 = 300

While A1 >= 1

ListBox2.Items.Add(Str(A1))

T1 = T1 + A1

A1 = A1 - 1

End While

TextBox2.Text = Str(T1)

Dim A2, T2, H1, Tg As Integer

A2 = 2

H1 = 1

ListBox3.Items.Add(Str(H1))

Do While A2 <= 400

T2 = T2 + A2

ListBox3.Items.Add(Str(A2))

A2 = A2 + 2

Loop

TextBox3.Text = Str(T2)

Tg = T + T1 + T2

TextBox4.Text = Str(Tg)

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

ListBox1.Items.Clear()

TextBox1.Text = " "

ListBox2.Items.Clear()

TextBox2.Text = " "

ListBox3.Items.Clear()

TextBox3.Text = " "

TextBox4.Text = " "

End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

End

End Sub

6) CALCULO INDICE ACADEMICO

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim t1, t2, t3, t4, t5, t6, t7, t8, t9, t10 As Integer

t1 = Val(TextC1.Text) * Val(TextN1.Text)

TextP1.Text = t1

t2 = Val(TextC2.Text) * Val(TextN2.Text)

TextP2.Text = t2

t3 = Val(TextC3.Text) * Val(TextN3.Text)

TextP3.Text = t3

t4 = Val(TextC4.Text) * Val(TextN4.Text)

TextP4.Text = t4

t5 = Val(TextC5.Text) * Val(TextN5.Text)

TextP5.Text = t5

t6 = Val(TextC6.Text) * Val(TextN6.Text)

TextP6.Text = t6

t7 = Val(TextC7.Text) * Val(TextN7.Text)

TextP7.Text = t7

t8 = Val(TextC8.Text) * Val(TextN8.Text)

TextP8.Text = t8

t9 = Val(TextC9.Text) * Val(TextN9.Text)

TextP9.Text = t9

t10 = Val(TextC10.Text) * Val(TextN10.Text)

TextP10.Text = t10

Dim totalcredito, totalcalif, totalpuntos As Integer

totalcredito = Val(TextC1.Text) + Val(TextC2.Text) + Val(TextC3.Text) + Val(TextC4.Text) + Val(TextC5.Text) + Val(TextC6.Text) + Val(TextC7.Text) + Val(TextC8.Text) + Val(TextC9.Text) + Val(TextC10.Text)

TextTC.Text = totalcredito

totalcalif = Val(TextN1.Text) + Val(TextN2.Text) + Val(TextN3.Text) + Val(TextN4.Text) + Val(TextN5.Text) + Val(TextN6.Text) + Val(TextN7.Text) + Val(TextN8.Text) + Val(TextN9.Text) + Val(TextN10.Text)

TextTN.Text = totalcalif

totalpuntos = Val(TextP1.Text) + Val(TextP2.Text) + Val(TextP3.Text) + Val(TextP4.Text) + Val(TextP5.Text) + Val(TextP6.Text) + Val(TextP7.Text) + Val(TextP8.Text) + Val(TextP9.Text) + Val(TextP10.Text)

TextTP.Text = totalpuntos

Dim indice As Integer

indice = Val(TextTP.Text) / Val(TextTC.Text)

TxtInd.Text = indice

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

TextC1.Clear()

TextC2.Clear()

TextC3.Clear()

TextC4.Clear()

TextC5.Clear()

TextC6.Clear()

TextC7.Clear()

TextC8.Clear()

TextC9.Clear()

TextC10.Clear()

TextN1.Clear()