en serio insistes con esa pregunta....???
lo que te recomende es que primero aprendieras a escribir, y bien, siguiendo con este jueguito te pongo algunas sugerencias.
PREGUNTA
..nesesito saber como lograr el coseno de una funsion..
SUGERENCIA:
Escribe coseno a la izquierda de Buscar, luego da clic en buscar, si acaso no entiendes copia este link
http://www.lawebdelprogramador.com/news/buscar.php?id=93&texto=Visual+Basic&cadena=coseno
Encontrarás algunos temas de este mismo foro, sobre COSENO
Nota: sobre funsion no encontre nada
PREGUNTA
...multiplicarlo por el angulo de un poligono de tres lados...
SUGERENCIA
No encontré nada relacionado con eso en este foro, me pondré a tomar un curso de geometría, mientras tanto busca en este link a ver que encuentras, si encuentras algo, nos dices, es bueno saber cosas nuevas
http://search.msdn.microsoft.com/search/Default.aspx?query=angulo+poligono+de+3+lados&brand=msdn&locale=es-mx&refinement=00&lang=es-es
PREGUNTA
....y y comprobar que el resulta sea un numero primo o no....
SUGERENCIA
Elabora tu un algoritmo que te indique si determinado número es primo o no, acuérdate que el número primo es aquel que solo es divisible entre 1 y entre si mismo, ahora que si tampoco quieres hacer ese algoritmo, que es lo que yo creo, revisa este codigo, no lo he probado aun, pero supongo que tu si lo harás
Private Function Primo()
Dim DividendoTemp As Double
Dim MaximoDivisor As Integer
Dim ContadorDivisor As Integer
DividendoTemp = Dividendo
MaximoDivisor = Int(Sqr(DividendoTemp))
If DividendoTemp = 0 Or DividendoTemp = 1 Then 'Caso 0 y 1
Primo = "Error"
Exit Property
ElseIf MaximoDivisor = 1 Then 'caso 2 y 3
Primo = "Primo"
Exit Property
Else
For ContadorDivisor = 2 To MaximoDivisor ' caso de 4, +00
If (DividendoTemp / ContadorDivisor) - Int(DividendoTemp / ContadorDivisor) = 0 Then
Primo = "Compuesto"
Exit Property
End If
Next
End If
Primo = "Primo"
End function
o prueba con esto
Dim Num as Integer
Dim x as integer
Dim R_OK as Boolean
Num = Inputbox("Introduce un valor")
x = 2
R_Ok = True
Do While x < Num And R_OK
R_OK = Num Mod x <> '
x = x + 1
loop
Select case R_OK
Case true
Print "El numero "; Num ; "es primo"
Case false
Print " El numero "; Num ; "NO es primo"
end select
Por último
FELICIDADES POR TU GRADUACION.... de Sistemas Operativos Básicos, por aca por mis rumbos no habia escuchado de esa carrera, pero supongo que existe, Suerte Luisa...!!!!!
Nos cuentas de tu fiesta de graduacion