Люди! Помогите чайнику, пожалуйста, решить задачу для Visual Basic For Applications :
В массиве С(n) подсчитать кол-во отрицательных и сумму положительных элементов!

Если все правильно понял:

Dim C(100) As Integer
Dim i, n, x, y As Integer
x = 0
y = 0 
n = 100
For i = 0 To n    
   If C(i) >= 0 Then x = x + C(i)    
   Else y = y + 1    
   End If  
Next i

В переменной X сумма положительных, в Y кол-во отрицательных.

Помогите пожалуйста решить задачу в бейсике. дан массив s(20). Получить сумму всех элементов, следующих за
элементом , равным введенному N

Dim S(20) As Integer
Dim i, n, Count, Sum As Integer
Found As Bool
Sum = 0
Count = 20
n = XXXX <- то что надо ввести
For i = 0 To Count - 1    
  If Found then
     Sum = Sum + C(i)    
  End If
  If S(i) = n Then 
    Found  = True
  End If  
Next i

В Sum -сумма того что надо

Други, помогите написать прогу на визуал бейсике: задача по двумерным масивам. Даны две матрицы Х(6,4); У(7,3). найти среднее арифметическое всех элементов в каждой матрице, буду оч признателен!

Р
друг заведи новую тему

Не могу понять людей, которые просят написать такие вот программки. Для написание такой программы знания нужны минимальные. Если препод дает такое задание, то он все что для этого нужно объяснил, если же не объяснил, то можно почитать литературу. Прочитать придется не больше 1-2 страницы....
Одно из двух:
1 - лентяи...
2 - полные тугодумы

Други, написал здесь в надежде, что помогут, обычно на таких форумах дружественная атмосфера (хотя и встречаются редиски:-), а делать самому это абсолютно некогда-тем более знаю, что в будущем мне это не пригодится (но долг по контрольной в итоге надо убирать), и препод ниче на дает а предоставленой методичке хрен что поймешь. Так, что если у кого-то в этой области больше тяму, то прошу хелпа!
Задача:
прогу на визуал бейсике: задача по двумерным масивам. Даны две матрицы Х(6,4); У(7,3). найти среднее арифметическое всех элементов в каждой матрице, буду оч признателен!

Вроде так .. хотя на VB на уже с лет 5 не писал ...

Dim X(6, 4) As Integer
Dim Y(7, 3) As Integer

Dim i, j, Sum1, Sum2 As Integer

For i = 0 To 5
  for j = 0 3     
    Sum1 = Sum1 + X(i, j)    
  Next j
Next i

For i = 0 To 6
  for j = 0 2     
    Sum2 = Sum2 + Y(i, j)    
  Next j
Next i

Print Sum1 / 24
Print Sim2 / 21

помогите решить задачу на Бейсике : Заполнить массив Y таким образом, чтобы в нем оказалась вторая половина исходного массива Х, а затем первая
1 2 3 4 5 6 Х
4 5 6 1 2 3 Y

По-моему здесь пытаются открыть бесплатный ресурс по написанию программ на бэйскике... и судя по сложности задач.. делает это один человек

Ребята, я совсем ещё только начинаю. В школе задали задачу:данопятизначное число, выделить десятки, сотни и.т.д. Если время есть помогите а ?please

Помогите решить задачу на Бэйсике!!
Найти колличество минимальных элементов в массиве А(10) заданного случайным образом от 0 до 20-ти.

Только ввод организовать осталось...

Dim A(10) As Integer
Dim i, Min, Count As Integer
Count = 0
Min = -1
For i = 0 To 9   
 If A(i) < Min then
  Min = A(i)
  Count  = 1
 End If  
 if A(i) = Min then
  Count = Count + 1
 End If 
Next i

Print Min, Count

Да-а, эту тему надо было назвать - помоги лентяю.

Народ помогите...учитель грузит не хило не знаю как решмить в Basic-е слухайте-Распечатайте в табличном виде (с аргументами) значение функции квадратного корня на интервале [2; 4] с шагом 0,1.....у училки точно крыша поехала

Вот уж на самом деле лень подумать ...

Решите пожалуйста 2 программы
1. даны два вектора (x1 y1 z1) (x2 y2 z2) найти угол между ними.
2. написать программу перевода величины а в более крупную единицу измерения информации,
а выражает объем информации в байтах.

Dim c() As Integer
a = Application.WorksheetFunction.CountA(Range("a:a"))
ReDim c(a)

For i = 1 To a
c(i) = Cells(i, 1)
Next i

For i = 1 To a

If c(i) > 0 Then
Sum = Sum + c(i)
End If
If c(i) < 0 Then
k = k + 1
End If
Next i

MsgBox ("summa polojitelnih=" & Sum & "kolichestvo otritsatel'nih =" & k)

Срочно нужна помощь!!! по бейсику
помогите пожайлуйста


Первая задачка :
конецформыначалоформынайти максимальный элемент массива С(10;15)
и вторая задачка:
дан двумерный массив Z(6;8) найти сумму элементов каждого чётного столбца и произведение элементов в каждой нечётной строке

Для: tim

Ну так и в чём конкретно проблема?

Решение найдено ( всем спасибо)
Я в этом не разбираюсь..не мой профиль))

Всем прива))) Народ помогите решить задачу))
Построить совокупность кругов радиуса R со случайными координатами их центров.
Зарание спасибо

задача 2
Сформировать точку, движущегося по контуру воображаемого квадрата с заданными размерами и расположением.
Зарание спасибо

на каком языке? сдесь же раздел "Другое"

а воопрос из разряда "лень сделать самому"
вот ]]>справочник]]> по функциям в VB - думаю пригодится
а вот ]]>небольшой учебничек]]>
с примерами, если внимательно изучишь - найдёшь способ как делать "случайные" координаты.

Для: Barmutik: хоть голосование какое провести. а то уж больно интересно, где ж такие "нерешаемые" задачки у нас задают. Что бедным студентам житья никакого нет.

Для: Hetman
Спасибки))

Для: Hetman
В каком разделе просто Basic. Мне эту задачу нужно решить в нем. Если нетрудно скинь учебник обычного Basic.
Заранее спасибо

Мда!!! А когда я начинал, у мя интернета не было (всё сам)!!! (Извините если не втему!)

ну вот по basic`ку только такой Нажмите для просмотра прикрепленного файла
]]>качать здесь]]>