Как можно перевести данные из текстового типа в числовой? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д