精华内容
下载资源
问答
  • 因为两个文本框的数据类型是字符串型,两个字符串相加,这时“+”加号起到连接符的作用,只是把这两个字符串连接起来,如果让“5+6=11”就需要用Val函数把文本框的数据转换数值型。我们加上Val函数再试试:这样就...

    7bc5096e87f8b879c06eb2c92fce4550.png

    Val函数

    Val()函数的功能是将一个数据行变量转换成数字长整型变量。

    我们先看一个例子:

    01bcff099b9d0116495fc83a80f97d86.png

    按理说结果应该是“11”,为什么会这样?

    因为两个文本框的数据类型是字符串型,两个字符串相加,这时“+”加号起到连接符的作用,只是把这两个字符串连接起来,如果让“5+6=11”就需要用Val函数把文本框的数据转换成数值型。

    我们加上Val函数再试试:

    8d60fcaebdb2f57c93b21c81f9c38d7f.png

    这样就可以了。

    如果字符串中含有其他字符怎么办?是这样的,Val函数会从一个字符串中第一个字符读取,直到不是数字,比如:

    Val("23.5你好623") 的结果是“23.5”

    Val(“a235”) 的结果是"0"

    Str函数

    Str() 函数正好和Val() 函数相反,它会将数值型转换成字符串型。

    Asc函数

    Asc() 函数用于返回表达式字符串的ASCII码,如果字符串超过一个字符,则只返回第一个字符的ASCII码.

    例如:

    Asc("0") = 48

    Asc("a") = 97

    Asc("A") = 65

    Asc("Aa0123") = 65

    Chr函数

    Chr()函数是将一个ASCII码转为相应的字符,它正好和Asc()函数相反。

    例如:

    Chr(65)="A"

    CSng和CDbl函数

    CSng()函数功能是将数值转换成单精度。

    CDbl() 函数功能是将数值转换成双精度。

    单精度和双精度主要是有几个区别:

    • 在内存中占有的字节数不同
    • 有效数字位数不同
    • 表示数的范围不同
    • 在程序中处理速度不同

    我们一般用不到这两个函数,除非程序数据要求特别精确。

    下载地址

    http://51vb.ys168.com/

    展开全文
  • 今天是我学习VB编程的第...补充知识①数据类型:浮点型数据:single单精度浮点型, double双精度浮点型(这是数值型表示范围最大的一个数据类型)。②char函数,将ASCII码转换成对应的字符。表达char(ASCII码值),键...

    今天是我学习VB编程的第22天,今天学习了刘金玉老师的零基础VB教程第29期,内容是累加与累乘。

    一、累加与累乘

    1.累加:1+2+3+。。。。。。+n

    2.累乘:1*2*3*。。。。。。*n

    3.补充知识

    ①数据类型:浮点型数据:single单精度浮点型, double双精度浮点型(这是数值型表示范围最大的一个数据类型)。

    ②char函数,将ASCII码转换成对应的字符。表达为char(ASCII码值),键盘上的每一个按键都有对应的ASCII码值。

    ③not函数,取反的意识,在条件前加not表示对应范围相反的内容。

    4.text输入框只能输入数值

    Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

    Dim k%

    k = KeyCode

    '验测只能输入数值,如果不是就置空,并提示输入错误

    If Not (Chr(KeyCode) >= "0" And Chr(KeyCode) <= "9") Then

    Text1.Text = ""

    MsgBox "只能输入数字"

    End If

    End Sub

    4.text输入框只能输入0-100范围的数值

    Private Sub Command1_Click()

    Dim x As Double

    x = Val(Text1.Text)

    If Not (x >= 1 And x <= 100) Then

    MsgBox "只能输入1到100之间的数字"

    Text1.Text = ""

    End If

    End Sub

    5.利用for循环做累乘累加计算

    Private Sub Command1_Click()

    Dim ex As Double

    ex = 1

    Dim i%, j%

    For i = 1 To x Step 1

    Dim fz As Double

    fz = 1

    For j = 1 To i Step 1

    fz = fz * x

    Next j

    Dim fm As Double

    fm = 1

    For j = 1 To i Step 1

    fm = fm * j

    Next j

    Dim c As Double

    c = fz / fm

    ex = ex + c

    Next i

    Print ex

    End Sub

    最后这个例子把我绕晕了,懵逼中。

    4576812daed70c87e8673bb60f8d9d22.png
    展开全文
  • VB数据类型转换函数

    2008-02-28 09:56:00
    VB数据类型转换函数 Str (x) 将数值数据x转换字符串 Val(x) 将字符串x中的数字转换成数值 Chr(x) 返回以xASCII码的字符 Asc(x) 给出字符x的ASCII码值,十进制数 Cint(x) 将数值型数据x的小数部分四舍五入取整 ...
     

    VB数据类型转换函数

    Str (x) 将数值数据x转换成字符串
    Val(x) 将字符串x中的数字转换成数值
    Chr(x) 返回以x为ASCII码的字符
    Asc(x) 给出字符x的ASCII码值,十进制数
    Cint(x) 将数值型数据x的小数部分四舍五入取整
    Int(x) 取小于等于x的最大整数
    Fix(x) 将数值型数据x的小数部分舍去
    CBool(x) 将任何有效的数字字符串或数值转换成逻辑型
    CByte(x) 将0-255之间的数值转换成字节型
    CDate(x) 将有效的日期字符串转换成日期
    CCur(x) 将数值数据x转换成货币型
    Round(x,N) 在保留N位小数的情况下四舍五入取整
    CStr(x) 将x转换成字符串型
    CVar(x) 将数值型数据x转换成变体型
    CSng(x) 将数值数据x转换成单精度型
    CDbl(x) 将数值数据x转换成双精度型

    例如,,可以使用cdbl()函数来将变量转换成双精度型.大家看看这段代码:
    Private Sub Form_Load()
    Dim z_temp As Integer
    z_temp = 20
    Debug.Print "z_temp is" & TypeName(z_temp) & z_temp
    Debug.Print "afterchange, z_temp is " & TypeName(CDbl(z_temp)) & z_temp1
    End Sub
    在vb中,有时候辉自动转换数据类型,例如:
    Private Sub Form_Load()
    Dim a1 As Integer
    Dim a2 As Integer
    a1 = 2
    a2 = 6
    Debug.Print a1 / a2
    End Sub
    尽管我们已经声明了变量类型都是整数型,但是,我们运行后看到的值却是.333333333333333 双精度型数据,如果我们已知a1/a2仅仅是货币计算的话....那么,我们采用CCur()函数:
    Debug.pring CCur(a1 / a2)
    就可以了..
    字符串和其他数据类型的转换是最重要的,以后我们会说明的..
    除了转换外,我们可以用VarType()和TypeName()函数来检查变量类型.

    转载于:https://www.cnblogs.com/yeye518/archive/2008/02/28/2231803.html

    展开全文
  • <br />Str(x) '将数值数据x转换字符串 Val(x) '将字符串x中的数字转换成数值 Chr(x) '返回以xASCII码的字符 Asc(x) '给出字符x的ASCII码值,十进制数 Cint(x) '将数值型数据x的小数...


    Str(x) '将数值数据x转换成字符串

    Val(x) '将字符串x中的数字转换成数值

    Chr(x) '返回以x为ASCII码的字符

    Asc(x) '给出字符x的ASCII码值,十进制数

    Cint(x) '将数值型数据x的小数部分四舍五入取整

    Int(x) '取小于等于x的最大整数

    Fix(x) '将数值型数据x的小数部分舍去

    CBool(x) '将任何有效的数字字符串或数值转换成逻辑型

    CByte(x) '将0-255之间的数值转换成字节型

    CDate(x) '将有效的日期字符串转换成日期

    CCur(x) '将数值数据x转换成货币型

    Round(x,N) '在保留N位小数的情况下四舍五入取整

    CStr(x) '将x转换成字符串型

    CVar(x) '将数值型数据x转换成变体型

    CSng(x) '将数值数据x转换成单精度型

    CDbl(x) '将数值数据x转换成双精度型

    展开全文
  • VB 数据类型转换函数集

    千次阅读 2008-04-22 16:03:00
    Str(x) 将数值数据x转换字符串Val(x) 将字符串x中的数字转换成数值Chr(x) 返回以xASCII码的字符Asc(x) 给出字符x的ASCII码值,十进制数Cint(x) 将数值型数据x的小数部分四舍五入取整Int(x) 取小于等于x的...
  • 因为两个文本框的数据类型是字符串型,两个字符串相加,这时“+”加号起到连接符的作用,只是把这两个字符串连接起来,如果让“5+6=11”就需要用Val函数把文本框的数据转换数值型。我们加上Val函数再试试:这样就...
  • Visual Basic 的基本控制结构 顺序结构各语句依次顺序执行 此前所学的语句的存在...字符型数据"0129"赋值给数值型变量时系统先自 动将字符串转换为数值再赋值但是字符不可以 非字符数据赋值给字符变量时将被转换为字
  • vb.net常用函数.txt

    2011-06-13 23:20:09
    CChar(expression) 转换表达式为字符型态。 CDate(expression) 转换表达式Date 型态。 CDbl(expression) 转换表达式Double 型态。 CDec(expression) 转换表达式Decimal 型态。 CInt(expression) 转换表达式...
  • VB.net常用函数

    2009-06-11 15:09:00
     Val(string) 将代表数字的字符转换为数值型态,若字符串中含有非数字的内容则会将其去除后,合并为一数字。 Weekday(date) 取的参数中的日期是一个星期的第几天,星期天为1、星期一为2、星期二为3 依此类推。 ...
  • vb6 函数大全

    2014-12-15 14:49:59
    1、 Int(x):求不大于自变量x的最大整数 2、 Fix(x):去掉一个浮点数的小数部分,保留其整数部分 3、 Hex$(x):把一个十进制数转换为十六进制数 4、 Oct$(x):把一个十进制数转换为八...15 val(X):把X的值转换为数值类型
  • VB 知识小结

    2013-04-10 18:45:40
    最近在用VB开发的时候,做点知识的小结: 1、整型常量包括 (1)、十进制:15 ...(2)、可为“数值型”连接(包括10、8、16进制,当是数值型时,系统自动转换为“数字字符”) 3、16进制和字符串间的相
  • Asp.NET(vb.net)常用函数

    2007-01-06 23:55:00
    Val(string) 将代表数字的字符转换为数值型态,若字符串中含有非数字的内容则会将其去除后,合并为一数字。 Weekday(date) 取的参数中的日期是一个星期的第几天,星期天为1、星期一为2、星期二为3 依此类推。 ...
  • Asp.NET常用函数 (VB.net)

    2006-04-18 15:01:00
    Val(string) 将代表数字的字符转换为数值型态,若字符串中含有非数字的内容则会将其去除后,合并为一数字。 Weekday(date) 取的参数中的日期是一个星期的第几天,星期天为1、星期一为2、星期二为3 依此类推。 ...
  • Asp.NET常用函数 (VB.net)

    2005-01-11 16:23:00
    文章来源:不详作者:不详推荐... Val(string) 将代表数字的字符转换为数值型态,若字符串中含有非数字的内容则会将其去除后,合并为一数字。 Weekday(date) 取的参数中的日期是一个星期的第几天,星期天为1、星期一
  • Val(string) 将代表数字的字符转换为数值型态,若字符串中含有非数字的内容则会将其去除后,合并为一数字。 Weekday(date) 取的参数中的日期是一个星期的第几天,星期天为1、星期一为2、星期二为3 依此类推。 ...
  • C#字符ASCII码学习经验

    2014-07-08 21:11:00
    很多时候我们需要得到一个英文字符的 ASCII 码,或者一个汉字字符的 Unicode 码,或者从相关的编码查询它是哪一个字符...但是如果你学过 C,你就会清楚,我们只需要将英文字符型数据强制转换成合适的数值型数据,就...
  • Val(string) 将代表数字的字符转换为数值型态,若字符串中含有非数字的内容则会将其去除后,合并为一数字。 Weekday(date) 取的参数中的日期是一个星期的第几天,星期天为1、星期一为2、星期二为3 依此类推。 ...
  • vb.net常用函数

    2010-12-08 16:07:00
    Abs(number) 取得数值的绝对值。 Asc(String) 取得字符串表达式的第一个字符ASCII 码。... CBool(expression) 转换表达式Boolean 态。 CByte(expression) 转换表达式Byte 态。 CChar(expr
  • Vb.net常用函数

    2011-12-15 15:28:00
    Abs(number) 取得数值的绝对值。Asc(String) 取得字符串表达式的第一个字符ASCII 码。Atn(number) 取得一个角度的反正切值。CallByName (object, ...CBool(expression) 转换表达式Boolean 态。CByte(express...
  • 在 Visual Basic 6.0 中, Any类型的变量通常用于传递是字符串或 Null 的变量, 您可以通过声明两种(一种使用长,一种使用字符串)来替换这种 Visual Basic 6.0 的用法。 易语言的函数、类型、常数声明是放在不同的...
  • 如果针对字符型字段OK,但是针对数值型字段出错提示如下: 从字符串“”到类型“Double”的转换无效 我试着改: ``` If e.RowIndex >= 0 And IIf(IsDBNull(.CurrentCell.Value), 0, .CurrentCell.Value) <> e....
  • 很多时候我们需要得到一个英文字符的 ASCII 码,或者一个汉字字符的 Unicode 码,或者从相关的编码查询它是哪一个字符的编码。... 但是如果你学过 C,你就会清楚,我们只需要将英文字符型数据强制转换成合适的数值型

空空如也

空空如也

1 2 3
收藏数 56
精华内容 22
关键字:

vb字符型转换为数值型