[单选题]

在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1,然后编写如下两个事件过程: Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1.Text=a End Sub Private Sub Textl_Change() Label1.Caption=UCase(Mid(Text1.Text,8)) End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“Visual Basic”,则在标签中显示的内容是

A.visual basic

B.VISUAL BASIC

C.basic

D.BASIC

参考答案与解析:

相关试题

在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label

[试题]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程: 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入一个具有大小写的字符串,则在标签中显示的内容全部为大写。请填空。

  • 查看答案
  • 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label

    [单选题]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Labell和 Commandl,然后编写如下两个事件过程;Private Sub Command1_Click()S$= InputBox ("请输入1个字符串")Text1.Text= S$E.nd SubPrivate Sub Text1_Change()Labell.Caption = UCase(Mid(Text1, Text2, 8))E.nd Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话

  • 查看答案
  • 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label

    [单选题]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strTextEnd SubPrivate Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后,单击命令按钮,如果在输入对话框中输入a

  • 查看答案
  • 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label

    [单选题]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text),4) End Sub 程序运行后,如果在对话框中输入abcdefgh,则在

  • 查看答案
  • 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label

    [单选题]在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Labell和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Labell.Caption=Right(Trim(Text1.Text),3) End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入Vi

  • 查看答案
  • 在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Label1)

    [单选题]在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容,以下可以实现上述操作的事件过程是( )。A.Private Sub Text1_Click()Label1.Caption=Textl.TextE.nd SubB.Private Sub Text1_Change()Label1.Caption=Text1.TextE.nd SubC.Private Sub Label1_Ctrange()La

  • 查看答案
  • 在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运

    [单选题]在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后如果在文本框中输入文本,则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。A.Private Sub Text1_Change() Label1.Caption=Text1.Text End SubB.Private Sub Label 1_Change() Label1.Caption=Text1.Text End SubC.Private Sub Text1_Click() Label1.C

  • 查看答案
  • 在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下程序:

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

  • 查看答案
  • 在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下程序:

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

  • 查看答案
  • 在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写下列程序:

    [单选题]在窗体上画一个命令按钮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=tE.nd Sub程序运行后,如果从键盘输入5,

  • 查看答案