Здравствуйте люди. Вот код моего егенератора случайных чисел в 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? |