Программа преобразования чисел - VB

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

Помогите,задачка вроде простая но вообще что то не выходит,нужно чтобы при вводе в textbox дробного числа в другом textbox преобразовала ее в десятичную дробь

Код к задаче: «Программа преобразования чисел - VB»

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

8   голосов, оценка 4.375 из 5


СОХРАНИТЬ ССЫЛКУ