VB中如如何把字符串转为数值进行取模运算?如“aaa” 转化后应该是多少?到底是ascii码呢? 还是什么?

作者&投稿:金纨 (若有异议请与网页底部的电邮联系)
如何在VB中计算所有字符的ASCII码之和并显示~

计算机中用得最广泛的字符集及其编码,是由美国国家标准局(ANSI)制定的ASCII码(American Standard Code for Information Interchange,美国标准信息交换码),它已被国际标准化组织(ISO)定为国际标准,称为ISO 646标准。适用于所有拉丁文字字母,ASCII码有7位码和8位码两种形式。
因为1位二进制数可以表示(2^1)=2种状态:0、1;而2位二进制数可以表示(2^2)=4种状态:00、01、10、11;依次类推,7位二进制数可以表示(2^7)=128种状态,每种状态都唯一地编为一个7位的二进制码,对应一个字符(或控制码),这些码可以排列成一个十进制序号0~127。所以,7位ASCII码是用七位二进制数进行编码的,可以表示128个字符。
第0~32号及第127号(共34个)是控制字符或通讯专用字符,如控制符:LF(换行)、CR(回车)、FF(换页)、DEL(删除)、BEL(振铃)等;通讯专用字符:SOH(文头)、EOT(文尾)、ACK(确认)等;
第33~126号(共94个)是字符,其中第48~57号为0~9十个阿拉伯数字;65~90号为26个大写英文字母,97~122号为26个小写英文字母,其余为一些标点符号、运算符号等。
Private Sub Command1_Click()
For i = 33 To 126
Print i; Chr(i),
If i Mod 5 = 2 Then Print
s = s + i
Next i
Print
Print "Sum="; s
End Sub

Asc 函数
返回一个 Integer,代表字符串中首字母的字符代码。
语法

Asc(string)
必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符,则会产生运行时错误。
说明

在非 DBCS 系统下,返回值范围为 0 – 255 。在 DBCS 系统下,则为 -32768 – 32767。

注意 AscB 函数作用于包含在字符串中的字节数据,AscB 返回第一个字节的字符代码,而非字符的字符代码。AscW 函数返回 Unicode 字符代码,若平台不支持 Unicode,则与 Asc 函数功能相同。
Asc 函数示例

本示例使用 Asc 函数返回字符串首字母的字符值(ASCII 值)。
Dim MyNumberMyNumber = Asc("A") ' 返回 65。MyNumber = Asc("a") ' 返回 97。MyNumber = Asc("要") ' 返回 -11606

下面函数传入字符串、取得用豆号分隔的Unicode码(0~65535)字符串。

function getcode(a as string) as string
dim k,tmp,cd
for k=1 to len(a)
cd=ascw(mid(k,a,1))
if tmp="" then
tmp=iif(cd<0,65536+cd,cd)
else
tmp=tmp & "," & iif(cd<0,65536+cd,cd)
end if
next k
getcode=tmp
end function

取得豆号分隔的Unicode字符串后如果想转成数值可以用Split分隔、然后用Val函数转换。
总之想取得一个字的Unicode是用ASCW函数、这个函数要是返回来小于0的就需要65536加上返回来的数值。大于等于0的就不用处理了。

字母的话用val()只能是转化后为0

同问


将字符串a中的数字取出存储到b中,用C语言怎么实现
遍历一下如果用ASCII码判断是不是数字,是的话取出来依次放在b中。。。字符串的数字都有它的ASCII码,C语言比较烦。。别的语言转换一下类型就行了

如何把字符串n[i]={char,char,char},读取到三个字符串中a[]={char}...
用二维数组,在一些语言中、并没有什么字符串数组。你可以定义一个3x4的二维数组。然后在对数组初始化

...麻烦的是,A和B都是字符串 —— 即从字符串A中把字符串B
说一下算法,供楼主参考吧。用遍历法,用嵌套for循环,即外循环for从B中取出一个字符,然后内循环把A循环一遍,找出有没有相同的,有就舍去,没有相同的重新放到A里。然后外循环再取B第二个字符进行判断...,最后把清除后的A打印出来 就行了。第二题的话,首先要把进制转换的方法掌握,然后才能...

excel表格如何在每个单元格前加上同样的字符
这种方法虽然方便,可以直接在源数据上添加统一的字符,但是它有一个缺点,那就是它改变的只是显示的内容,数据本身是没有改变的。如果你需要改变源数据本身的内容,那就需要用到其它方法了。连接符统一添加 文本连接符“&”,这个符号可以把两个字符串(文本)进行连接,组合成一个新的字符串。如下图...

excel函数如何将一个字符串中特定字符后面的所有字符删掉
1、首先在电脑上用2007版excel软件打开目标文件,如图所示。2、在B1单元格中输入公式【=left(A1,find("L",A1)-1)】,如图。3、然后按下键盘上的回车键,进行确定。4、完成以上设置后,即可达到提问者的要求。

如何在EXCEL里面有函数提取单元格里面特定的字符串?
在Excel中可以利用mid函数提取单元格里面特定的字符串。软件版本:Office2007 方法如下:1.从A列单元格中的第二位开始,提取2位字符:2.输入公式如下:3.下拉填充得到结果如下:

