Eval в Басике 6.0 есть ли что нибудь подобное?? - VB
Формулировка задачи:
У экселя есть метод Evaluate, которому можно скормить любое вычисляемое выражение.
Evaluate('4+2') вернет 6
Так вот есть ли что нибудь подобное в ВБ6.0?
Решение задачи: «Eval в Басике 6.0 есть ли что нибудь подобное??»
textual
Листинг программы
- Option Explicit
- ' Having ScriptControl1, Text1
- Private Sub Form_Click()
- With ScriptControl1
- Me.Caption= .Eval(Text1.Text)
- End With
- End Sub
- Private Sub Form_Load()
- With ScriptControl1
- .AddObject 'Me', Me, True
- .AddCode 'Function IIf(v, v1, v2)' & vbCrLf & _
- ' If CBool(v) Then' & vbCrLf & _
- ' IIf = v1' & vbCrLf & _
- ' Else' & vbCrLf & _
- ' IIf = v2' & vbCrLf & _
- ' End If' & vbCrLf & _
- 'End Function' & vbCrLf
- End With
- Text1.Text = 'IIf(5>4,5,4)'
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
