Выяснить, является ли хотя бы одно из чисел r1 и r2 остатком от деления A на B - VBA

Формулировка задачи:

Добрый вечер.Подскажите как исправить код. Задание : A, B, r1 и r2 – заданные целые положительные числа. Выяснить, является ли хотя бы одно из чисел r1 и r2 остатком от деления A на B. Код нужен на vba, чтобы записался макросом в excel. По разному уже переписывала if.. все равно "ложь" выдает.

Sub q()
Dim A, B, r1, r2 As Double
 
Dim k As Boolean
A = Range("C3")
B = Range("C4")
r1 = Range("C5")
r2 = Range("C6")
Range("C7") = k
 
If (A Mod B = r1) And (A Mod B = r2) Then
k = True
Else
k = False
End If
End Sub

Решение задачи: «Выяснить, является ли хотя бы одно из чисел r1 и r2 остатком от деления A на B»

textual
                            Листинг программы 
                        

                            Sub q()
Dim A As Single, B As Single, r1 As Single, r2 As Single
 
A = CSng(Range("C3"))
B = CSng(Range("C4"))
r1 = CSng(Range("C5"))
r2 = CSng(Range("C6"))
If (A Mod B = r1) Or (A Mod B = r2) Then
Range("C7") = "Истина"
Else
Range("C7") = "Ложь"
End If
End Sub
                        

Оцени полезность:

11 голосов , оценка 4.273 из 5

Похожие ответы