c语言编程 0-6的数字对应星期,输入一个数字0~6 用中英文显示星期几 如何用vb编程...

满意答案

stivr

推荐于 2017.09.28

采纳率：41%    等级：12

已帮助：28014人

新建VB工程，添加一个Text1和一个Command1，然后复制以下代码：

Private Sub Command1_Click()

Dim s As String

On Error GoTo Line1

s = InputBox("请输入一个数字(范围[0-6])：", "输入框")

If s = "" Then Exit Sub

Text1.Text = Num2Week(Val(s))

Exit Sub

Line1:

MsgBox "您输入的数字太大！", vbOKOnly, "温馨提示"

End Sub

Function Num2Week(ByVal Num As Integer) As String

Dim CH As String, EN As String

Select Case Num

Case 0

CH = "星期日"

EN = "Sunday"

Case 1

CH = "星期一"

EN = "Monday"

Case 2

CH = "星期二"

EN = "February"

Case 3

CH = "星期三"

EN = "Wednesday"

Case 4

CH = "星期四"

EN = "Thursday"

Case 5

CH = "星期五"

EN = "Friday"

Case 6

CH = "星期六"

EN = "Saturday"

Case Else

MsgBox "输入错误！"

End Select

Num2Week = CH & Space(2) & EN '中文和英文之间空两格

End Function

33分享举报