VPF::[VB6] Помощь с задачей по VB - Форум программистов

ReactOS

Дата 24.10.2007, 03:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 165
Регистрация: 6.12.2007

Репутация: нет
Всего: 33

Привет Форумчане! 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

Это сообщение отредактировал(а) Marry88 - 24.10.2007, 03:37

HackSign

Дата 24.10.2007, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 5.2.2007

Репутация: нет
Всего: нет

Код



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 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Код


NumOfDayOfWeek2 = (NumOfDayOfWeek1 + AmountOfDayBetween) MOD 7

Это при стандартной нумерации дней недели - от нуля. Причем неважно, какой именно день недели соответствует нулевому значению.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Akina

Дата 24.10.2007, 11:58 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

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

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

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »