Título: ayuda envb2005 Publicado por: DaNuK en 25 Noviembre 2009, 00:31 am lo que quiero es calcular si un numero es primo o no
a la primera si me lo calcula pero sin introduzca otro numero ya no me lo calcula siempre me muestra numero no primo. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If txt1.Text = "" Then If MsgBox("Favor de introducir u numero", MsgBoxStyle.Information, "ERROR") = MsgBoxResult.Ok Then txt1.Focus() End If Else For i = 1 To Val(txt1.Text) p = Val(txt1.Text) Mod i If p = 0 Then d = d + 1 End If Next i If d <= 2 Then If MsgBox("El numero es primo", MsgBoxStyle.OkCancel, "Numero primo") = MsgBoxResult.Ok Then txt1.Text = "" txt1.Focus() End If Else If MsgBox("El numero no es primo", MsgBoxStyle.OkCancel, "Numero no primo") = MsgBoxResult.Ok Then txt1.Focus() End If End If End If End Sub |