Programacion visual basic
hola!! Valeroasm oye tengo esta pregunta y la verdad nos e como hacerla te agradezco que meayudes gracias.
Diseñar un algoritmo para leer un vector de T elementos y un valor
numérico K. Mostrar cuántos elementos son iguales, cuántos mayores y
cuántos menores que K hay en el vector.
1 Respuesta
Puede ser algo tan sencillo como esto
Private Sub CommandButton1_Click()
Dim i As Integer
Dim K, V(100) As Double
LabelMe = "0"
LabelIg = "0"
LabelMa = "0"
K = Val(TextBoxK)
For i = 1 To Val(TextBoxT.Text)
V(i) = Val(InputBox("Componente nº " & i & " del vector ?", _
"Introducción de componentes"))
If V(i) < K Then
LabelMe = LabelMe + 1
ElseIf V(i) = K Then
LabelIg = LabelIg + 1
Else
LabelMa = LabelMa + 1
End If
Next
End SubEl el formulario habría el CommandButton1 para iniciar el proceso
Dos TextBox:
TextBoxK y TextBoxT para que puedas variar el valor que se comprara y las componentes del vector.
Tres Label:
LabelMe, LabelIg, LabelMa para que aparezcan los resultados.
Aparte puedes poner más cosas para adornarlo y que se sepa lo que es cada dato.
Oye, en Excel funciona.
Yo pensaba que haría falta poner cosas como
LabelMe.Text = str(Val(LabelMe.Text)+1)
Pero no ha sido necesario. Si es que Visual Basic es muy listo y te entiende.
