跪求高手帮忙做vb的一个程序

来源：百度知道 编辑：UC知道 时间：2024/07/04 09:56:04
收件程序中的用户类型，他/她的名字，当使用者按下一个按钮，名称显示的书面向后（反向顺序排列）
例如：如果使用者输入自己的名字作为
“塔希尔汗” ，该计划应表现出它作为
rihaT nahK
检查1 ：
如果用户忘了输入任何字符，或者如果名称长度超过15个字符然后：
落后的名字将不会显示。
标签出现的讯息显示“请输入适当的名称长度”
检查2 ：
如果名称长度“ = 7个字符，例如，塔希尔（ 5个字符长）
标签出现的一条消息显示“你的名字的长度是确定和5个字符
如果名称长度“ 7个字符和” < = 11个字符，例如，塔希尔阿巴斯（ 11个字符长包括空间）
标签出现的一条消息显示“你的名字是漫长的，有11个字符”
如果名称长度“ = 12个字符和” < 15个字符，例如， （ 13字元长）
标签出现的一条消息显示“你的名字太长，有13个字符

东西 弄好了,添加一个command 一个text 一个label
还有个问题,我是按照你的要求写的,但是你的要求和输出不太匹配吧!
如:如果名称长度“ = 7个字符，标签出现的一条消息显示“你的名字的长度是确定和5个字符(这个未免也太不匹配了哦,还有下面好几句)

Private Sub Command1_Click()
Dim A(2) As String, i As Integer

A(0) = Text1.Text
For i = 1 To Len(Text1.Text)
A(1) = Mid(A(0), i, 1) & A(1)
Next
If Len(Text1.Text) > 15 Or Text1.Text = "" Then
Label1.Caption = "请输入适当的名称长度"
Else
Label1.Caption = A(1)
End If
End Sub

Private Sub Text1_Change()
Label1.Caption = ""
If Len(Text1.Text) = 7 Then Label1.Caption = "你的名字的长度是确定和5个字符" '这个你到底是要几个字符啊
If Len(Text1.Text) > 7 And Len(Text1.Text) < 11 Then Label1.Caption = "你的名字是漫长的，有11个字符"
If Len(Text1.Text) >= 12 And Len(Text1.Text) < 15 Then Label1.Caption = "你的名字太长，有13个字符"
End Sub

If Len(Text1.Text) >= 12 And Len(Text1.Text) < 15 Then Label1.Caption = "