Parcial Visual

1. Elabore un programa que solicite x cantidad de notas de la asignatura de Biología al usuario, si el promedio es mayor a 8 imprima un letrero que indique que ganó la asignatura, de lo contrario imprima un letrero que diga "debe mejorar".

Solución:

Private Sub CommandButton1_Click()
Dim X, A, Pr As Long
X = Val(InputBox("cuantas notas son"))
For i = 1 To X
A = Val(InputBox("Cuales son las notas"))
Pr = (X * A) / X
Next i
If Pr > 8 Then
MsgBox ("gano la asignatura")
Else
MsgBox ("debe mejorar")
End If
End Sub

2. Elabore un programa que solicite N números al usuario, si la suma de todos los números es mayor a 10 muestre el doble de dicha suma, de lo contrario muestre la mitad de la suma.

Solución:

Private Sub CommandButton1_Click()
Dim A, B, C, D, F As Long
A = Val(InputBox("Cuantos numeros son"))
For i = 1 To A
B = Val(InputBox("Cuales son los numeros"))
C = A * (A + B)
D = C * 2
F = C / 2
Next i
If C > 10 Then
MsgBox ("el total es:" & D)
Else
MsgBox ("el total es:" & F)
End If
End Sub