VB编程中如何判断一个字符长度的奇偶性，附VB内部函数讲解！

各位朋友

春满四月春意盎然

我们迎来了一年中最美丽的的季节

让我们努力学习，提高自身素质吧！

问

VB学习，你好。请问通过TEXT文本框输入一个字符串。单击“判断”按钮：如果字符串长度是奇数，则输出中间的那个字符；如果字符串长度是偶数，则输出第一个和最后一个字符，这个问题怎么解答？

答

你好，朋友。这个程序主要是对文本框知识以及VB编程中内部函数的综合应用。

文本框控件具有很多其他控件所没有的属性，也是我们在编程中用的最普遍的控件之一。VB中的内部函数是组成一个完整程序的必要部分，所以这些知识一定要熟练掌握。

编写程序代码

Dim a As Integer，b as String

Private Sub Command1_Click()

b=Text1

a = Len(b)

If a Mod 2 = 0 Then

Print "本次输入的是字符长度为偶数，" &

"第一位为：" & Mid(b, 1, 1) &

",最后一位为：" & Mid(b, a, 1)

Else

Print "本次输入的是字符长度为奇数，"

& "中间的字符为："; Mid(b, a / 2 + 0.5, 1)

End If

End Sub

实际运行界面

内部函数知识链接

VB内部函数之

字符串函数

Visual Basic中提供了丰富的内置函数可用于程序设计，包括：数学函数 、字符串函数 、判断函数、转换函数等。

1.InStr（[起始位置]，字符串1，字符串2[，比较类型]）— 字符串2在字符串1中第一次出现的位置。

2. InStrRev(字符串1， 字符串2[起始位置[，比较类型]]—与InStr()函数相似，只是从字符串1的后面开始向前查找。

3. LTrim(字符串) —去掉字符串左边的空白部分。

eg:LTrim(VB)=跟我学VB微信平台(去掉左面的空格)

4. Rtrim(字符串) —去掉字符串右边的空白部分。

eg:RTrim(VB)= 跟我学VB微信平台(去掉右面的空格)

5. Trim(字符串) —去掉字符串的左右空格 。

eg:Trim(VB)= 跟我学VB微信平台(去掉左右两面的空格)

6. Left(字符串，个数) —取出字符串左边指定个数的字符 。

eg:left(VB，5)= 跟我学VB(从字符串VB中，取出左边的前5个字符)

7. Right(字符串，个数) —取出字符串右边指定个数的字符。

8. Mid(字符串，起始位置[，个数]) —取字符串由起始位置开始的指定个数的字符。

eg:Mid(VB4,2)= VB (从字符串VB中的第四个位置处，取出2个字符)

9. Len(字符串或字符变量) —计算字符长度 。

eg:Len(VB)= 9(返回字符串的长度)

10. Ucase(字符串) —将字符串的小写字母转换为大写字母。

11. Lcase(字符串) —将字符串的大写字母转换为小写字母。

12. Space(个数) —返回指定个数的空字符串。

13. String(个数，字符)—返回包含重复字符的字符串 。

长按上图，关注跟我学VB公众平台

跟我学VB

支持小编请点赞！