Проверьте, пожалуйста, блок-схему

08.09.2015, 13:20. Показов 469. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub ComboBox1_Change()
Dim i As Integer
Dim nn As String
Dim sum As Single
nn = ComboBox1.Text
sum = 0
For i = 2 To 13
    If ActiveWorkbook.Worksheets(1).Cells(1, i).Value = nn Then
        For j = 2 To 19
        sum = sum + Cells(j, i).Value
        Next j
        TextBox1.Text = sum / 18
    End If
Next i
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Integer
Dim nn As String
For i = 2 To 13
    nn = ActiveWorkbook.Worksheets(1).Cells(1, i).Value
    ComboBox1.AddItem nn
Next i
End Sub

Вложения

Документ Word 2007.docx (13.8 Кб, 3 просмотров)

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

08.09.2015, 13:20

Ответы с готовыми решениями:

проверьте правильно ли я составил блок-схему
Option Explicit Dim i As Integer Dim m As Integer Dim n As Integer Dim x As Integer Dim y As Integer Dim s As Integer Dim A()...

Составьете пожалуйста блок схему к задаче: Дан двумерный массив. Определить: а) среднее арифметическое элемент
Дан двумерный массив. Определить: а) среднее арифметическое элементов второго столбца б) Среднее арифметическое элементов k-ой строки...

Проверьте программу,пожалуйста
Какие-то чудеса происходят . Час назад программа показывала правильный результат, теперь нет. Помогите! Sub lab3() Dim x As Single, y...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

08.09.2015, 13:20

Помогаю со студенческими работами здесь

проверьте пожалуйста блок-схему
Private Sub Command1_Click() Dim s, a As Double Dim k As Integer Picture1.Cls Picture2.Cls Picture1.Print " k a(k) ...

Проверьте пожалуйста
Dim i As Integer Private Sub Command2_Click() k = 0 N = Val(Text1.Text) For i = 0 To N - 1 If i < 0 Then k = k + 1 ...

Проверьте, пожалуйста, программку
Доброго дня, уважаемые форумчане! Будьте добры, посмотрите пожалуйста мое решение задачи. Сама в бейсике полный ноль, но вот что-то...

проверьте меня пожалуйста !
Дан массив из М чисел. Рассортировать только положительные элементы массива по возрастанию их значний . проверьте пожалуйста :: ...

Проверьте пожалуйста код.
Option Explicit Dim i As Integer: Dim j As Integer Dim K As Integer: Dim N As Integer Dim V As String: Dim Aij As String Dim A(4,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)

Справка по редактору формул

Новые блоги и статьи Все статьи Все блоги /
Неблокируемый стек в C++26: реализуем простой сборщик мусора stackOverflow 02.03.2025 Многопоточные приложения требуют надежных и производительных структур данных, способных эффективно работать в условиях конкурентного доступа. Неблокируемые структуры данных представляют собой особый. . .	Шаблон REQ/REP в ZeroMQ: сверхбыстрый обмен сообщениями в C++ и Python stackOverflow 02.03.2025 Построение высоконагруженных распределенных систем требует надежного и производительного механизма обмена сообщениями. ZeroMQ выделяется среди прочих решений своей невероятной скоростью работы и. . .	Нестандартные приемы работы с итераторами в C++ stackOverflow 02.03.2025 Итераторы - один из краеугольных камней C++, предоставляющий универсальный механизм обхода и манипуляции данными в контейнерах. Появившись как замена небезопасным указателям, они эволюционировали от. . .	Лексический анализ и регулярные выражения в C++26 stackOverflow 02.03.2025 Лексический анализ - ядро любого компилятора и инструмента обработки текста. Каждый программист сталкивается с задачами парсинга строк, обработки файлов конфигурации или анализа пользовательского. . .	Подробно о std::mdspan в C++23 stackOverflow 02.03.2025 Работа с многомерными массивами данных традиционно была одной из сложных задач в C++. Программистам приходилось создавать собственные абстракции или использовать сторонние библиотеки для эффективной. . .
Колмогоровская сложность в C++: Путь к совершенному коду stackOverflow 02.03.2025 Абстрактная математическая теория Колмогорова стала мощным средством оценки и улучшения программного кода. Сложность алгоритма - не только в его вычислительной эффективности, но и в том, насколько. . .	Изменения в C# 14 stackOverflow 02.03.2025 Одно из самых значимых изменений в C# 14 - поддержка коллекционных выражений, которые позволяют создавать и инициализировать коллекции с помощью нового лаконичного синтаксиса. Это нововведение. . .	Разработка кроссплатформенного мобильного приложения для iOS/Android на C++ bytestream 02.03.2025 C++ как язык программирования высокого уровня с прямым доступом к аппаратным ресурсам позволяет создавать приложения, работающие одинаково быстро как на iOS, так и на Android устройствах. Ни для кого. . .	Аутентификация/авторизация на Golang bytestream 02.03.2025 Go предлагает множество возможностей для создания надежных систем аутентификации. Встроенные криптографические пакеты, высокая производительность и простота параллельной обработки запросов делают его. . .	Нововведения TypeScript 5.8 bytestream 02.03.2025 TypeScript 5. 8 приносит много возможностей и оптимизаций, которые существенно расширяют границы типобезопасного программирования на JavaScript. Эта версия включает ряд значительных улучшений в работе. . .

Наверх