Question

vb中如何输入一个分数输出一个小数

请问能否这样呢？
只用两个文本框，text1和text2。
比如在text1中输入1/2，则按下按钮后在text2中输出0.5。
可不可以使用变量，我要把它做成子程序。
可不可以检测/号，然后把/前面的数和/后面的数存入变量，然后相除

Answer 1

Text2.Text = Val(Split(Text1.Text, "/")(0)) / Val(Split(Text1.Text, "/")(1))

或者：
N1 = Val(Split(Text1.Text, "/")(0))
N2 = Val(Split(Text1.Text, "/")(1))
Text2.Text = N1 / N2

Answer 2

那就需要涉及字符串操作了，
a = InStr(Text1.Text, "/")
b = Len(Text1.Text)
c = Mid(Text1.Text, 1, a - 1)
d = Mid(Text1.Text, a + 1, c)
e = c / d
Text2.Text = Str(e)

Answer 3

'====================================================================

Private Sub Command1_Click()
b = aa("/", Text1, 0) '取"/"号的前部分
c = aa("/", Text1, 1) '取"/"号的后部分
Text2 = Format(b / c, "0.####")
End Sub

Function aa(a, b, c)
Dim i, s, tmp
i = InStr(b, a)
If i > 0 Then
If c = 0 Then 'c=0表示取前部分
aa = Left(b, i - 1)
Else 'c<>0表示取后部分
aa = Mid(b, i + 1)
End If
End If
End Function