vb中如何输入一个分数输出一个小数
只用两个文本框，text1和text2。
比如在text1中输入1/2，则按下按钮后在text2中输出0.5。
可不可以使用变量，我要把它做成子程序。
可不可以检测/号，然后把/前面的数和/后面的数存入变量，然后相除
最新回答
独我暖阳
2025-06-27 12:12:52
或者：
N1 = Val(Split(Text1.Text, "/")(0))
N2 = Val(Split(Text1.Text, "/")(1))
Text2.Text = N1 / N2
情伤己
2025-06-27 09:15:05
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)
匆匆过客
2025-06-27 10:32:48
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
热门标签
