Question

如何在vb中获取textbox中输入的分数值

用vb还是新手，需要用到分数计算，用val好像解决不了，希望大家能帮帮忙，谢谢了。
能不能有直接一点的方法，比较简单的语句。

Answer 1

Set sc = CreateObject("ScriptControl")
sc.Language = "vbscript"
MsgBox "文本框中表达式的值是 " & sc.Eval(Text1.Text)
'这个代码可以计算任何VB表达式，例如文本框中输入1+2/5，可得到1.4，输入time，可得到当前时间。

Answer 2

dim a as double
a=val(text1.text)

Answer 3

Dim s As String
Dim d1 As Double
Dim d2 As Double
Dim d As Double

s = text1.text
d1 = Val(Mid(s, 1, InStr(s, "/") - 1))
d2 = Val(Mid(s, InStr(s, "/") + 1))

d = d1 / d2