6 / 6 / 3
Регистрация: 12.03.2014
Сообщений: 341
1

Сообщение: else without if

24.05.2014, 20:52. Показов 3842. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Знакомому надо программу перевести с С++. Я так и не понял как здесь возвращать значения функции и как её вообще объявлять, но не в этом дело. Всплывает сообщение об ошибке при работе программы "else without if" и выделяет мне ELSE на 17 строке. Что я делаю не так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
Private Sub Command1_Click()
Dim day, month, year, sum, ost As Integer
day = Text1.Text
month = Text2.Text
year = Text3.Text
point:
If ((sum + 30) < 5000) Then
    If (month > 12) Then month = 1
    year = year + 1
    End If
    
    Select Case month
    Case 1
        sum = sum + 31
    Case 2
        If (year Mod 4 = 0) Then sum = sum + 29
        Else
            sum = sum + 28
        End If
    Case 3
        sum = sum + 31
    Case 4
        sum = sum + 30
    Case 5
        sum = sum + 31
    Case 6
        sum = sum + 30
    Case 7
        sum = sum + 31
    Case 8
        sum = sum + 31
    Case 9
        sum = sum + 30
    Case 10
        sum = sum + 31
    Case 11
        sum = sum + 30
    Case 12
        sum = sum + 31
    End Select
    
    month = month + 1
    GoTo point
End If
 
If (month > 12) Then
month = 1
year = year + 1
End If
 
ost = 5000 - sum
 
If (ost = 0) Then
 
Select Case month
Case 1
    ost = 31
Case 2
    If (year Mod 4 = 0) Then ost = 29
    Else: ost = 28
    End If
Case 3
    ost = 31
Case 4
    ost = 30
Case 5
    ost = 31
Case 6
    ost = 30
Case 7
    ost = 31
Case 8
    ost = 31
Case 9
    ost = 30
Case 10
    ost = 31
Case 11
    ost = 30
Case 12
    ost = 31
End Select
 
End If
 
Text4.Text = ost
Text5.Text = month
Text6.Text = year
 
 
 
End Sub
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2014, 20:52
Ответы с готовыми решениями:

Послать сообщение пользователю (имя пользователя, терминал и сообщение вводятся с клавиатуры)
Здравствуйте! У меня есть задание: Написать командный файл, реализующий меню из трех пунктов: 1-ый...

Если Выбран Вариант 1, то сообщение 1 стираем-пишем сообщение 2
Здравствуйте, помогите написать скрипт вида: Сообщение 1 Возможные варианты выбора 1 2 ...

Запостить сообщение в группе на odnoklassniki.ru (полноценное сообщение, с изображением)
Доброго времени суток. Задача: Запостить сообщение в группе на odnoklassniki.ru (полноценное...

СОХРАНИТЬ сообщение в сессию, перенаправить на другую страницу, показать сообщение из сессии и при следующем одновле
Сохранить сообщение в сессию, перенаправить на другую страницу, показать сообщение из сессии и при...

6
6 / 6 / 3
Регистрация: 12.03.2014
Сообщений: 341
24.05.2014, 20:56  [ТС] 2
Сам проект
Вложения
Тип файла: rar project_one.rar (1.6 Кб, 7 просмотров)
0
Заблокирован
24.05.2014, 21:08 3
Bolbine84455, Код удостоен находится на: http://govnokod.ru

Есть: http://govnokod.ru/16053
0
Bolbine84455
24.05.2014, 21:08  [ТС]
  #4

Не по теме:

:D Ок

0
15145 / 6418 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
24.05.2014, 21:39 5
Лучший ответ Сообщение было отмечено Bolbine84455 как решение

Решение

Bolbine84455, по правилам синтаксиса бейсика можно написать либо
Visual Basic
1
        If (Year Mod 4 = 0) Then Sum = Sum + 29 Else Sum = Sum + 28
либо
Visual Basic
1
2
3
4
5
        If (Year Mod 4 = 0) Then
            Sum = Sum + 29
        Else
            Sum = Sum + 28
        End If
1
Bolbine84455
24.05.2014, 22:21  [ТС]
  #6

Не по теме:

Впервые сталкиваюсь с таким привередливым языком =) Спасибо!

0
Bolbine84455
08.06.2014, 19:21  [ТС]     Сообщение: else without if
  #7

Не по теме:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub Command1_Click()
Dim day, month, year, sum, ost, tmp As Integer
day = Text1.Text
month = Text2.Text
year = Text3.Text
Call myChoose(month, sum, year)
sum = sum - day
If (month = 12) Then
    month = 1
    year = year + 1
Else
    month = month + 1
End If
point:
tmp = 0
Call myChoose(month, tmp, year)
If ((sum + tmp) < 5000) Then
    Call myChoose(month, sum, year)
    If (month = 12) Then
        month = 1
        year = year + 1
    Else
        month = month + 1
    End If
    GoTo point
End If
ost = 5000 - sum
If (ost = 0) Then
    If (month = 1) Then
        month = 12
        year = year - 1
    Else
        month = month - 1
    End If
    Call myChoose(month, ost, year)
End If
Text4.Text = ost
Text5.Text = month
Text6.Text = year
 
End Sub
 
Sub myChoose(month, sum, year)
Select Case month
    Case 1, 3, 5, 7, 8, 10, 12
        sum = sum + 31
    Case 2
        If (year Mod 4 = 0) Then
            sum = sum + 29
        Else
            sum = sum + 28
        End If
    Case 4, 6, 9, 11
        sum = sum + 30
    End Select
End Sub

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2014, 19:21

Сформировать сообщение, состоящее из 116 бит. Разбить это сообщение на 4 сегмента, каждый по 29 бит
Сформировать сообщение, состоящее из 116 бит. Разбить это сообщение на 4 сегмента, каждый по 29...

Запросить 2 слова: если они разной длины, то выводить сообщение "A1<>A2", иначе - сообщение что "А1=А2"
Нужно создайть java-программу, запрашивающую два слова (A1-A2) и если слова разной длинны, то...

Если х равно одному из чисел N!/1, N!/2, N!/3, ...,N!/N, то вывести на экран сообщение "Да", иначе - сообщение "Нет"
Даны натуральные числа х и N(x&gt;N). Если х равно одному из чисел N!/1, N!/2, N!/3, ...,N!/N, то...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru