Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Цикл с условием https://www.cyberforum.ru/ visual-basic/ thread1920367.html Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B не равно 0; НОД(A, 0) = A.	Изменение элементов массива VB Дан массив размера N и целое число K (1 <= K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом AN перейдет в AN–K, AN–1 — в AN–K–1, …, AK+1 — в A1, а исходное значение K первых элементов будет потеряно). Последние K элементов полученного массива положить равными 0.
VB Произведение элементов матрицы https://www.cyberforum.ru/ visual-basic/ thread1920349.html Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов.	VB Не могу написать программы по данным задачам https://www.cyberforum.ru/ visual-basic/ thread1920225.html 1. Дано целое число N (> 0). Последовательность вещественных чисел AK определяется следующим образом: A0 = 2, AK = 2 + 1/AK–1, K = 1, 2, … . Вывести элементы A1, A2, … , AN. 2. Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B  0; НОД(A, 0) = A. 3. Дано целое число N (>...
Какому из физических HDD принадлежит логический диск? VB Количество жёстких дисков от 2-х. Как без WMI(если отключён), без FSO и без Left$(App.Path, 3) определить сопоставления логических дисков физическим, пользуясь API?	VB [VB6] System.Random Здравствуйте. Хочу на вб6 воспользоваться дот.нетовским рандомом. Дал референс (сейчас на win XP 32) Reference=*\G{...}\WINDOWS\Microsoft.NET\Framework\v4.0.30319\mscorlib.tlb#mscorlib.dll Dim Rand As New mscorlib.Random Работают Rand.Next ; Rand.NextDouble Ошибка при указании параметров типа Rand.Next(x); Rand.Next(x,y) (Wrong number of arguments or invalid property assignment) https://www.cyberforum.ru/ visual-basic/ thread1919236.html
VB 3x2y2 - 2xy2 - 7x2y - 4y2 + 15xy + 2x2 - 3x + 10y + 6? Даны действительные числа x, y. Не пользуясь никакими другими операциями, кроме умножения, сложения и вычитания, вычислить 3x^2y^2 - 2xy^2 - 7x^2y - 4y^2 + 15xy + 2x^2 - 3x + 10y + 6. Разрешается использовать не более восьми умножений и восьми сложений и вычитаний. Каждая строка - одно действие, надо перезаписывать в старые переменные. Не более 3-х переменных, на край -4. Спасибо! https://www.cyberforum.ru/ visual-basic/ thread1919060.html	VB Вычислить значение выражения формула : 100=R-\sqrt{{R}^{2}-160000}
VB Двумерные массивы в visual basic https://www.cyberforum.ru/ visual-basic/ thread1918571.html Задана матрица размером nxm, при этом n=4 m=6. Найти максимальное значение среди первых элементов строк, напечатать этот элемент и его номер, осуществить перестановку соответствующих по j элементов второй строки и строки, имеющей максимальный по значению первый элемент, напечатать элементы преобразованной матрицы.	VB Как работать с датами меньше 01.01.1900? На форумах уже неоднократно касались данной темы. Предлагались разные решения, но! IIF(#01/01/1800#<#01/01/1900#,"Yes","No") выдаст "Yes", а IIF(#01/01/0001#<#01/01/1900#,"Yes","No") выдаст "No", потому что CDate("01/01/0001") = 01.01.2001. А задача простая. Надо все неверно внесенные даты рождения (меньше 01.01.1900, контроль на вводе отсутствовал) типа 01.01.0001, 01.01.200 указать с... https://www.cyberforum.ru/ visual-basic/ thread1918538.html
Алгоритм системы уравнений VB Добрый день. Как будет выглядеть решение данной задачи в Basic?	VB Ключ попадает не в ту ветку https://www.cyberforum.ru/ visual-basic/ thread1918113.html Искал по этому разделу "создать ключ реестра" и ничего не нашел, поэтому попробую спросить. Маленькая программа сделана на vs и к ней инсталлятор (проект развертывания). При установке инсталлятор создает ключ в реестре, в ветке HKLM\Software а сама программа потом его находит и кое-что туда записывает. Кроме того сама программа в начале своей работы создает еще один ключ там же, для другой...

MMZ111

2 / 2 / 3

Регистрация: 07.02.2017

Сообщений: 24

17.02.2017, 00:45

Знаки зодиака по введенной дате - VB - Ответ 10122711

17.02.2017, 00:45. Показов 4650. Ответов 3

Метки (Все метки)

Ответ

Visual Basic

Private Sub Command1_Click()
 
Dim k As Integer, SLeft As String, SRight As String, d As Single, S As String
 
'на всякий случай убираем пробелы
S = Replace(Text1.Text, " ", "")
 
'меняем в дате местами день и месяц
k = InStr(S, ".")
SLeft = Left(S, k - 1)
SRight = Right(S, Len(S) - k)
d = Val(SRight & "." & SLeft)
 
If d >= 1.2 Then S = "Водолей"
If d >= 2.19 Then S = "Рыбы"
If d >= 3.21 Then S = "Овен"
If d >= 4.2 Then S = "Телец"
If d >= 5.21 Then S = "Близнецы"
If d >= 6.22 Then S = "Рак"
If d >= 7.23 Then S = "Лев"
If d >= 8.23 Then S = "Дева"
If d >= 9.23 Then S = "Весы"
If d >= 10.23 Then S = "Скорпион"
If d >= 11.23 Then S = "Стрелец"
If d >= 12.22 Or d <= 1.19 Then S = "Козерог"
 
Label1.Caption = S
 
 
End Sub

Вернуться к обсуждению:
Знаки зодиака по введенной дате VB

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.02.2017, 00:45

Готовые ответы и решения:

Определение знака зодиака по дате рождения
Даны два целых числа: D(день) и M(месяц), определяющие правильную дату. Вывести знак зодиака,...

Определение знака зодиака по дате рождения
Ребята помоги плизз.... Добавлено через 26 секунд Определение знака зодиака по дате рождения на...

По введенной дате определить знак Зодиака
1. Cоздайте Windows-приложение, которое по введенной дате определяет знак Зодиака. Помогите...

Вывести знак Зодиака, соответствующий введенной дате
21. Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака,...

	17.02.2017, 00:45

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.02.2017, 00:45

Помогаю со студенческими работами здесь

Программа выводит знак зодиака по введённой дате и месяцу
Нужно написать программу которая которая выводит знак зодиака по введённой дате и месяцу, в одну...

По введенной дате (число, месяц) определить знак зодиака. (Pascal)
помогите, завтра нужно сдать.. вроде делается через case как-то, но я хз как(

Пользовательский метод который определяет знак зодиака по введенной дате рождения
Необходимо создать метод, который определяет знак зодиака человека по введенной дате рождения

По введенной дате рождения дополнить файл строками соответсвующего знака Зодиака
Ось такє завдання, допоможіть По уведеній даті народження (день і місяць, форма уведення у файл...

Наверх