vb编程题求大神解答
展开全部
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
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
