让我疑惑的一个问题，求高手解答 - 编程论坛

#2

guanshengjie2011-05-09 11:24

顶顶，，，求高手！！！

#3

A53882011-05-09 12:57

就是将括号里的内容转成一个数

#4

bobbypz2011-05-09 16:04

这个是将()里的字符转为数值

#5

zhuiis2011-05-09 19:56

Val() 就是返回字符串中的数字
先看一个例
dim A as String,B as String
A="123asjfh"
B="jkdl123"
print A '这里显示为: “123”
print B '这里显示为：“0”
因此 Val 可以理解成，从左到右取数字，如果遇到非数字，侧从此停止，并返回前面所取到的数字。
如果左边第一位就不是数字，那么返回“0”

#6

wube2011-05-09 21:24

Val()有好用的地方也有可恶的地方～
好用的地方是～它可以在一堆数字+字符堆中～把数字提取出来～
可恶的地方是它非常人性化～它会把你小数点后或整数前的0去掉～
若你的数值是一个范围～比如+-02.00它好像提出来只剩0～
再做字串处理时少一个字多一个字～差别是天差地远～～所以又爱又恨
现在我已经舍弃这么好用的功能了～改用土法炼钢法～

程序代码：

Private Sub Form_Load()
Dim a As String

    a = "+-2.0100ABC"

    For i = 0 To Len(a)
        b = Mid(a, i + 1, 1)
        If IsNumeric(b) = True Then
            XXX
        Else
            XXX
        End If
    Next i
End Sub

因为日志档几乎是从C产生的～而C有他自己的格式化函式可以用（为了整齐划一吧）～所以到了VB中要处理就会有一堆麻烦～

#7

lilikun2012-04-04 13:20

Private Sub Command1_Click()
lbl12.Caption = "是"
lbl12.Alignment = 2
txt11.Text = Time
lbl11.BackColor = &H80FF80
lbl12.BackColor = &H80FF80
lbl13.BackColor = &H80FF80
txt11.BackColor = &H80FF80
txt12.BackColor = &H80FF80
txt13.BackColor = &H80FF80
txt14.BackColor = &H80FF80
txt15.BackColor = &H80FF60
End Sub
这段代码执行到TXT13没问题，为什么到了txt14和txt15就出现编译错误？为什么？