Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
'Esto lo he hecho para testear la funcion.
Private Sub Form_Load()
Dim j As Integer
For j = 0 To 100
if isPrime(j) Then
Debug.Print j & ", "
End If
Next j
End Sub
Function isPrime(ByVal iNum As Integer) As Boolean
If (iNum < 2) Then isPrime = False: Exit Function
If (iNum < 4) Then isPrime = True: Exit Function
If (iNum Mod 2 = 0) Then isPrime = False: Exit Function
Dim iMax As Integer: iMax = CInt(Sqr(CDbl(iNum)))
Dim i As Integer
For i = 3 To iMax Step 2
If (iNum Mod i = 0) Then isPrime = False: Exit Function
Next i
isPrime = True
End Function
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If isPrime(Val(TextBox1.Text)) Then
Label1.Text = ("El número es Primo")
Else
Label1.Text = ("El número no es Primo")
End If
End Sub
Private Function isPrime(ByVal iNum As Integer) As Boolean
' Versión traducida de la antes mensionada
' función isPrime para Visual Basic Express 2010
End Function
End Class