在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写下列程序: Private Sub Command1 click()A=InputBox("请输入日期(1~31)")t="旅游景点:"_ &Ⅱf(A>0 And A<=10,"长城","")_ &Ⅱf(A>10 And A<=20,"故宫","")_ &Ⅱf(A>20 And A<=30,"颐和园","")Text1.Text
单选题
在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写下列程序: Private Sub Command1 click()A=InputBox("请输入日期(1~31)")t="旅游景点:"_ &Ⅱf(A>0 And A<=10,"长城","")_ &Ⅱf(A>10 And A<=20,"故宫","")_ &Ⅱf(A>20 And A<=30,"颐和园","")Text1.Text