纯新手诚恳提问vb根号和分数咋弄
--------------------编程问答-------------------- 顺便说下，我好象没有分。我的问题应该不麻烦吧
大家助人为乐下哈 --------------------编程问答-------------------- 分数将分子和分母算出来，将其公约数除去，带根号一个思路 --------------------编程问答-------------------- ？什意思？ --------------------编程问答--------------------
--------------------编程问答-------------------- (-b + Sqr(d)) / (2 * a)
'分数
Public Function Friction(Fri As Single) As String
Const MAX = 0.01
Dim i As Integer
Dim str As String
i = 1
While Abs((i / Fri) - Round((i / Fri), 0)) > MAX
i = i + 1
Wend
str = i & "/ " & Round(i / Fri)
Friction = str
End Function
Private Sub Form_Load()
Dim i As String
i = Friction(0.214)
Debug.Print i
End Sub
不要算出来，直接对这个表达式化简
继续Google，求最大公约数的算法。
--------------------编程问答-------------------- --------------------编程问答-------------------- 我试试，但是那最后的n是公约数？？
--------------------编程问答-------------------- 不过，重点还有一个！
那个分数线怎么打的？
我试了试"/"它说
缺少：语句结束 --------------------编程问答-------------------- 只能说：老子晕，遇得到哦。
你要的不是结果，是结果的显示形式
你想在程序中显示根号那个七弯八绕的特殊符号，以及和我们平时写的一样的分为上下两部分的分号，
要么找些支持数学符号显示的控件，要么直接用picturebox自己像画画一样把结果画上去。 --------------------编程问答-------------------- 好吧，为了我的一元二次方程理想，继续努力中……
--------------------编程问答-------------------- 楼主大概并不是要算出结果,只是想要一个方程解的表达形式吧? --------------------编程问答-------------------- 我的QQ空间里有这种代码
可以解决输出分数和根号的问题
例如，输入0.33333333333333则显示1/3.输入18^0.5则显示3√2
http://sz.user.qzone.qq.com/810296309/infocenter#!app=2&via=QZ.HashRefresh&pos=1346204476
补充：VB , 基础类
