Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
PeNgViN
0 / 0 / 0
Регистрация: 23.03.2016
Сообщений: 17
1

Как это работает?

14.03.2018, 16:46. Просмотров 290. Ответов 5
Метки нет (Все метки)

Добрый день!

У меня просьба, объясните мне пожалуйста, как это работает если возможно подробнее. Где вот начинается k=0. Оттуда вообще не могу понять как работает.

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
25
26
27
28
29
30
31
32
33
Dim mass1, mass2 As Variant
Dim mass3(0 To 1000), mass4(0 To 1000) As Variant
 
Sub st()
  mass1 = Array("one", "two", "three", "two", "four", "one", "six", "one")
  mass2 = Array(6, 4, 3, 2, 1, 2, 4, 5)
  n1 = UBound(mass1)
  n2 = UBound(mass2)
  If (n1 <> n2) Then
    MsgBox ("Размеры массивов не совпадают")
  Else
  k = 0 'кол-во уникальных элементов в mass1
  mass3(0) = mass1(0)
  For i = 1 To n1   'Считаем количество элементов от 1 до конца массива
    b = True
    For j = 0 To k
      If mass3(j) = mass1(i) Then
        b = False
        Exit For
      End If
    Next j
    If (b = True) Then
      k = k + 1
      mass3(k) = mass1(i)
    End If
  Next i
  End If
  For i = 0 To k
    Sum = 0
    For j = 0 To n1
      If mass1(j) = mass3(i) Then
        Sum = Sum + mass2(j)
      End If
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2018, 16:46
Ответы с готовыми решениями:

Как это работает? Хотелось бы реализовать на VB6
http://potrebitel.biz/angel/mk.htm

Как это сдлеать
Есть база данных кодов телефоных оператор в excel. Скажем нужно загружаешь...

как сделать это?
e^n/n! это на visual basic нужно цикл написать

Как это исправить?
Помогите добрые люди.Нужна помощь по Visual Basic.Помогите разобраться с...

Как это сделать рамку?
Как это сделать рамку по скажите пожалуйста?

5
snipe
2892 / 996 / 231
Регистрация: 07.08.2013
Сообщений: 2,502
14.03.2018, 16:59 2
масло масленное

Добавлено через 2 минуты
видно что код не весь
0
PeNgViN
0 / 0 / 0
Регистрация: 23.03.2016
Сообщений: 17
14.03.2018, 17:19  [ТС] 3
Нет, код весь
0
ji2n
...
31 / 30 / 12
Регистрация: 08.10.2016
Сообщений: 139
15.03.2018, 07:45 4
Нет, не весь, предположу, что не хватает этого:
Visual Basic
1
2
3
4
5
    
    Next j
Next i
Debug.Print Sum
End Sub
0
Sur_L
78 / 42 / 6
Регистрация: 13.02.2017
Сообщений: 129
15.03.2018, 12:01 5
Основной вопрос не как (как - в коде написано), а Что это должно делать...
0
PeNgViN
0 / 0 / 0
Регистрация: 23.03.2016
Сообщений: 17
15.03.2018, 14:29  [ТС] 6
ну есть возможность закомментить его

Что он делает значит:
Есть массив с названиями, есть массив со значениями

Индексы двух массивов совпадают
если в первом массиве есть одинаковые значения, то значения в втором массиве суммируются
В итого выводится двумерный массив.
0
15.03.2018, 14:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2018, 14:29

Как избавится от меню пуск, или как узнать когда это меню открыли?
Как избавится от меню пуск, или как узнать когда это меню открыли???

Как это - внешний и внутренний циклы – с предусловием?
Внешний и внутренний циклы – с предусловием.

Visual Basic & LAN (как это сделать?)
Очень сильно хочу знать как на VB6.0 работать с локальной сетью Мне нужно...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru