vb与vb.net得到汉字ASC的函数，该怎么解决

一样的还是使用asc函数就好了啊！，n=ASC（“汉”），不过汉字的asc码都是小于0的

创新互联是一家专业提供宜州企业网站建设,专注与成都做网站、成都网站建设、H5响应式网站、小程序制作等业务。10年已为宜州众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

VB中的Asc函数是怎么回事

ASC函数用于返回表达式字符串的ASCII码，如果字符串超过一个字符，则只返回第一个字符的ASCII码，因此：Asc("BCDE")=Asc("B")=66，66是大写字母B的ASCII码。

VB内置函数ASC()的用法

用途：将字符串中的全角(双字节)英文字母更改为半角(单字节)字符。

语法：ASC(text)

参数：Text为文本或包含文本的单元格引用。如果文本中不包含任何全角英文字母，则文本不会被更改。

实例：如果A1=excel，则公式“=ASC(A1)”返回excel。

比如：

打开VB软件，新建标准EXE。

建立一个图片框，名称改为A。建立一个命令按钮，caption改为按钮。

点击按钮进入代码编辑器，输入代码。

A.print "1234567890"

A.print tab(3);"mm" ;tab(7);"mm"

"1234567890"是用来确定字符位的，能清楚的看到tab函数的结果。

代码中，tab(3)所以“mm”从第三字符开始显示，tab（7）所以第二个“mm”从第七个字符位开始显示。

VBNET ACCESS操作方法

Imports System.Data.OleDb  

Public Class Form1  

Dim cn As OleDbConnection  

Dim da As OleDbDataAdapter  

Dim ds As DataSet  

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  

Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False"  

cn = New OleDbConnection(cnStr)  

Dim sql As String = "select * from grade"  

da = New OleDbDataAdapter(sql, cn)  

ds = New DataSet  

da.Fill(ds, "grade")  

DataGridView1.DataSource = ds.Tables(0)  

End Sub  

End Class

解释：

 Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False"  

这段是创建链接字符串，你可以根据自己数据库实际存放位置进行修改

Dim sql As String = "select * from grade"

这是数据库查询语句，你可以根据实际情况修改下

Dim sql As String = "select * from grade"  

da = New OleDbDataAdapter(sql, cn)  

ds = New DataSet  

da.Fill(ds, "grade")  

DataGridView1.DataSource = ds.Tables(0)

这是执行查询语句后，将查询的结果存入datagridview中

分享名称：vb.netasc方法 aspnet vb
浏览地址：http://azwzsj.com/article/hjjipc.html