题目来源:大工慕课 链接
原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验4-4
作者:Caleb Sung
题目要求
筛选在Text1文本框输入的字母字符,并反序在Text2中存放。
效果实例:
提示
- 要考虑字母的大写和小写。
- 首先利用Len函数求Text1.Text字符串长度,然后利用For循环结构和Mid函数逐一取字符进行判断是否为字母,若是字母,则利用语句“Text2.Text=字母 & Text2.Text”将字母连接到Text文本框前面,实现反序。
参考代码
Private Sub Command1_Click()
Text2.Text = ""
For i = 1 To Len(Text1.Text)
Text2.Text = Mid(Text1.Text, i, 1) & Text2.Text
Next i
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub