Программирование, т. 3

тупому торжественно вручается

КОКОКОКОКОКОКОКО

Sub jj()

Const N& = 100 'ðàçìåð âûáîðêè

Dim a(), b(1 To N, 1 To 1), i&

a = Intersect(Range("A:B:C"), ActiveSheet.UsedRange).Value

For i = 1 To N

Do

b(i, 1) = a(1 + Int(Rnd * UBound(a)), 1 + Int(Rnd * 2))

Loop While IsEmpty(b(i, 1))

Next

ActiveCell.Resize(N).Value = b

End Sub

Почему макрос не делает выборку из колонки С?

шо за йазык такой ацтойный

бейсик же

забавно

в школе я думал что он намного более примитивный

ну для бэйсика он норм

Sub jj()

Const N& = 100 'ðàçìåð âûáîðêè

Dim a(), b(1 To N, 1 To 1), i&

a = Intersect(Range("A:B:C"), ActiveSheet.UsedRange).Value

For i = 1 To N

Do

b(i, 1) = a(1 + Int(Rnd * UBound(a)), 1 + Int(Rnd * 2))

Loop While IsEmpty(b(i, 1))

Next

ActiveCell.Resize(N).Value = b

End Sub

 

Почему макрос не делает выборку из колонки С?

потому что Range("A:C")

пожалуйста помогите решить несколько не сложных задач. вероятнее всего язык программирования С++. могу закинуть вам на киви деньжат.

мой скайп sqtimer в общем.

пожалуйста помогите решить несколько не сложных задач. вероятнее всего язык программирования С++. могу закинуть вам на киви деньжат.

мой скайп sqtimer в общем.

пожалуйста помогите решить несколько не сложных задач. вероятнее всего язык программирования С++. могу закинуть вам на киви деньжат.

мой скайп sqtimer в общем.

закинь мне деньжат, а 9600916519

выслал, проверяй

Баланс: 0,00 руб.

спс

не дошли еще значит. жди

ну и ты тогда жди

Решите ему задачи, а задач нету

Решите ему задачи, а задач нету

1) Дан массив А(5). Найти сумму и количество положительных элементов.

2) Найти количество отрицательных элементов матрицы А(4,4)

3) Строковые потоки. Входные строковые потоки.

мне сказали что задачи очень легкие, мне стало стыдно я не могу решить их.

тебе не должно быть стыдно

тебе не должно быть стыдно

 

ведь ты умственно отсталый, это бывает

 

да вообще пиздец.

Sub jj()

Const N& = 100 'ðàçìåð âûáîðêè

Dim a(), b(1 To N, 1 To 1), i&

a = Intersect(Range("A:B:C"), ActiveSheet.UsedRange).Value

For i = 1 To N

Do

b(i, 1) = a(1 + Int(Rnd * UBound(a)), 1 + Int(Rnd * 2))

Loop While IsEmpty(b(i, 1))

Next

ActiveCell.Resize(N).Value = b

End Sub

 

Почему макрос не делает выборку из колонки С?

потому что Range("A:C")

Ну когда я пишу A:B то он берет рандом из А и В

А если пишу A:C то колонку С он игнорит, почему?

А я скинул не то вот верный вариант

Sub jj()

Const N& = 100 'ðàçìåð âûáîðêè

Dim a(), b(1 To N, 1 To 1), i&

a = Intersect(Range("A:C"), ActiveSheet.UsedRange).Value

For i = 1 To N

Do

b(i, 1) = a(1 + Int(Rnd * UBound(a)), 1 + Int(Rnd * 2))

Loop While IsEmpty(b(i, 1))

Next

ActiveCell.Resize(N).Value = b

End Sub

Вот верный - но в том все и дело - у меня стоит А:С но колонку С он игнорирует

тебе не должно быть стыдно

 

ведь ты умственно отсталый, это бывает

 

да вообще пиздец.

и нахуя тебе эти задачи решать?

Sub jj()

Const N& = 100 'ðàçìåð âûáîðêè

Dim a(), b(1 To N, 1 To 1), i&

a = Intersect(Range("A:B:C"), ActiveSheet.UsedRange).Value

For i = 1 To N

Do

b(i, 1) = a(1 + Int(Rnd * UBound(a)), 1 + Int(Rnd * 2))

Loop While IsEmpty(b(i, 1))

Next

ActiveCell.Resize(N).Value = b

End Sub

 

Почему макрос не делает выборку из колонки С?

потому что Range("A:C")

Ну когда я пишу A:B то он берет рандом из А и В

 

А если пишу A:C то колонку С он игнорит, почему?

 

А я скинул не то вот верный вариант

 

 

Sub jj()

Const N& = 100 'ðàçìåð âûáîðêè

Dim a(), b(1 To N, 1 To 1), i&

a = Intersect(Range("A:C"), ActiveSheet.UsedRange).Value

For i = 1 To N

Do

b(i, 1) = a(1 + Int(Rnd * UBound(a)), 1 + Int(Rnd * 2))

Loop While IsEmpty(b(i, 1))

Next

ActiveCell.Resize(N).Value = b

End Sub

 

Вот верный - но в том все и дело - у меня стоит А:С но колонку С он игнорирует

ну если чо, то 1 + Int(Rnd * 2) возвращает значения от 1 до 2 и определяет номер столбца, так что какие бы ты диапазоны не указывал в переменной a, в b значения будут подставляться из первых двух столбцов.