Перевести код с C# в VB.NET с Windows Forms

@Dzhon · Регистрация: 12.03.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите перевести код с c# в vb.net и чтобы программа работала не через консоль, а через форму

C#

using System;
namespace ex4
{
    class Program
    {
        public static bool Prost(double n)
        {
            for (int i = 2; i <= (Math.Sqrt(n)); i++)
            {
                if ((n > 2) && (n % i == 0))
                {
                    return false;
                }
            }
            return true;
        }
        static void Main(string[] args)
        {
            Console.WriteLine("введите n");
            int n = Convert.ToInt32(Console.ReadLine());
            int k = 0;
            int i = n + 1;
            while (i <= 2 * n - 2)
            {
                if (Prost(i) && Prost(i + 2))
                {
                    if (k == 0)
                    {
                        Console.WriteLine("Простые числа с разностью 2 на интервале {0} - {1} есть: ", n + 1, 2 * n);
                        k = 1;
                    }
                    Console.WriteLine("{0} {1}", i, i + 2);
                }
                i++;
            }
            if (k == 0) Console.WriteLine("Простых чисел с разностью 2 на интервале {0} - {1} нет", n + 1, 2 * n);
            Console.ReadLine();
        }
    }
}

@Yury Komar · 03.05.2017, 10:19

Dzhon, воспользуйтесь конвертером... Ну а в WinForms сами переделаете, а то за вас всю (настолько плёвую работу) нехочется выполнять...

КОНВЕРТЕР

@Dzhon · 03.05.2017, 10:39 **[ТС]**

Yury Komar, конвертировал и переделал код, но ни чего не работает

VB.NET

Public Class Form1
 
    Public Shared Function Prost(n As Double) As Boolean
        Dim i As Integer = 2
        While i <= (Math.Sqrt(n))
            If (n > 2) AndAlso (n Mod i = 0) Then
                Return False
            End If
            Math.Max(Threading.Interlocked.Increment(i), i - 1)
        End While
        Return True
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n As Integer
        TextBox1.Text = n
        Dim k As Integer = 0
        Dim i As Integer = n + 1
        While i <= 2 * n - 2
            If Prost(i) AndAlso Prost(i + 2) Then
                If k = 0 Then
                    ListBox1.Text = "Простые числа с разностью 2 на интервале {0} - {1} есть: " & n + 1 & 2 * n
                    k = 1
                End If
                ListBox1.Text = "{0} {1}" & i & i + 2
            End If
            Math.Max(Threading.Interlocked.Increment(i), i - 1)
        End While
        If k = 0 Then
            ListBox1.Text = "Простых чисел с разностью 2 на интервале {0} - {1} нет" & n + 1 & 2 * n
        End If
    End Sub
 
End Class

@Orlangur · 03.05.2017, 17:10

Dzhon,

VB.NET

Public Class Form1
    Public Shared Function Prost(ByVal n As Double) As Boolean
        Dim i As Integer = 2
        Do While i <= (Math.Sqrt(n))
            If (n > 2) AndAlso (n Mod i = 0) Then
                Return False
            End If
            i += 1
        Loop
        Return True
    End Function
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n As Integer = Convert.ToInt32(TextBox1.Text)
        Dim k As Integer = 0
        Dim i As Integer = n + 1
        Do While i <= 2 * n - 2
            If Prost(i) AndAlso Prost(i + 2) Then
                If k = 0 Then
                    TextBox2.Text = "Простые числа с разностью 2 на интервале {0} - {1} есть: " & n + 1 & " " & 2 * n
                    k = 1
                End If
                TextBox2.Text = "{0} {1} " & i & " " & " " & i + 2
            End If
            i += 1
        Loop
        If k = 0 Then
            TextBox2.Text = "Простых чисел с разностью 2 на интервале {0} - {1} нет " & n + 1 & " " & 2 * n
        End If
 
    End Sub
End Class

@Yury Komar · 03.05.2017, 17:16

Dzhon, честно говоря я не понял в чем суть кода, но он работает... Вы просто не предусмотрели в формах ввода числа N

VB.NET

Public Class Form1
 
    Function Prost(n As Double) As Boolean
        For i As Integer = 2 To (Math.Sqrt(n))
            If (n > 2) AndAlso (n Mod i = 0) Then
                Return False
            End If
        Next
        Return True
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim n As Integer = Convert.ToInt32(InputBox("Введите число N:"))
        Dim k As Integer = 0
        Dim i As Integer = n + 1
        While i <= 2 * n - 2
            If Prost(i) AndAlso Prost(i + 2) Then
                If k = 0 Then
                    ListBox1.Items.Add(String.Format("Простые числа с разностью 2 на интервале {0} - {1} есть: ", n + 1, 2 * n))
                    k = 1
                End If
                ListBox1.Items.Add(i & " " & i + 2)
            End If
            i += 1
        End While
        If k = 0 Then
            MsgBox(String.Format("Простых чисел с разностью 2 на интервале {0} - {1} нет", n + 1, 2 * n))
        End If
    End Sub
End Class

Перевести код с C# в VB.NET с Windows Forms

Решение

Решение

@Yury Komar Модератор 4205 / 3288 / 498 Регистрация: 27.01.2014 Сообщений: 6,041
	03.05.2017, 10:19	2
	Dzhon, воспользуйтесь конвертером... Ну а в WinForms сами переделаете, а то за вас всю (настолько плёвую работу) нехочется выполнять... КОНВЕРТЕР 0

	03.05.2017, 17:16