С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
 Аватар для timsc1
15 / 15 / 2
Регистрация: 27.11.2011
Сообщений: 714

Случайные числа в 10 разных TextBox

06.11.2012, 23:03. Показов 1505. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток! Помогите пожалуйста. необходимо 10 случайных не повторяющихся чисел записать в 10 разных текстбокс. У вас на сайте есть, как формировать случайные не повторяющиеся числа.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Dim R As New Random
        Dim List As New List(Of Integer)
        Dim List2 As New List(Of String)
        For I As Integer = 1 To 30
            List.Add(I)
        Next
        For C As Integer = 1 To 30
            Dim Ind As Integer = R.NextDouble * (List.Count - 1)
            List2.Add(List(Ind))
            List.RemoveAt(Ind)
        Next
        MsgBox(Join(List2.ToArray, ", "))
Код работает. Спасибо. Но как их все записать в разные Текстбокс??? Помогите!!!!

Добавлено через 52 минуты
Это надо для таблицы умножения...
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.11.2012, 23:03
Ответы с готовыми решениями:

Как вывести случайные числа в четыре textbox?
Здравствуйте помогите пожалуйста как никогда нужна ваша помощь Нужно что бы по нажатию button3 во все 4 textBox выводились...

Отобразить текст в Textbox из другого TextBox в разных кодировках без сохранения в файл
Доброго всем времени суток! Есть на форме несколько Textbox"сов. В 1-й Textbox вписывается текст как образец, а в остальных этот же...

Случайные значения для разных объектов
Здравствуйте. Я тут взялся за консольный морской бой, нарыл на форуме пару способов генерации случайных чисел, только есть...

6
Почетный модератор
 Аватар для Памирыч
23248 / 9160 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
07.11.2012, 06:46
timsc1, вместо последней строки
VB.NET
1
MsgBox(Join(List2.ToArray, ", "))
Написать следующее
VB.NET
1
2
3
        For Tb As Integer = 1 To 10
            Me.Controls("TextBox" & Tb).Text = List2(Tb - 1)
        Next
1
 Аватар для timsc1
15 / 15 / 2
Регистрация: 27.11.2011
Сообщений: 714
07.11.2012, 08:17  [ТС]
Не работает!
Миниатюры
Случайные числа в 10 разных TextBox  
0
Почетный модератор
 Аватар для Памирыч
23248 / 9160 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
07.11.2012, 09:11
timsc1, если текстбоксы называются не TextBox то надо писать свои имена.

Добавлено через 1 минуту
Ну и еще причина может быть - если они лежат не на форме а например на панели или GroupBox
2
 Аватар для timsc1
15 / 15 / 2
Регистрация: 27.11.2011
Сообщений: 714
07.11.2012, 11:18  [ТС]
Спасибочки!!! Вроде работает. Но один нюанс: надо чтобы случайные числа были от 2 до 9, а форм 10, пусть даже одно число повторится... Поможете???
0
Почетный модератор
 Аватар для Памирыч
23248 / 9160 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
07.11.2012, 11:35
Да.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        Dim R As New Random
        Dim List As New List(Of Integer)
        Dim List2 As New List(Of String)
        For I As Integer = 2 To 12
            If I > 9 Then
                List.Add(R.Next(2, 9))
            Else
                List.Add(I)
            End If
        Next
        For C As Integer = 1 To 10
            Dim Ind As Integer = R.NextDouble * (List.Count - 1)
            List2.Add(List(Ind))
            List.RemoveAt(Ind)
        Next
        For Tb As Integer = 1 To 10
            Me.Controls("TextBox" & Tb).Text = List2(Tb - 1)
        Next
1
 Аватар для timsc1
15 / 15 / 2
Регистрация: 27.11.2011
Сообщений: 714
07.11.2012, 12:07  [ТС]
Спасибо огромное!!! Дай Вам БОГ здоровья!!!
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.11.2012, 12:07
Помогаю со студенческими работами здесь

Введены случайные целые числа a, b, c, d. Правда ли, что не все числа отрицательны
Введены случайные целые числа a,b,c,d. Правда ли,что не все числа отрицательны?

Нужно чтобы случайные числа вставали в конец массива,а не удаляли числа
#include <iostream> using namespace std; void main() { setlocale(LC_ALL, "Russian"); int n; // кол-во элементов массива ...

Генерировать и выводить случайные числа в промежутке [-5 .. 10] до тех пор, пока числа увеличиваются
генерировать и выводить случайные числа в промежутке от до тех пор пока числа увеличиваются. Вычислить среднее арифметическое

Введены случайные целые числа: a,b,c,d. Правда ли, что все числа больше -20 и меньше 20
Введены случайные целые числа: a,b,c,d. Правда ли, что все числа больше -20 и меньше 20

Вывести в случайные точки экрана случайным цветом все числа от 1 до сформированного числа
Программа должна случайным образом сформировать натуральное число и (по окончании работы программы должен прозвучать звуковой сигнал): ...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru