Форум программистов, компьютерный форум, киберфорум
C# для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 09.11.2022
Сообщений: 10

Перевод с Visual Basic на C# (консоль)

13.11.2022, 22:14. Показов 358. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, помогите перевести пожалуйста. Пробовал через конвертер - не получается
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Module Module1
 
    Sub Main()
        Rand()
        Dim S As String
        Dim Sum As Integer
        S = IO.File.ReadAllText("1.txt", System.Text.Encoding.Default)
        Dim d() As String = Split(S, " ")
        For i = 0 To UBound(d)
 
            If Val(d(i)) < 0 Then
                Sum += Val(d(i))
 
            End If
        Next
        IO.File.AppendAllText("1.txt", " Sum= " & Sum, System.Text.Encoding.Default)
        Console.WriteLine()
        Console.WriteLine("Sum= " & Sum)
 
        Console.ReadKey()
    End Sub
 
    Sub Rand()
        Dim R As New Random
        Dim A As Integer
        Dim B As String
        For i = 1 To 20
            A = R.Next(-9, 10)
            Console.Write("{0,3}", A)
            B &= A & " "
        Next
        IO.File.WriteAllText("1.txt", B, System.Text.Encoding.Default)
    End Sub
End Module
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.11.2022, 22:14
Ответы с готовыми решениями:

Перевести программу из Pascal в visual basic (консоль)
const n = 10; var a : array of integer; k, i : byte; begin randomize; writeln('исходный массив:'); for i := 1...

Преобразовать код Pascal в Visual basic.net (консоль)
Задача: Последовательность задана формулой ai=(-1)*((i^2+1)/(2*i+1)). вычислить сумму отрицательных членов и их число с номера 3 по 10 , и...

Перевод с Visual Basic на C#
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim text As String =...

4
3259 / 3278 / 556
Регистрация: 17.02.2019
Сообщений: 5,188
13.11.2022, 23:17
Лучший ответ Сообщение было отмечено vladkurilov28 как решение

Решение

vladkurilov28, вроде так
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
using System;
 
static class Module1
{
    public static void Main()
    {
        Rand();
        string S;
        int Sum = 0;
        S = System.IO.File.ReadAllText("1.txt", System.Text.Encoding.Default);
        string[] d = S.Split (' ');
        for (var i = 0; i < d.Length ; i++)
        {
            if (int.Parse(d[i]) < 0)
                Sum += int.Parse(d[i]);
        }
        System.IO.File.AppendAllText("1.txt", " Sum= " + Sum, System.Text.Encoding.Default);
        Console.WriteLine();
        Console.WriteLine("Sum= " + Sum);
 
        Console.ReadKey();
    }
 
    public static void Rand()
    {
        Random R = new Random();
        int A;
        string B="";
        for (var i = 1; i <= 20; i++)
        {
            A = R.Next(-9, 10);
            Console.Write("{0,3}", A);
            B += A + " ";
        }
        System.IO.File.WriteAllText("1.txt", B.Trim (), System.Text.Encoding.Default);
    }
}
2
fly
 Аватар для I can
4951 / 4635 / 844
Регистрация: 13.04.2015
Сообщений: 9,819
13.11.2022, 23:23
Цитата Сообщение от January29 Посмотреть сообщение
что находится?
Вангую... Он же создаётся тут же на лету методом Rand, там получается строка целых положительных и отрицательных чисел, разделённых пробелами.
1
3259 / 3278 / 556
Регистрация: 17.02.2019
Сообщений: 5,188
13.11.2022, 23:25
Цитата Сообщение от I can Посмотреть сообщение
Вангую...
да я уже тоже вангую, что спать надо идти
0
fly
 Аватар для I can
4951 / 4635 / 844
Регистрация: 13.04.2015
Сообщений: 9,819
13.11.2022, 23:28

Не по теме:

Цитата Сообщение от January29 Посмотреть сообщение
да я уже тоже вангую, что спать надо идти
Да, пора. Я долго читал, тупил и писал...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.11.2022, 23:28
Помогаю со студенческими работами здесь

Перевод в Visual Basic
Решить нелинейное уравнение методом простых итераций Ln(x)-x+1.8 = 0 На отрезке По этому уравнению есть программка в Pascal ...

Перевод из Visual Basic в С++
Здравствуйте. Прошу вашей помощи. Так как я VB не изучал. Можите помочь перевести из Visual Basic в С++ Sub...

Перевод с C# на Visual Basic
Здраствуйте, помогите пожалуйста перевести код на Basic class Program { static void Main(string args) { ...

Перевод с Visual Basic на C#
Помогите пожалуйста Console.WriteLine(&quot;Данный куб с ребром равным = &quot; &amp; edge &amp; vbCrLf) ...

Перевод из C++ в Visual Basic
Добрый вечер. Очень нужна ваша помощь. VB для меня совсем темный лес. Задача на рассчет последовательностей Фиббончи. Нужно определить,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru