IDKaName Ответов: 4

Как я могу изменить Python на VB.NET-что?


У меня есть этот генератор случайных чисел, и я хочу изменить его на VB.net.
Я начинаю путаться в том, как автоматически сохранять и программировать его.

Что я уже пробовал:

import random

number_of_codes = 100000
code_file = "codes.txt"

with open(code_file, "a+") as file:
    for _ in range (number_of_codes):
        a=random.randrange(10)
        b=random.randrange(10)
        c=random.randrange(10)
        d=random.randrange(10)
        e=random.randrange(10)

        file.write("282460000" + str(a) + str(b) + str(c) + str(d) + str(e))
        file.write("\n")

print ("Done!")

4 Ответов

Рейтинг:
25

Patrice T

a=random.randrange(10)
b=random.randrange(10)
c=random.randrange(10)
d=random.randrange(10)
e=random.randrange(10)

file.write("282460000" + str(a) + str(b) + str(c) + str(d) + str(e))

Использование 1 случайной функции на цифру-не очень умная идея, она не улучшит случайность генерируемых чисел. Случайные функции существуют с самого начала компьютеров и вполне способны генерировать 5-значные числа.
Если ваша проблема исходит из ведущих нулей, есть решения:
- при преобразовании числа в строку можно использовать форматирование (зависит от языка)
- или без форматирования
a=random.randrange(100000)
b=str(100000+a)

затем вы режете первый символ строки или держите 5 символов справа от строки.


Рейтинг:
2

MadMyche

Давайте разберем это на этапы.
1. Откройте файл для записи
2. Цикл for
3. Генерация случайных чисел
4. Запись в файл
5. напишите строку в консоль

Рекомендации:
1. Файл.Метод OpenWrite(String) (System.IO) | Microsoft Docs[^]
2. C# для оператора | Microsoft Docs[^]
3. Случайный Класс (Система) | Microsoft Docs[^]
4. Включено в #1
5. Приставка.Метод Записи (Система) | Microsoft Docs[^]


Рейтинг:
2

Leo Chapiro

Честно говоря, я не понял, в чем у вас проблема, но если вам нужно создать случайное число в VB.NET вы можете сделать это вот так:

[РЕДАКТИРОВАТЬ]
Вы забыли строку кода.
[/РЕДАКТИРОВАТЬ]

Dim r As New System.Random()
Dim value = r.Next(10)


ХТХ


Рейтинг:
0

IDKaName

Большое спасибо всем вам, кто помог мне! Ваше здоровье!!