Visual Basic para Aplicaciones - hacer programa en visual basic

Life is soft - evento anual de software empresarial
   
Vista:

hacer programa en visual basic

Publicado por Jesús (2 intervenciones) el 28/11/2016 03:15:12
necesito ayuda con este trabajo por favor :
realice un programa en visual basic que lea 7 numeros y determine: a) cual es el mayor, b) cual es el menor, c) cuantos son pares e impares, d) cuantos son primos y no, e) que calcule el logaritmo del mayor mas el menor.
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

hacer programa en visual basic

Publicado por Oscar Rubió rehabitot@rehabitot.com (19 intervenciones) el 28/11/2016 11:04:07
Prueba con esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub jesus()
mayor = Application.WorksheetFunction.Max(Range("a1:a7"))
menor = Application.WorksheetFunction.Min(Range("a1:a7"))
For i = 1 To 7
    If Cells(i, 1) Mod 2 = 0 Then j = j + 1
Next i
pares = j
nones = 7 - j
For i = 1 To 7
    For j = 2 To Cells(i, 1) - 1
        If Cells(i, 1) Mod j = 0 Then
            k = k + 1
            Exit For
        End If
    Next j
Next i
k = k - 1
primos = 7 - k
noPrimos = k
loga = Application.WorksheetFunction.Log(mayor + menor)
miMsg = "El nº mayor de la serie es " & mayor & vbLf
miMsg = miMsg & "El nº menor de la serie es " & menor & vbLf
miMsg = miMsg & "Hay " & pares & " número/s par/es" & vbLf
miMsg = miMsg & "Hay " & nones & " número/s impar/es" & vbLf
miMsg = miMsg & "Hay " & primos & " número/s primo/s" & vbLf
miMsg = miMsg & "Hay " & noPrimos & " número/s no primo/s" & vbLf
miMsg = miMsg & "El logaritmo del mayor más el menor es " & loga
MsgBox miMsg
End Sub

Los números deben estar en la columna a:a desde la fila 1

Espero que te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

hacer programa en visual basic

Publicado por Jesús (2 intervenciones) el 29/11/2016 11:16:14
Gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar