niusouti.com

在窗体上画一个名称为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 程序运

题目

在窗体上画一个名称为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

相似考题

1.（ 20 ）在窗体上画一个命令按钮和两个标签，其名称分别为 Command1 、 Label1 和 Label2 ，然后编写如下事件过程：Private Sub Command1_Click()a = 0For i = 1 To 10a = a + 1b = 0For j = 1 To 10a = a + 1b = b + 2Next jNext iLabel1.Caption = Str(a ）Label2.Caption = Str(b ）End Sub程序运行后，单击命令按钮，在标签 Label1 和 Label2 中显示的内容分别是A ） 10 和 20B ） 20 和 110C ） 200 和 110D ） 11 0 和 20

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、Label1和Label2，然后编写如下事件过程； Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1 b=0 For j＝1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(A) Label2.Caption=Str(B)End Sub 程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。A．10和20B．20和110C．200和110D．110和20

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

更多“在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下 ”相关问题

  • 第1题：

    在窗体上画一个名称为Command1的命令按钮和3个名称分别为Label1, Label2, Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n= 10 z = n + z y = y + z x = x + z Label1.Caption = x LabelCaption = y LabelCaption = z End Sub 运行程序，连续三次单击命令按钮后，则3个标签中显示的内容分别是

    A．10 10 10

    B．30 30 30

    C．30 30 10

    D．10 30 30


    正确答案：C
    解析：用Dim或Static关键字可以声明过程级变量，过程级变量只有在声明它们的过程中才能被识别。在整个应用程序运行时，用Static声明的变量中的值一直存在，而用Dim声明的变量只在过程执行期间才存在。Dim语句还可以声明模块级变量，其作用域为声明它的窗体模块或标准模块中。本题中变量x是用Dim声明的模块级变量，变量y是用Static声明的过程级变量，而变量z是用Dim声明的过程级变量，第1次单击命令按钮后，3个标签中分别显示10、10、10；第2次单击命令按钮后，3个标签中分别显示20、20、10：第3次单击命令按钮后，3个标签中分别显示30、30、10。

  • 第2题：

    在窗体上画一个名称为Command1的命令按钮和3个名称为Label1、Label2、Label3的标签，然后编写如下程序段： Private x As Integer Private Sub Command1_Click( ) Static y As Integer Dim z As Integer n =10 z = n+z y=y+z x=x+z LabelCaption = x LabelCaption = y LabelCaption = z End Sub 运行程序，连续3次单击命令按钮后，则3个标签中显示的内容是( )。

    A．10 10 10

    B．30 30 30

    C．30 30 10

    D．10 30 30


    正确答案：C
    解析：本题中变量x是用Dim声明的模块级变量，变量Y是用Static声明的过程级变量，而变量z是用Dim声明的过程级变量。第一次单击命令按钮后，3个标签中分别显示10，10，10；第二次单击命令按钮后，3个标签中分别显示20、20、10；第三次单击命令按钮后，3个标签中分别显示30，30，10。答案为C。

  • 第3题：

    在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。

    注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。


    正确答案：

    【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“＆”和“+”运算符以及Print方法。
    【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“＆”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
    【操作步骤】
    步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。


    步骤2：打开代码编辑窗口，在指定位置编写如下代码。
    参考答案
    Private Sub Command1_Click()
    Form1．Print Text1．Text＆"，现年"＆
    Text2．Text＆"岁"
    End Sub
    步骤3：调试并运行程序，关闭程序后按题目要求存盘。

  • 第4题：

    在窗体上画两个标签和一个命令按钮，其名称分别为Label1、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(Label1，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。

    A．ABCD和10

    B．1234和100

    C．ABCD和100

    D．1234和10


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

  • 第5题：

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

相关内容