神经网络一输入两输出_VBA编程如何输入输出字符集，两函数要掌握

字符函数

Chr():返回一个字符串，其中包含与指定的字符代码关联的字符。

如何输入字符，在vba编程过程中是一个基本常识。

本节主要介绍一下，字符集对应的数值，以及如何输入字符。

很显然，函数Chr即可输出相应数值的字符。

如下图所示：

大写字母

如要输出大字字母A~Z

可以这样来操作：

Dim xArr, i As LongReDim xArr(0 To 26)For i = 65 To 90xArr(i - 65) = Chr(i)Next iMsgBox VBA.Join(xArr)

小写字母

输出小写字母：

Dim xArr, i As LongReDim xArr(0 To 26)For i = 97 To 122xArr(i - 97) = Chr(i)Next iMsgBox VBA.Join(xArr)

相应地还有一个函数，可以将字符转换为数值。

Asc()

返回一个整数值，它表示与字符串中的第一个字母对应的字符代码。

如将字母转换为数值，可进行如下操作。

Asc(“A"),数字65

Asc(“a"),数字97

Asc()是Chr()的反函数，学习的时候要一并调试，这样对字符的操作就比较有更深的记忆了 。

重点明白的是Asc函数分别返回字符串的第一个字母的数值。

如 ：Asc("Asc") 返回数值65

字符掌握比较简单，主要是对常用的字符进行一下记忆，其它不常用的需要的时候查询对应表格即可以。

附本节代码：

Private Sub CommandButton1_Click()Dim x As Longx = VBA.Trim(Me.ComboBox1.Value)If VBA.Len(x) = 0 Then Exit SubMe.TextBox1.Value = VBA.Chr(x)Me.TextBox1.Value = Me.TextBox1.Value & "__" & VBA.Asc(Me.TextBox1.Value)End Sub

欢迎关注、收藏