VPF::Генератор - Форум программистов

Fantomm

Дата 25.3.2011, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.3.2011

Репутация: нет
Всего: нет

Здравствуйте люди. Вот код моего егенератора случайных чисел в VB6

Код


Option Explicit

Private Sub Command1_Click()
Dim paramA As Double
Dim paramB As Double
Dim i%, r1%, t1%, i1%, r2%
paramA = Text1.Text
paramB = Text2.Text

Label1 = ""
Label2 = ""
For i = 1 To paramA
r1 = Int(Rnd * paramB) + 1
t1 = -Log(r1 / 100) * 3600 / (paramB + 1)
Label1 = Label1 & r1 & " "
If i Mod 1 = 0 Then Label1 = Label1 & vbCrLf

Next i

For i1 = 1 To paramA
r2 = Int(Rnd * paramB) + 1
Label2 = Label2 & r2 & " "
If i1 Mod 1 = 0 Then Label2 = Label2 & vbCrLf
Next i1

End Sub

Private Sub Form_Load()
Randomize
End Sub

Данный генератор выбрасывает два стобика чисел, необходимо сделать так чтоб в зависимости от значений во втором столбике числам первого столбика присваивалась буква?

Куда нужно вставить структуру и как ее изменить

Код


select case t1
case 1 to 100
Label1 = Label1 & t1 & "T" & vbCrLf 
case 101 to 200
Label1 = Label1 & t1 & "R" & vbCrLf 
End Select

чтобы в зависимости от значения r2 буквы присваивались в 1 стобик, то есть к t1?

aclips

Дата 9.4.2011, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 1.6.2008

Репутация: нет
Всего: нет

просто в конец цикла вставь:

Код


if то,что рандомится<=100 then
  Ставь Т
else
  ставь R
end if

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »