niusouti.com

在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Captio

题目

在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

相似考题

1.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30

2.（ 27 ）在窗体上画两个标签和一个命令按钮，其名称分别为 Label1 、 Label2 和 Command1 ，然后编写如下程序：Private Sub func(L As Label)L.Caption= ” 1234 ”End subPrivate Sub Form_Load()Label2.Caption=10End subPrivate Sub Command1_Click()A=Val(Label2.Caption)Call func(Label1)Label2.Caption=aEnd sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为A ） ABCD 和 10B ） 1234 和 100C ） ABCD 和 100D ） 1234 和 10

3.在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：Sub S(x As Integer，Y As Integer)Static z As Integery=x*x+zz=yEnd SubPrivate Sub Command1_Click()Dim i As Integer，z As Integerm=0z=0For i=1 To 3S i，zm=m+zNext iLabel1．Caption=Str(m)End Sub程序运行后，单击命令按钮，在标签中显示的内容是A．50B．20C．14D．7

4.D）窗体（Form）可以作为过程的参数（25）在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click( )X=5: Y=3Call proc(X, Y)Label1.Caption=XLabel2.Caption=YEnd SubPrivate Sub proc(a As Integer, ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。A）25 和 3B）5 和 3C）25 和 6D）5 和 6

更多“在窗体上画两个标签和一个命令按钮,其名称分别为Labell、Label2和Command1,然后编写如下程序:Priv ”相关问题

  • 第1题：

    在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。

    A．11

    B．12

    C．16

    D．20


    正确答案：B
    解析：在For循环中，Step是用于指定计数器的步长，本题中是-2，就是每执行一次循环后，j的值减2。程序共有两层循环，当外层循环执行第一次时，j从6开始执行循环，当j＝0时，结束循环，此时Counter＝1＋1+1＝3。而外循环一共要执行4次，所以Counter＝3＋3＋3＋3＝120

  • 第2题：

    在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe12和Command1，然后编写如下程序： Private SUb fune(L As Label，By Val a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form. Load() LabeCaptlon="ABCD" LabeCapfion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Callfunc(Labell，A)LabeCaption=a End Sub 程序运行后，单击命令按钮，在两个标签Labe11和Labe12中显示的内容分别是______。

    A．ABCD和10

    B．1234和100

    C．ABCD和100

    D．1234和10


    正确答案：D
    解析：单击命令按钮后变量a赋初值a=10，通过Call调用函数后，Labell．Caption="1234"，而由于参数a是按值传递的，所以调用完函数后变量a的值在单击事件中并没有改变，所以执行语句Labe12.Caption=a后， Label2中显示的值仍为10。

  • 第3题：

    在窗体上画两个名称分别为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。

  • 第4题：

    在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click( ) X=5：Y=3 Call proc(X，Y) Label1.Caption=X LabeLCaption=Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是

    A．5和3

    B．25和3

    C．25和6

    D．5和6


    正确答案：B
    解析：由于在Proc过程中，a、b的传送方式都是传值，故在“Command1_Click()”事件过程中，变量X、Y的地址未发生变化，但由于调用proc过程后，变量x被赋予了新值a*a，所以在单击命令按钮后，Label1显示为25，Label2没有发生变化，因为Y变量事先未声明，为事件过程变量，在未采用传地址方式下Sub过程中的Y与事件过程中的Y互不干扰。

  • 第5题：

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

    A．空

    B．Visual

    C．Vis

    D．ual


    正确答案：D
    解析：当用户向文本框中输入新信息或当程序将Text属性设置为新值从而改变文本框的Text属性时，将触发Change事件，即执行“Text1.Text=strText”语句时，就触发了Change事件。Trim(字符串)将返回的是去掉“字符串”两边的空白字符，Right(字符串，n)将返回“字符串”的最后n个字符。字符串Visual最右边的3个字符为ual。

相关内容