以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  请老师再指点一下,把英吋转为厘米,谢谢!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83754)

--  作者：jackyfashion --  发布时间：2016/4/15 21:43:00 --  请老师再指点一下,把英吋转为厘米,谢谢! 此主题相关图片如下：错误提示.png

--  作者：Hyphen --  发布时间：2016/4/16 9:52:00 --   请直接把代码贴上来，不要截图，这样就不用浪费时间，重新一个个敲入代码字符

--  作者：Hyphen --  发布时间：2016/4/16 9:57:00 --   Dim d As String = "36.1/8" Dim s() As String = d.ToString().split(".") If s.Length = 1 Then     Output.Show(s(0)) Else     Dim s2() As String = s(1).Split("/")     Output.Show(val(s(0)) +(2.54 * val(s2(0)) /  val(s2(1))) ) End If