подскажите, что в этой программе не так??

[мария2507]

необходимо узнать, делится ли число на 3 без остатка



Function деление(b As Integer)
If b > 100 And b < 999 Then
If bMod3 = 0 Then
MsgBox "данное число делится на 3 без остатка"
Else
MsgBox "данное число не делится на 3 без остатка"
End If

Else
MsgBox ("введите трехзначное число")
End If
End Function

[EducatedFool]

Нехватало двух пробелов:

Function деление(b As Integer)
    If b > 100 And b < 999 Then
        If b Mod 3 = 0 Then
            MsgBox "данное число делится на 3 без остатка"
        Else
            MsgBox "данное число не делится на 3 без остатка"
        End If

    Else
        MsgBox "введите трехзначное число"
    End If
End Function

Sub test()
    деление 333
End Sub

[Юнлинг]

Сообщение от мария2507

необходимо узнать, делится ли число на 3 без остатка



Function деление(b As Integer)
If b > 100 And b < 999 Then
If bMod3 = 0 Then
MsgBox "данное число делится на 3 без остатка"
Else
MsgBox "данное число не делится на 3 без остатка"
End If

Else
MsgBox ("введите трехзначное число")
End If
End Function

вместо

If bMod3 = 0 Then

нужно записать

If b Mod 3 = 0 Then

в твоем случае bMod3 - переменная. по умолчанию она равна NULL

EducatedFool прошу прощения не заметил что вы уже ответили!

[мария2507]

спасибо вам огромное!!!!