各位朋友
春满四月春意盎然
我们迎来了一年中最美丽的的季节
让我们努力学习,提高自身素质吧!
问
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
支持小编请点赞!
领取专属 10元无门槛券
私享最新 技术干货