|
Visual Basic 5.0/6.0 - Общие вопросыВсе примеры / Общие вопросыСортировка массива
Автор: Екатерина | добавлено: 06.03.2010, 11:25 | просмотров: 1538 (1+) | комментариев: 0 | рейтинг:
Задан массив из шести элементов, необходимо в другом массиве выставить ранги первого.
![]() КодDim RANG(5) As Integer Dim RANG2(5) As Integer Private Sub CommandButton1_Click() RANG(0) = Val(TextBox4) + Val(TextBox1) + Val(TextBox5) + Val(TextBox6) RANG(1) = Val(TextBox7) + Val(TxtBox12) + Val(TextBox11) + Val(TextBox10) RANG(2) = Val(TextBox13) + Val(TextBox18) + Val(TextBox17) + Val(TextBox16) RANG(3) = Val(TextBox25) + Val(TextBox30) + Val(TextBox29) + Val(TextBox28) RANG(4) = Val(TextBox31) + Val(TextBox36) + Val(TextBox35) + Val(TextBox34) RANG(5) = Val(TextBox37) + Val(TextBox42) + Val(TextBox41) + Val(TextBox40) TextBox3 = RANG(0) TextBox9 = RANG(1) TextBox15 = RANG(2) TextBox27 = RANG(3) TextBox33 = RANG(4) TextBox39 = RANG(5) TextBox43 = Val(TextBox1) + Val(TextBox7) + Val(TextBox13) + Val(TextBox25) + Val(TextBox31) + Val(TextBox37) TextBox48 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox30) + Val(TextBox36) + Val(TextBox42) TextBox47 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox29) + Val(TextBox35) + Val(TextBox41) TextBox46 = Val(TextBox4) + Val(TextBox10) + Val(TextBox16) + Val(TextBox28) + Val(TextBox34) + Val(TextBox40) TextBox45 = Val(TextBox3) + Val(TextBox9) + Val(TextBox15) + Val(TextBox27) + Val(TextBox33) + Val(TextBox39) TextBox2 = RANG2(0) TextBox8 = RANG2(1) TextBox14 = RANG2(2) TextBox26 = RANG2(3) TextBox32 = RANG2(4) TextBox38 = RANG2(5)
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 116)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|