Заполнение TextBox-ов произвольно числами в заданном диапазоне - VB

Формулировка задачи:

Доброго времени суток! Подскажите пожалуйста как это сделать? На форме пять ТекстБосков, имеется два числа с запятой, например "50,00" и "50,05", нужно заполнить все пять ТБоксов случайным числом от 50.00 до 50,05, т.е. результат должен быть примерно таким: 50,03 50,005 50,05 50,01 50,032 Ну и т.д. в зависимости от количества ТБоксов, после запятой не более трех цифр. Заранее спасибо.

Решение задачи: «Заполнение TextBox-ов произвольно числами в заданном диапазоне»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim i As Integer
Randomize
   For i = 0 To 4
       Text1(i).Text = Round((Rnd * 0.05), 3) + 50
   Next i
End Sub
                        

Оцени полезность:

15 голосов , оценка 4.4 из 5

Похожие ответы