java编程,b写程序将一个字符串中的单词解析出来然后将它们添加到一个h...
import java.util.HashSet;import java.util.Scanner;import java.util.Set;public class StringSet { public static void main(String[] args) { Scanner scanner = new Scanner(System.in);System.out.println("Please input something: ");String inputString = scanner.next();Set<Character> ...

如何在Excel中提取字符串中左边的字符?
2. 对于右边字符的提取,如A1到A5中电话区号,左边有固定的3个中文字符。使用RIGHT函数,计算剩余字符数,公式为:=RIGHT(A1,LEN(A1)-3)。同样,选中B1到B6单元格,输入公式后回车,B列将显示A1到A5单元格的电话区号。通过这些函数的组合,Excel能够根据数据的特定结构,高效地提取所需信息。

编写程序,输入一个字符串存放在字符数组a中,再将a元素中的所有小写字...
include<stdio.h> include<stdlib.h> include<string.h> define MAX 10 int main(){ char n; \/\/输入字符个数 char ch[MAX] ; \/\/存放输入的字符 char b[MAX]; \/\/存放ch中的小写字符 for (int i = 0; i < strlen(ch); i++){ scanf("%c",&n);ch[i] = n;if (ch[i]...

Excel-VBA中如何使用split来分割内部含有不定空格的字符串
1、首先打开office excel软件,接着打开VBA编辑界面。2、然后在单元格区域当中输入一些内容。3、接着在VBA编辑器中插入模块。4、在模块当中输入如下代码进行分割取线,然后运行。5、最后在单元格B2中输入公式“=Division($A1,"\/",COLUMN(A:A))”,然后右拉至D2,公式结果如图所示。

集宁区14784428241: VB中怎么把字符串转换成数值表达式 -
释庞全威: val()函数只能转换数值不能转换带非数字符号的表达式 比如: Dim str As String Dim n as integer str = "123" : n = val(str) '此处n = 123 str = "1+1" : n = val(str) '此处n = 1,如果想让 n = 2是的话,那得自己编写一个表达式解析函数 str = "a1+1" : n = val(str) '此处n = 0

集宁区14784428241: 怎样把字符串转换成数值,在vb中 -
释庞全威: Val函数 返回 返回包含于字符串内的数字,字符串中是一个适当类型的数值.语法 Val(string) 必要的 string 参数可以是任何有效的字符串表达式.说明 Val 函数,在它不能识别为数字的第一个字符上,停止读入字符串.那些被认为是数值的一部分...

集宁区14784428241: VB中如何将字符串转换成数值来运算 -
释庞全威: '使用下面提供给你的函数可以做到这点! '先定义2个结构Parent和Plus,把这2个定义放在代码段最前面 Private Type Parents As Stringvalue As Double End Type Private Type Pluss As Stringvalue As Double End Type'下面是实现此功能的...

集宁区14784428241: VB把任何字符串强制转为数字 -
释庞全威: 用 Asc 函数返回字符串首字母的字符值(ASCII 值) 当输入的数字超过255 随机生成0-255之间的一个数来充当该值 Private Sub Form_click() Dim r, g, b As Integer Randomize r = Asc(InputBox("请输入R的值", "颜色")) g = Asc(InputBox("请输...

集宁区14784428241: 在VB中,将数字字符串转换成数值,可以用哪些函数、方法?
释庞全威: val()函数是将字符串转换为数值变量,int()函数是将数值转换为整形变量,类似的还有CSng()、CVar()、CDbl()、CLng()等等.例如:执行Debug.Print Val("123456")则在立即窗口显示 123456

集宁区14784428241: VB中怎么把文本转换为 数值型??? -
释庞全威: 字符型可以转为数值型的函数有: CInt():转为整型, Csng(),转为单精度 CDbl,转为双精度 Clng(),转为长整型 CDec(),转为十进制 此外,val()函数也可将字符串转数字型

集宁区14784428241: VB中如何从一段话中提取数字? -
释庞全威: VB中如何从一段话的文字中提取数字,需要先对文字中的字进行逐一循环判断,如果是数字,然后返回需要的结果.代码如下: Private Sub Command1_Click()Dim a As Stringa = "我爱你1314,你呢"For i = 1 To Len(a)'对文字中每个字循...

集宁区14784428241: VB中如何把字符型的转换成数值型的 -
释庞全威: dim a as single a=val(text1.text) msgbox(a) 你试下,你用val小数点省略是因为你把结果赋值到integer类型里面,当然不行

集宁区14784428241: VB中如何将字符串转换成数值 -
释庞全威: 或者可以借用脚本来实现表达式的计算,它可以进行较复杂的计算:'// 表达式计算 Public Function ExpressionsEvaluate(ByVal strExpressions As String) As Currency Dim objEvaluate As Object On Error GoTo LocalErr '// 创建一个脚本对象 Set ...

集宁区14784428241: vb6.0中把字符串转换成数字的函数怎么用? -
释庞全威: 新建一个VB的EXE程序,画一个TEXT1,将文本改为110,再画一个COMMAND1,复制以下代码 Option Explicit Private Sub Command1_Click() Dim a As Single a = CSng(Text1.Text) Print a End Sub 将字符串转换成数字的函数还有,CInt和Val都是整型,CLng长整型,用法和本例差不多的.本例中的CSng是单精度型的也就是小数型的.

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网