Excel2003. Visual Basic

[SpekTR]

я никогда не работал в этой программе( и меня тут попросили решить задачу. вообще не знаю как. не знаю куда писать(
В массиве В(11) все элементы из интервала (a,b) занесите в массив С и найдите сумму элементов полученного массива

[Казанский]

> я никогда не работал в этой программе

В смысле, Excel или VBA? Почему тогда Вас попросили?

[SpekTR]

Сообщение от Казанский

> я никогда не работал в этой программе

В смысле, Excel или VBA? Почему тогда Вас попросили?

Без понятия... )) VBA -в этом не работал)))

[doober]

Сообщение от SpekTR

Без понятия... )) VBA -в этом не работал)))

Тогда выход один,стучитесь к Казанскому в личку с предложением,от которого он не сможет отказаться,через часик все готово.
Либо ждите ,возможно кто то и решит вашу проблему

[IgorGO]

Sub NiceDay()
  Dim b(11) As Long, mi As Long, ma As Long, i As Long, s As String
  mi = InputBox("Дайте А:")
  ma = InputBox("допустим А=" & mi & ", a дайте еще В:")
  s = ""
  sm = 0
  Randomize
  For i = 1 To 11
    b(i) = mi + (ma - mi) * Rnd()
    s = s & ", " & b(i)
    sm = sm + b(i)
  Next
  s = Right(s, Len(s) - 2)
  MsgBox "Исходный массив:" & Chr(10) & s & Chr(10) & Chr(10) & _
  "Сумма элементов = " & sm, vbOKOnly, "Извольте"
End Sub

куда выслать деньги - очевидно, сколько - тут уж потрудитесь сами решить