(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然后编写如下两个事件过程:Private Sub Command1_Click( )S$=InputBox("请输入一个字符串")Text1.Text=S$End SubPrivate Sub Text1_Change( )Label1.Caption=UCase(Mid(Text1.Text, 7))End Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“V

题目

(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然

后编写如下两个事件过程:

Private Sub Command1_Click( )

S$=InputBox("请输入一个字符串")

Text1.Text=S$

End Sub

Private Sub Text1_Change( )

Label1.Caption=UCase(Mid(Text1.Text, 7))

End Sub

程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,

则在标签中显示的内容是 【6】 。


相似考题
更多“(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然后 ”相关问题
  • 第1题:

    设有如下通用过程:在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如 下事件过程:End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是( )。

    A. 30

    B. 25

    C. 20

    D. 15


    正确答案:A
    A)    【解析】本题考查函数的参数。数组作为参数进行传递时,VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10,因此最后文本框中显示的内容为30。

  • 第2题:

    在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

    程序运行后,单击命令按钮,在文本框中显示的值是

    A.2

    B.3

    C.4

    D.5


    正确答案:B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3,到For循环时.还要再加步长1,这相当于因此,n=3。选择B。

  • 第3题:

    在窗体上画—个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写 如下两个事件过程: Private sub Command1_Click( ) strText=lnputBox(“请输入”) Text1.Text=strText EndSub Private Sub Text1_Change( ) Label1.Caption=Right(Trim(Text1.Text),3) End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是

    A.空

    B.abcdef

    C.abe

    D.def


    正确答案:D
    解析:Trim表示去掉字符串两边的空白字符。Risht函数返回字符串最后面的n个字符。本题首先通过lnputBox函数输入一个字符串并赋绐strText,然后把strText赋给,Text1.Text。再经过Trim函数和Right函数的计算,得出的结果应该是abcdef的最后三个字符def。

  • 第4题:

    在窗体上画两个名称分别为Label1和Label2的标签,再画一个名称为Command1的命令按钮,然后编写如下事件过程:

    运行上面的程序,单击命令按钮.其输出结果是

    A.8 9

    B.8 18

    C.64 9

    D.64 18


    正确答案:C
    解题的关键是窗体变量X和局部变量Y的作用域及过程调用时的参数传递方式。窗体变量X的作用域是该窗体内的所有过程,所以虽然是传值,但在过程Subl中可见,因此在该过程中使用了窗体变量X,这个“x=a*a”直接将该窗体变量X的值改变为64。而y则是过程Command1_Click的内部变量,与过程Sunl中的变量y没有关系,标签Label2显示的是本过程的Y值,即9。正确答案为c。

  • 第5题:

    在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为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程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是

    A. 空

    B.abcdef

    C.abc

    D.def


    正确答案:D
    解析:函数Trim用于去掉字符串"abcdef"两边的空格,Right函数从字符串右边取出指定数量的字符。