满意答案
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分享举报