在窗体上面一个命令按钮Commandl和一个文本框Textl,然后编写下列程序: Private Sub Commandl_ClickO A=InputBox("请输入日期(1~31)") T="旅游景点:"_ ﹠IIf(A>0And A ﹠IIf(A>10And A ﹠IIf(A>20And A Text1.Text=t End Sub程序运作后,如果从键盘输入5,则在文本框中显示的内容。A.旅游景点:长城 B. 旅游景点:长城颐和园C. 旅游景点:颐和园 D. 旅游景点:故宫
在窗体上面一个命令按钮Commandl和一个文本框Textl,然后编写下列程序: Private Sub Commandl_ClickO A=InputBox("请输入日期(1~31)") T="旅游景点:"_ ﹠IIf(A>0And A ﹠IIf(A>10And A ﹠IIf(A>20And A Text1.Text=t End Sub程序运作后,如果从键盘输入5,则在文本框中显示的内容。A.旅游景点:长城 B. 旅游景点:长城颐和园C. 旅游景点:颐和园 D. 旅游景点:故宫
相关考题:
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:Private Sub Commandl_Click()Dim i As Integer,n As IntegerFor i=0 T0 50i=i+3n=n+1If i10 Then Exit ForNextTextl.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是A.2B.3C.4D.5
若窗体中已有一个名为Commandl的命令按钮、一个名为Labell的标签和一个名为Textl的文本框,且文本框的内容光焕发为空,然后编写如下事件代码: Private Function fx As Long. As Boolean If x Mod 2 =0 Then f =True Else f =False End If End Function Privare Sub Commandl_Click. Dim n As Ling n =ValMeltextl. p=Iiffn.,”Even number”,”Odd number’ Me!Labell.Caption=n&“is” &p End Sub 窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为 【12】
在窗体中添加了一个文本框和一个命令按钮(名称分别为Textl和Commandl),并编写了相应的事件过程。运行此窗体后,在文本框中输入一个字符,则命令按钮上的标题变为"Access模拟”。以下能实现上述操作的事件过程是( )。A.Private Sub Commandl.Click( ) Caption=”Access模拟”Commandl.B.Private Sub Textl click( ) Caption=”Access模拟”EndSubEndSubC.Private SUb Commandl Change( ) Caption=”Access模拟”Commandl.D.Private Sub Textl_Change( ) Caption=”Access模拟”End SubEnd Sub
在窗体上添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),并在命令按钮中编写如下事件代码:PrivateSubCommandlClick()m=17n=Len(Str$(m)+Sp2ace(5))Me!Text1=nEndSub打开窗体运行后,单击命令按钮,在文本框中显示______。A.5B.8C.9D.10
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程: