Miért nem működik a programom?
Van egy problémám:írtam VB nyelven egy prímszám keresőt,de amikor megkérdezem,hogy ez prímszám-e,lefagy.
Itt a programkód:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, n As Long
Dim l As Boolean
l = False
i = 1
n = Val(TextBox1.Text)
i = i + 1
l = (n Mod i = 0)
Do While l = False And i < Math.Sqrt(n)
If l = True Then Label1.Text = "Összetett"
If l = False Then Label1.Text = "Prím"
Loop
End Sub
válasza: válasza:A ciklus indítása elé beteszel egy olyan hogy:
If n>1 then
válasza: válasza:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, n As Long
Dim l As Boolean
l = False
i = 1
n = Val(TextBox1.Text)
If n>1 then
Do While l = False And i < Math.Sqrt(n)
i = i + 1
l = (n Mod i = 0)
Loop
If l = True Then Label1.Text = "Összetett"
If l = False Then Label1.Text = "Prím"
else label1.text = "Érvénytelen"
endif
End Sub
Remélem érted és ki tudod javítani a hibáimat.
Nagyon is értem.
Itt a hibajavításom:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, n As Long
Dim l As Boolean
l = False
i = 1
n = Val(TextBox1.Text)
If n > 1 Then
Do While l = False And i < Math.Sqrt(n)
i = i + 1
l = (n Mod i = 0)
Loop
If l = True Then Label1.Text = "Összetett"
If l = False Then Label1.Text = "Prím"
Else
Label1.Text = "Érvénytelen"
End If
End Sub
End Class
Egyébként nagyon köszönöm,egy estédet szántad rá,és nagyon örülök,hogy kijavult a programom.
Átküldöm majd neked.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!