Нужна ваша помощь! - VB
Формулировка задачи:
Всем приветик!
Помогите мне решить задачки по VB!Надо их сдать преподу,если не сдам,то меня не допустят к экзамену,а сама я не могу решить их! (
Плз помогите!
1) Дан массив из N чисел.Не изменяя состояния этого массива, напечатать номера элементов, в соответствии с убыванием их значения.
2) Таблица футбольного чемпионата задана в виде квадратной матрицы, в которой представлены результаты матчей команд. За победу - 3 очка, за ничью - 1, за поражение - 0. Вывести итоговую таблицу: команда, место, очки.
3) Дана строка символов, состоящая из слов, разделенных пробелами. Вывести эту строку, удалив, стоящие на четных местах и перевернув оставшиеся.
Help me!
Заранее большое спасибо!
Помогите мне решить задачки по VB!Надо их сдать преподу,если не сдам,то меня не допустят к экзамену,а сама я не могу решить их! (
Плз помогите!
1) Дан массив из N чисел.Не изменяя состояния этого массива, напечатать номера элементов, в соответствии с убыванием их значения.
2) Таблица футбольного чемпионата задана в виде квадратной матрицы, в которой представлены результаты матчей команд. За победу - 3 очка, за ничью - 1, за поражение - 0. Вывести итоговую таблицу: команда, место, очки.
3) Дана строка символов, состоящая из слов, разделенных пробелами. Вывести эту строку, удалив, стоящие на четных местах и перевернув оставшиеся.
Help me!
Заранее большое спасибо!
Решение задачи: «Нужна ваша помощь!»
textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Sub</font> Question2()
<font color="blue">Dim</font> intI <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> intJ <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> intK <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> avarArray() <font color="blue">As</font> Variant
<font color="blue">Dim</font> avarArrayTemp() <font color="blue">As</font> Variant
<font color="blue">Dim</font> avarArrayOutput() <font color="blue">As</font> Variant
<font color="blue">Dim</font> col <font color="blue">As</font> <font color="blue">New</font> Collection
<font color="blue">Dim</font> bln <font color="blue">As</font> <font color="blue">Boolean</font>
<font color="blue">Dim</font> cls <font color="blue">As</font> Class2
<font color="blue">ReDim</font> avarArray(<font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>, <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>)
<font color="blue">ReDim</font> avarArrayTemp(<font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>8</b></font>, <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>2</b></font>)
<font color="blue">ReDim</font> avarArrayOutput(<font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>, <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>2</b></font>)
avarArray(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>) = <font color="teal">"Команда1"</font>
avarArray(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>3</b></font>) = <font color="teal">"Команда2"</font>
avarArray(<font color="darkblue"><b>2</b></font>, <font color="darkblue"><b>1</b></font>) = <font color="teal">"Команда1"</font>
avarArray(<font color="darkblue"><b>2</b></font>, <font color="darkblue"><b>3</b></font>) = <font color="teal">"Команда3"</font>
avarArray(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>1</b></font>) = <font color="teal">"Команда2"</font>
avarArray(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>3</b></font>) = <font color="teal">"Команда3"</font>
avarArray(<font color="darkblue"><b>4</b></font>, <font color="darkblue"><b>1</b></font>) = <font color="teal">"Команда4"</font>
avarArray(<font color="darkblue"><b>4</b></font>, <font color="darkblue"><b>3</b></font>) = <font color="teal">"Команда1"</font>
<font color="blue">Randomize</font>
<font color="blue">For</font> intI = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>
<font color="blue">For</font> intJ = <font color="darkblue"><b>2</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font> <font color="blue">Step</font> <font color="darkblue"><b>2</b></font>
avarArray(intI, intJ) = Int(Rnd * <font color="darkblue"><b>5</b></font>) + <font color="darkblue"><b>1</b></font>
<font color="blue">Next</font> intJ
<font color="blue">Next</font> intI
Debug.<font color="blue">Print</font> <font color="teal">"Футбольные матчи"</font>
Debug.<font color="blue">Print</font> <font color="teal">"==================================="</font>
Debug.<font color="blue">Print</font> <font color="teal">"Команда1 Голы Команда2 Голы"</font>
Debug.<font color="blue">Print</font> <font color="teal">"==================================="</font>
<font color="blue">For</font> intI = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>
<font color="blue">For</font> intJ = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>
Debug.<font color="blue">Print</font> avarArray(intI, intJ); vbTab;
<font color="blue">Next</font> intJ
Debug.<font color="blue">Print</font> <font color="teal">""</font>
<font color="blue">Next</font> intI
intJ = <font color="darkblue"><b>1</b></font>
intK = <font color="darkblue"><b>1</b></font>
<font color="blue">For</font> intI = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>
<font color="blue">If</font> avarArray(intI, <font color="darkblue"><b>2</b></font>) = avarArray(intI, <font color="darkblue"><b>4</b></font>) <font color="blue">Then</font>
avarArrayTemp(intK, intJ) = avarArray(intI, <font color="darkblue"><b>1</b></font>)
avarArrayTemp(intK, intJ + <font color="darkblue"><b>1</b></font>) = <font color="darkblue"><b>1</b></font>
avarArrayTemp(intK + <font color="darkblue"><b>1</b></font>, intJ) = avarArray(intI, <font color="darkblue"><b>3</b></font>)
avarArrayTemp(intK + <font color="darkblue"><b>1</b></font>, intJ + <font color="darkblue"><b>1</b></font>) = <font color="darkblue"><b>1</b></font>
<font color="blue">ElseIf</font> avarArray(intI, <font color="darkblue"><b>2</b></font>) > avarArray(intI, <font color="darkblue"><b>4</b></font>) <font color="blue">Then</font>
avarArrayTemp(intK, intJ) = avarArray(intI, <font color="darkblue"><b>1</b></font>)
avarArrayTemp(intK, intJ + <font color="darkblue"><b>1</b></font>) = <font color="darkblue"><b>3</b></font>
avarArrayTemp(intK + <font color="darkblue"><b>1</b></font>, intJ) = avarArray(intI, <font color="darkblue"><b>3</b></font>)
avarArrayTemp(intK + <font color="darkblue"><b>1</b></font>, intJ + <font color="darkblue"><b>1</b></font>) = <font color="darkblue"><b>0</b></font>
<font color="blue">ElseIf</font> avarArray(intI, <font color="darkblue"><b>2</b></font>) < avarArray(intI, <font color="darkblue"><b>4</b></font>) <font color="blue">Then</font>
avarArrayTemp(intK, intJ) = avarArray(intI, <font color="darkblue"><b>1</b></font>)
avarArrayTemp(intK, intJ + <font color="darkblue"><b>1</b></font>) = <font color="darkblue"><b>0</b></font>
avarArrayTemp(intK + <font color="darkblue"><b>1</b></font>, intJ) = avarArray(intI, <font color="darkblue"><b>3</b></font>)
avarArrayTemp(intK + <font color="darkblue"><b>1</b></font>, intJ + <font color="darkblue"><b>1</b></font>) = <font color="darkblue"><b>3</b></font>
<font color="blue">End</font> <font color="blue">If</font>
intK = intK + <font color="darkblue"><b>2</b></font>
<font color="blue">Next</font> intI
intK = <font color="darkblue"><b>1</b></font>
bln = False
<font color="blue">For</font> intI = LBound(avarArrayTemp, <font color="darkblue"><b>1</b></font>) <font color="blue">To</font> UBound(avarArrayTemp, <font color="darkblue"><b>1</b></font>)
<font color="blue">For</font> intJ = LBound(avarArrayOutput, <font color="darkblue"><b>1</b></font>) <font color="blue">To</font> UBound(avarArrayOutput, <font color="darkblue"><b>1</b></font>)
<font color="blue">If</font> avarArrayTemp(intI, <font color="darkblue"><b>1</b></font>) <> avarArrayOutput(intJ, <font color="darkblue"><b>1</b></font>) <font color="blue">Then</font>
bln = False
<font color="blue">Else</font>
bln = True
<font color="blue">Exit</font> <font color="blue">For</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font> intJ
<font color="blue">If</font> <font color="blue">Not</font> bln <font color="blue">Then</font>
avarArrayOutput(intK, <font color="darkblue"><b>1</b></font>) = avarArrayTemp(intI, <font color="darkblue"><b>1</b></font>)
avarArrayOutput(intK, <font color="darkblue"><b>2</b></font>) = avarArrayTemp(intI, <font color="darkblue"><b>2</b></font>)
intK = intK + <font color="darkblue"><b>1</b></font>
<font color="blue">Else</font>
avarArrayOutput(intJ, <font color="darkblue"><b>2</b></font>) = avarArrayOutput(intJ, <font color="darkblue"><b>2</b></font>) + _
avarArrayTemp(intI, <font color="darkblue"><b>2</b></font>)
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font> intI
Debug.<font color="blue">Print</font> <font color="teal">"==================================="</font>
<font color="blue">For</font> intI = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>
<font color="blue">Set</font> cls = <font color="blue">New</font> Class2
cls.strTeam = avarArrayOutput(intI, <font color="darkblue"><b>1</b></font>)
cls.intPoints = avarArrayOutput(intI, <font color="darkblue"><b>2</b></font>)
bln = False
<font color="blue">For</font> intJ = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> col.Count
<font color="blue">If</font> avarArrayOutput(intI, <font color="darkblue"><b>2</b></font>) < col.Item(intJ).intPoints <font color="blue">Then</font>
col.Add cls, , intJ
bln = True
<font color="blue">Exit</font> <font color="blue">For</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font> intJ
<font color="blue">If</font> <font color="blue">Not</font> bln <font color="blue">Then</font>
col.Add cls
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Set</font> cls = <font color="blue">Nothing</font>
<font color="blue">Next</font> intI
Debug.<font color="blue">Print</font> <font color="teal">"Итоговая таблица"</font>
Debug.<font color="blue">Print</font> <font color="teal">"==================================="</font>
intJ = <font color="darkblue"><b>1</b></font>
<font color="blue">For</font> intI = col.Count <font color="blue">To</font> <font color="darkblue"><b>1</b></font> <font color="blue">Step</font> -<font color="darkblue"><b>1</b></font>
Debug.<font color="blue">Print</font> <font color="teal">"Место: "</font> & intJ; _
<font color="teal">" Команда: "</font> & col.Item(intI).strTeam; _
<font color="teal">" Очки: "</font> & col.Item(intI).intPoints
intJ = intJ + <font color="darkblue"><b>1</b></font>
<font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Sub</font>