Ejercicios de programación .net (nivel inicial)
Se muestra el funcionamiento de los conceptos básicos para programar en .net
Se muestra el funcionamiento de los conceptos básicos para programar en .net
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Private Sub Button2_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles Button2.Click<br />
ListBox1.Items.Clear()<br />
ListBox2.Items.Clear()<br />
ListBox3.Items.Clear()<br />
Dim f1, f2, f3 As Integer<br />
End Sub<br />
End Class<br />
'ingrese magnitud vector<br />
f1 = InputBox("Ingrese el límite 1º vector")<br />
f2 = InputBox("Ingrese el límite 2º vector")<br />
f3 = f1<br />
If f1 = f2 Then<br />
Dim v1(f1), v2(f2), vs(f1)<br />
'ingrese vector 1<br />
For i = 1 To f1<br />
v1(i) = InputBox("INGRESE VECTOR DE POSICIÓN: " & i)<br />
ListBox1.Items.Add(v1(i))<br />
Next<br />
'ingreso vector 2<br />
For i = 1 To f2<br />
v2(i) = InputBox("INGRESE VECTOR DE POSICIÓN: " & i)<br />
ListBox2.Items.Add(v2(i))<br />
Next<br />
'resta vectores<br />
For i = 1 To f3<br />
vs(i) = Val(v1(i)) - Val(v2(i))<br />
ListBox3.Items.Add(vs(i))<br />
Next<br />
Else<br />
MsgBox("Vectores <strong>de</strong>siguales")<br />
End If<br />
Leonel Navarrete
Change language