用vb写一个在文本框中输入字母且长度必须大于2和必须是奇数，把首个字母和中间字母和尾部字母打印到窗体上点程序

以下是一个使用VB编写的程序，可以实现在文本框中输入长度大于2且为奇数的字符串，并将其首个字母、中间字母和尾部字母打印到窗体上：

Private Sub Command1_Click()
    Dim str As String
    str = Text1.Text
    If Len(str) <= 2 Or Len(str) Mod 2 = 0 Then
        MsgBox "请输入长度大于2且为奇数的字符串"
        Exit Sub
    End If
    Dim firstLetter As String
    firstLetter = Left(str, 1)
    Dim midLetter As String
    midLetter = Mid(str, (Len(str) + 1) / 2, 1)
    Dim lastLetter As String
    lastLetter = Right(str, 1)
    MsgBox "首字母：" & firstLetter & vbCrLf & "中间字母：" & midLetter & vbCrLf & "尾部字母：" & lastLetter
End Sub

在窗体中放置一个文本框和一个命令按钮，然后将上述代码复制到按钮的Click事件中即可。当用户点击按钮时，程序将从文本框中获取字符串，并检查其长度是否大于2且为奇数。如果是，则提取其首个字母、中间字母和尾部字母，并在消息框中显示它们。否则，程序将显示一个提示消息。