Вывод целой и десятичной части дробного числа - VB
Формулировка задачи:
Вечера, уважаемые программисты. Возникла потребность в программе, которая бы при вводе не целого числа выводила отдельно целую часть и десятичную(то есть число после комы0.
Как это осуществить?
Решение задачи: «Вывод целой и десятичной части дробного числа»
textual
Листинг программы
Private Sub Command1_Click() Label1 = "": Label2 = "" k = Val(Replace(Text1.Text, ",", ".")) a = Split(CStr(k), ",") Label1 = a(0) If UBound(a) = 1 Then Label2 = a(1) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д