这个题是由C语言转换来的，我想不起来用Vb怎么做
请输入星期几的第一个字母来判断一下是星期几，如果第一个字母一样，则继续判断第二个字母。

这是我以前写的，但程序表达与题意不符合

添加一个标签和一个文本框，双击文本框编写代码：
Select Case UCase(Text1.Text) '转换成大写字母判断
Case "" '清空了文本框
Label1.Caption = "请输入第一个字母"
Exit Sub
Case "S", "T"
Label1.Caption = "请继续输入第二个字母"
Exit Sub
Case "M"
MsgBox "星期一"
Case "W"
MsgBox "星期三"
Case "F"
MsgBox "星期五"
Case "SU"
MsgBox "星期日"
Case "SA"
MsgBox "星期六"
Case "TU"
MsgBox "星期二"
Case "TH"
MsgBox "星期四"
Case Else '输入错误
MsgBox "不能代表是星期几"
End Select
Text1.Text = "" '清空文本框重新输入（前面有Exit Sub的分支就不会执行到这里）
双击窗体，再加一句代码：
Text1.Text = ""

运行一遍程序，发现设计得真棒。谢谢大佬。

这是稍微做一下修改后的程序，呵呵呵