Ошибка при выполнении операции Mod - VB
Формулировка задачи:
Здравствуйте.
У меня возникла проблема при выполнении операции Mod с большими числами.
Допустим у меня есть такой простейший код:
В этом случае выдаётся ошибка: run-time error '6': Overflow. Если же заменить числа на небольшие, то всё считает нормально.
Подскажите, пожалуйста, что не так.
Листинг программы
- Private Sub Command1_Click()
- f = 25
- v = 41
- s1 = f ^ 31 Mod v
- Print s1
- End Sub
Решение задачи: «Ошибка при выполнении операции Mod»
textual
Листинг программы
- Public Function rMod(ByVal Op1 As Double, ByVal Op2 As Double) As Double ' Возвращает остаток от деления одного указанного числа на другое указанное число.
- rMod = Op1 - Op2 * Fix(Op1 / Op2)
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
