Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [VB6] Помощь с задачей по VB


Автор: ReactOS 24.10.2007, 03:26
Привет Форумчане! smile

На семинаре по информатике будут спрашивать след.:

создать массив из дней недели
переместить указатель на любое значение
и подсчитать опред. ф-цией, какой день недели будет через 100 дней, т.е. подсчитать от указателя какое будет значение через 100 дней?

На PHP, я реализую это так:
Код

<?php

$a = array("mon", "tue", "wen", "thu", "fri", "sat", "sun");
echo $a[(array_search("wen", $a)+100)%count($a)];

?>


Как это реализовать на VB? smile

Заранее Спасибо! smile

Автор: HackSign 24.10.2007, 11:51
Код


Dim mass(7) As String
Dim a1, a2 As String
Dim day1, i, j As Integer
i = 0
mass(1) = "mon"
mass(2) = "tue"
mass(3) = "wen"
mass(4) = "thu"
mass(5) = "fri"
mass(6) = "sat"
mass(7) = "sun"
a1 = Text1.Text
While a1 <> mass(i)
If a1 <> mass(i) Then    
i = i + 1
End If
Wend                                     
back:
If i > 7 Then                 ' Итак, чтобы сократить количество итераций 
i = i - 7                         'пойдем довольно простым путем, 7*14=98 
a2 = mass(i)                'Мы видим, что до ста дней не хватает всего 2 дней   
Text2.Text = a2           'тем временем пройдет 14 недель, соответственно, окажется- тот же день  
End If                           ' недели, соответственно суммируем еще 2 дня вперед, и получаем то, что нам 
If i < 7 Then                 'нужно
i = i + 2
If i > 7 Then
GoTo back
End If
a2 = mass(i)
Text2.Text = a2
'Text2.Refresh
End If

End Sub 
  
Все гениальное - просто.. 

Автор: Akina 24.10.2007, 11:58
Код

NumOfDayOfWeek2 = (NumOfDayOfWeek1 + AmountOfDayBetween) MOD 7
Это при стандартной нумерации дней недели - от нуля. Причем неважно, какой именно день недели соответствует нулевому значению.

Автор: Akina 24.10.2007, 11:58
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)