В этой статье описывается код класса модуля, используемый для создания программы обратного отсчета с использованием VB. Это консольная программа обратного отсчета, которую можно использовать в качестве справочного материала для новичков или энтузиастов VB. Конечно, читатели также могут скопировать код в VB. Чтобы использовать его напрямую, вам необходимо самостоятельно создать соответствующий код. Для новичков это также фрагмент кода, который легко понять.
Конкретные коды функций следующие:
Module Module1 Sub Main() Dim a As Date Dim h, m, s Как целое число Dim n, i As Long Dim x, z As Long Dim y As Long Console.WriteLine("Эта программа представляет собой программу обратного отсчета, пожалуйста, введите необходимые информация в частях Обратный отсчет часов, минут, секунд") Console.WriteLine("Введите количество часов (целое число больше или равно 0):") h = Console.ReadLine() Console.WriteLine("Введите общее количество минут для отсчета времени (целое число больше или равно 0, но меньше 60):") m = Console.ReadLine() Console.WriteLine("Введите количество секунд для время (больше или равно 0 и меньше целого числа 60): ") s = Console.ReadLine() Console.WriteLine("Текущее системное время: {0}", h) a = Now() Console.WriteLine("Текущее системное время: {0}", a) Console.WriteLine(" ") Console.WriteLine(" **************Начинается обратный отсчет*** ** ************ ") Console.WriteLine(" **************Начинается обратный отсчет************ ** ** ") Console.WriteLine(" **************Начинается обратный отсчет************************ * ") Console.WriteLine(" * *************Начинается обратный отсчет****************** ") z = 0 x = 60 Для i = 0 До h * 3600 + m * 60 + s Для n = 0 до 6000000 Для y = 0 до 25 z = z + 1 Далее Далее Если (h <= 0) И ( m <= 0) И (s <= 0) Затем выйти For Если s > 0 Тогда s = s - 1 Console.WriteLine(" Осталось: {0} часов {1} минут {2} секунд", ч, м, с) Если (ч <= 0) И (м <= 0) И (с <= 0) Тогда Console.WriteLine("Обратный отсчет Завершено, введите случайные символы для выхода из программы: ") Exit For End If End If If s = 0 Тогда Если m > 0 Тогда m = m - 1 s = 59 Console.WriteLine(" Осталось: {0} часов {1} минут {2} секунд", ч, м, с) Конец Если Если м = 0 И ч > 0 И с = 0 Тогда ч = ч - 1 м = 59 с = 59 Консоль. WriteLine("Осталось: {0} часов {1} минут {2} секунд", ч, м, с) Если (ч <= 0) И (м <= 0) И (с <= 0) Тогда Console.WriteLine("Обратный отсчет завершен, введите любые символы для выхода из программы:") Exit For End If End If End If Next Console.Read() End Sub End Module