如何在Visual Basic（表單）中打印N個素數？

Question

我有這個可視化的基本代碼來接收用戶輸入並打印出許多素數。例如，如果用戶輸入5，輸出應該是：1，3，5，7，11，但我發現it.Here困難是我的代碼：

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 

Answer 1

嘗試......

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