Private Sub Command1_Click()
If Val(Text1.Text) > 7 Or Val(Text1.Text) < 1 Then
MsgBox "有效数字输入范围1-7"
Exit Sub
End If
Text2.Text = Choose(Val(Text1.Text), "一", _
"二", "三", "四", "五", "六", "日")
Text3.Text = Choose(Val(Text1.Text), "英语", _
"数学", "语文", "物理", "计算机", "体育", "休息")
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024