/ / Ako vytlačiť N počet prvočísel v Visual basic (formuláre)? - vb.net, formuláre

Ako vytlačiť N počet prvočísel v Visual basic (formuláre)? - vb.net, formuláre

Mám tento vizuálny základný kód pre príjem užívateľazadajte a vytlačte toľko prvočísel. Napríklad, ak používateľ zadá 5, výstup by mal byť: 1, 3, 5, 7, 11. Ale našiel som ťažkosti s ním. Tu je môj kód:

Dim i, n, input, currentPrime As Integer
Dim Wrap As String = Chr(10) & Chr(13)
input = txtInput.Text
currentPrime = 1
txtAns.Text = "Prime Numbers are : " & Wrap
Do While (currentPrime <= input)
For i = currentPrime To input
For j = 2 To Fix(i / 2) + 1
If i Mod j = 0 Then
n = 1
End If
Next
If n = 1 Then
n = 0
Else
txtAns.Text = txtAns.Text & Wrap & i & " is a prime number " & Wrap
End If
Next
currentPrime += 1
Loop

odpovede:

0 pre odpoveď č. 1

Skúste to...

    Dim i, n, input As Integer
Dim Wrap As String = Chr(10) & Chr(13)
input = txtInput.Text
Dim found = 0
Dim output = "Prime Numbers are : " & Wrap
While found < input
i = i + 1
For j = 2 To Fix(i / 2) + 1
If i Mod j = 0 Then
n = 1
End If
Next
If n = 1 Then
n = 0
Else
output = output & Wrap & i & " is a prime number " & Wrap
found = found + 1
End If
End While
txtAns.Text = output