| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 524 人关注过本帖
标题:让我疑惑的一个问题,求高手解答
只看楼主 加入收藏
guanshengjie
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2011-5-8
收藏
 问题点数:0 回复次数:6 
让我疑惑的一个问题,求高手解答
在对某变量赋值得时候,例如txtSum = Val(txtPrice) * Val(txtQYT)和a = Val(Text1.Text)中的Val是什么意思啊?????求高手解答!!!!!!!感激不尽!!!!
2011-05-09 11:17
guanshengjie
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2011-5-8
收藏
得分:0 
顶顶,,,求高手!!!
2011-05-09 11:24
A5388
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2011-5-7
收藏
得分:0 
就是将括号里的内容转成一个数
2011-05-09 12:57
bobbypz
Rank: 1
来 自:江苏泗洪
等 级:新手上路
帖 子:3
专家分:1
注 册:2011-5-7
收藏
得分:0 
这个是将()里的字符转为数值

模仿是最大的奉承...
2011-05-09 16:04
zhuiis
Rank: 4
等 级:业余侠客
威 望:1
帖 子:201
专家分:286
注 册:2008-11-8
收藏
得分:0 
Val() 就是返回字符串中的数字
先看一个例
dim A as String,B as String
A="123asjfh"
B="jkdl123"
print A '这里显示为: “123”
print B '这里显示为:“0”
因此 Val 可以理解成,从左到右取数字,如果遇到非数字,侧从此停止,并返回前面所取到的数字。
如果左边第一位就不是数字,那么返回“0”
2011-05-09 19:56
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
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中要处理就会有一堆麻烦~

不要選我當版主
2011-05-09 21:24
lilikun
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-4-4
收藏
得分:0 
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就出现编译错误?为什么?
2012-04-04 13:20
快速回复:让我疑惑的一个问题,求高手解答
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018346 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved