Программа преобразования чисел - VB
Формулировка задачи:
Помогите,задачка вроде простая но вообще что то не выходит,нужно чтобы при вводе в textbox дробного числа в другом textbox преобразовала ее в десятичную дробь
Решение задачи: «Программа преобразования чисел»
textual
Листинг программы
Private Sub Command1_Click() txt$ = Me.Text1.Text p% = InStr(txt$, "/") If p% = 0 Then MsgBox "Отсутствует знаменатель" Else n# = Val(Left$(txt$, p% - 1)) d# = Val(Mid$(txt$, p% + 1)) r# = n# / d# Me.Text2.Text = CStr(r#) End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д