При заданных значениях X1, X2, ., Xn и Y1, Y2, . , Yn получить массив - VB

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

При заданных значениях X1, X2, ..., Xn и Y1, Y2, ... , Yn получить массив T1, T2, ... , Tn , элементы которого получают значения по правилу: Ti=Xi, если Xi>Yi, иначе Ti= Yi . Подсчитать, сколько элементов Ti получило значения Xi.

Решение задачи: «При заданных значениях X1, X2, ., Xn и Y1, Y2, . , Yn получить массив»

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

                            Private Sub Command1_Click()
Dim n As Integer
n = Val(Trim(Text1.Text))
Dim x(), y(), t() As Integer
ReDim x(1 To n), y(1 To n), t(1 To n)
Randomize Timer
List2.Clear
List3.Clear
For i = 1 To n
'x(i)
x(i) = Int(Rnd * 100)
List2.AddItem (x(i))
'y(i)
y(i) = Int(Rnd * 100)
List3.AddItem (y(i))
Next i
For i = 1 To n
If x(i) > y(i) Then t(i) = x(i): k = k + 1 Else t(i) = y(i)
List1.AddItem (t(i))
Next i
MsgBox (Str(k) + " elementa(ov)")
End Sub
                        

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

6 голосов , оценка 4 из 5

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