If Then
Есть два числа N и K.
надо сделать так, чтобы при N/K проверялось значение, если результат целый, то вывести его на екран, если число с запятой, то K=K+1, до тех пор, пока не получится первое
n/k=m
if m= (Целое число) Then
label1.caption = m
end if
if m=(Число с запятой) Then
k=k+1
end if
Что нужно поставить вместо слов "Целое число" и "Число с запятой"?
надо сделать так, чтобы при N/K проверялось значение, если результат целый, то вывести его на екран, если число с запятой, то K=K+1, до тех пор, пока не получится первое
n/k=m
if m= (Целое число) Then
label1.caption = m
end if
if m=(Число с запятой) Then
k=k+1
end if
Что нужно поставить вместо слов "Целое число" и "Число с запятой"?
Цитата: alex270594
n/k=m
ШТОЭТА?!
А вообще для проверки целочисленности деления служит инструкция Mod.Использовать так
Код:
If A Mod B=0 Then …
Цитата: @pixo $oft
ШТОЭТА?!
Это я так хочу поделить n на k. Как правильно?
Как правильно,я уже написал.Возникает ощущение,что вы 2ю часть поста не читали
Также рекомендуется почитать любую книгу по VB(коли уж вы решили им заниматься) и узреть порядок арифметических операций
Также рекомендуется почитать любую книгу по VB(коли уж вы решили им заниматься) и узреть порядок арифметических операций