以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  文本转成数值型后取最大值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=82623)
--  作者：漂亮美眉vszh
--  发布时间：2016/3/21 20:39:00
--  文本转成数值型后取最大值
画框内有3个数据,文本型,VAL转换为数值型后,对比后获取最大值,可结果为什么是0?求解
图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
--  作者：漂亮美眉vszh
--  发布时间：2016/3/21 20:40:00
--  
Dim s(2) As String
Dim v As Double
Dim n As Integer
s(0)= "36.2"
s(1) = "fox"
s(2) = "16.4"
For i As Integer = 0 To 2
    If IsNumeric(s(i)) Then
If v > val(s(i))
v = val(s(i))
        \'v = v + Val(s(i))
        \'n = n + 1
    End If
End If
Next
\'Output.Show("数值个数为:" & n) \'2
Output.Show("数值的和为:" & v) \'52.6
--  作者：大红袍
--  发布时间：2016/3/21 20:45:00
--  
Dim s(2) As String
Dim v As Double = -999
Dim n As Integer
s(0)= "36.2"
s(1) = "fox"
s(2) = "16.4"
For i As Integer = 0 To 2
    If IsNumeric(s(i)) Then
        If val(s(i)) > v
            v = val(s(i))
        End If
    End If
Next
Output.Show("数值的和为:" & v) \'52.6