Как можно перевести данные из текстового типа в числовой? - VB

Узнай цену своей работы

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

Доброго времени!!! Опять возникла проблема, есть задание, где надо вычислить формулу, которая составлена программно (в цикле). Формула, в процессе составления имеет текстовый тип, но потом для вычисления надо присвоить это выражение переменной типа Single!!! При запуске проги, выдаётся ошибка типов!!! Подскажите пожалуйста, как можно перевести данные из текстового типа в числовой??? За ранее благодарен, Wit!

Решение задачи: «Как можно перевести данные из текстового типа в числовой?»

textual
Листинг программы
Dim FlagSymb As Boolean
Dim n As Integer
Dim a As Single
Dim PrimN As String
 
Private Sub Command1_Click()
    If Text1.Text = '' Then
        MsgBox 'Ââåäèòå Г§Г*Г*Г·ГҐГ*ГЁГҐ ïåðåìåГ*Г*îé n!!!', vbExclamation, 'Г‡Г*Г¤Г*Г·Г* В№3'
        GoTo l1
    End If
    n = Text1.Text
    Prim = 'sqr(2'
    If n = 1 Then
        a = Sqr(2)
        Label2.Caption = a
        GoTo l1
    Else:
        
 
        PrimN = Prim
        For i = 2 To n
            PrimN = PrimN & '+' & Prim
        Next
        For i = 1 To n
            PrimN = PrimN & ')'
        Next
        a = CSng(PrimN)
        Label2.Caption = a
    
 
End If
l1:
End Sub
 
Private Sub Command2_Click()
    Form0.Enabled = True
    Form0.Option2.Value = False
    Unload Me
End Sub
 
Private Sub Command3_Click()
    Text1.Text = ''
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы