Премини към съдържанието

Препоръчан отговор


Здравейте! Има една задача, която дори не знам как да я реша, и ако може някой да ми помогне ще съм му много благодарен :) 

Мъча се да направя един Console Application, който при въвеждане на номер от 1 до 7 примерно въведа 1 и ми показва Понеделник, въведа 5 и ми въвежда петък и т.н.. Някой може ли да удари едно рамо?

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

публикувано (редактирано)
Module Module1

    Dim weekdays(8) As String

    Dim a As Integer
    Dim b As String

    Sub init()
        weekdays(1) = "Monday"
        weekdays(2) = "Tuesday"
        weekdays(3) = "Wednesday"
        weekdays(4) = "Thursday"
        weekdays(5) = "Friday"
        weekdays(6) = "Saturday"
        weekdays(7) = "Sunday"
    End Sub

    Sub Main()
        init()
r1:
        Console.WriteLine("Input a number from 1 to 7")
        b = Console.ReadLine()
        a = CInt(b)
        If a > 7 Then GoTo r2
        Console.WriteLine(weekdays(a))
        GoTo r1
r2:
    End Sub

End Module

 

Редактирано от Реджеп Иведик (преглед на промените)

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Жив и здрав! :)

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Регистрирайте се или влезете в профила си за да коментирате

Трябва да имате регистрация за да може да коментирате това

Регистрирайте се

Създайте нова регистрация в нашия форум. Лесно е!

Нова регистрация

Вход

Имате регистрация? Влезте от тук.

Вход

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.