lo haría así, espero que te oriente, aunque seguro hay muchas formas mejores!!! y por supuesto te toca terminar lo que falte.
Dim x,y,n,m,r,nu,n1,n2,n3,n4,n5,m1,m2,m3,m4,m5,result
sub trabajos()
Do while num <> 3
num=inputbox("Digente el Numero de la Operacion que Desea Realizar: 1. Encontrar el valor de Y 2. Promedio de un Estudiante 3. Salir")
if num = 1 then
x=inputbox("Ingrese el valor de X")
msgbox "El Valor de Y es: " & Valor(x)
end if
if num = 2 then
promedio()
end if
loop
msgbox"Terminado!"
end sub
function Valor(nota)
Valor=log(cint(x)+30/20)
end function
function Promedio()
m1=inputbox("Nombre de la 1°materia")
nu1=inputbox(" Nota de " & m1)
if nu1>100 then
msgbox "Ingrese un valor entre 0 - 100", vbOKOnly, "Error de Validacion"
exit function
end if
m2=inputbox("Nombre de la 2°materia")
nu2=inputbox(" Nota de " & m2 )
if nu2>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
exit function
end if
nu=cint(nu1)+ cint(nu2) + cint(nu3) + cint(nu4) + cint(nu5)
msgbox "el promedio es: " & nu/5
end function
trabajos()
Mostrar Mensajes
