程序段如下，当发生Form_Click事件时，窗体上输出的结果是( )。 Option Explicit Private x As Integer Public y As Integer Sub Test() Dim y as integer x=2：y=2 Print"x1=";x;"y1=";y End Sub Private Sub Form_Click() x=1：y=1 Test Print "X2="；x；"y2="；y End SubA．x1=2 y1=2 x2=2 y2=1B．x1=2 y

题目

程序段如下，当发生Form_Click事件时，窗体上输出的结果是( )。 Option Explicit Private x As Integer Public y As Integer Sub Test() Dim y as integer x=2：y=2 Print"x1=";x;"y1=";y End Sub Private Sub Form_Click() x=1：y=1 Test Print "X2="；x；"y2="；y End Sub

A．x1=2 y1=2 x2=2 y2=1

B．x1=2 y1=2 x2=2 y2=2

C．x1=2 y1=1 x2=2 y2=2

D．x1=2 y1=1 x2=2 y2=1

相似考题

1.执行下列程序后，鼠标单击窗体，输出结果为 。Private Sub Form_Click（）Print "Click";End SubPrivate Sub Form_MouseDown（Button As Integer, Shift _As Integer, X As Single, Y As Single）Print "Donw"End SubPrivate Sub Form_MouseUp（Button As Integer, Shift _As Integer, X As Single, Y As Single）Print " Up"End Sub（ ）。A．DownUpClickB．ClickDownUpC．DownClickUpD．UpDownClick

2.设有如下程序：Private Sub Form_Click()Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG

3.下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End SubA．36B．25C．1D．出错信息

4.有如下事件过程： Prirate Sub Form_Click() A$="123": B$="456" x=Val(A$)+Val(B$) Print x\100 End Sub 程序运行后，单击窗体，则窗体上显示的内容是______。A．123B．3C．5D．579

更多“程序段如下,当发生Form_Click事件时,窗体上输出的结果是()。Option ExplicitPrivate x As Integer ”相关问题

  • 第1题：

    假定有如下事件过程： Privte Sub Form_Click0 Dim x As Integer,n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果是( )。

    A．81 4

    B．56 3

    C．28 1

    D．243 5


    正确答案：A

  • 第2题：

    （26）在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Private Option Base 1 Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 IfX(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的结果是 。A.10 B.12 C.16 D.20


    正确答案：B
    【解析】程序首先使用Array函数为x数组变量赋值，然后利用For循环和If结构语句实现程序功能。程序执行过程如下：
    ①当i=1时，X(i)=2，d=d-c=-6；②当i=2时，X(i)=4，d=d-c=-12；③当i=3时，X(i)=6，d=d-c=-18；④当i=4时，X(i)=8，d==d+X(i)=-10，c=8；⑤当i=5时，X(i)=10，d=d+X(i)=0，c=10；⑥当i=6时，X(i)=12，d=d+X(i)=12，c=12。

  • 第3题：

    在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form_Click() Dim a(20) As Integer For k=1 To 20 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。

    A．400

    B．20

    C．441

    D．出错信息


    正确答案：D
    解析：一维数组a的下标在1～20之间。而循环结束后k值为21，故产生下标越界的错误。

  • 第4题：

    当Form_Click事件发生时，程序输出的结果是 ______。 Private Sub Form. Click() Dim a As Integer，b As Integer，c As Integer a=1: b=1 Print a; b Do c=a+b Print c a=b:b=c Loop Until c＞=5 End Sub

    A．1 1 1

    B．2 3 5

    C．2 5 7

    D．2 3 4


    正确答案：B
    解析：当发生窗体单击事件时，首先给变量a和b赋值1，然后输出为11，并换行，执行循环，c值为2，输出2后不换行，进行赋值后a为1，b为2，判断“c＞＝5”为False，继续执行下一循环。第二次循环输出c值为3，循环终止条件仍为False。第三次执行后，c值为5，循环终止条件为True，循环退出。因此输出的第二行为“235”。

  • 第5题：

    执行下面程序，第一行输出结果是【 】，第二行输出结果是47。

    Option Explicit

    Private Sub Form_Click( )

    Dim A As Integer

    A=2

    Call Sub1 (A) End Sub

    Private Sub1 (x As Integer)

    x=x*2+1

    If x＜10 Then

    Call Sub1 (x)

    End If

    x=x*2+1

    Print x

    End Sub


    正确答案：23
    23 解析：递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。当x=2时调用了第1次，当 x=5时调用了第2次，当x=11时不再调用，退出之前分别按x=23和x=47输出。注意：通用过程的调用和通用过程中的参数调用。

  • 第6题：

    在窗体上绘制一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c As Integer，d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为

    A．10

    B．16

    C．12

    D．20


    正确答案：C
    解析：本题属于综合性题目，考查知识点较多，难度较大。首先程序包含了一个循环结构，同时循环结构中还嵌套有一个条件结构。循环体内部将数组中的元素与c做比较，如果大于c，则与d求和，并将结果赋给d，将该元素赋给c。否则执行d=d-c。最后的运行结果是12，选项C正确。

  • 第7题：

    窗体上命令按钮Command1的事件过程如下：End Sub 该程序执行后，输出结果是（ ）。


    正确答案：A
    A)    【解析】本题考查二维数组元素的赋值。二维数组中a中第i行j列元素为(i-1)*3+j，i、J分别从3变化到4，因此，输出a(3，3)、a(3，4)、a(4，3)、a(4，4)的元素为：9 10 12 13。

  • 第8题：

    以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End Sub

    A．30 50

    B．30 30

    C．20 20

    D．10 20


    正确答案：A
    解析：本题中x、y的最后取值也就是a、b的输出值。执行x＝x+y＝10+20＝30，接着执行y＝x+y＝ 30+20＝50。所以在窗体上输出的结果是30和50。

  • 第9题：

    当Form_Click;事件发生时,窗体上显示的第三行是 ______。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i ＜= j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End Sub

    A．22135

    B．21357

    C．22213

    D．13579


    正确答案：A
    解析：程序首先通过一个双重循环二维数组x的各个元素赋值，通过计算不难得出二维数组各行的值：第一行：13579第二行：21357第三行：22135第四行：22213第五行：22221第三行的值为22135，因此本题选A。

  • 第10题：

    当发生Form_Click事件时，下列程序的输出结果是( )。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End Sub

    A．7 75 66 60 7 80 126 60

    B．7 75 66 60 7 75 126 60

    C．7 75 66 60 7 80 66 60

    D．7 75 66 60 7 75 66 60


    正确答案：A
    解析：本题定义了两个窗体级变量m和n，并在窗体的Load事件中给窗体级变量m和n分别赋值7和70。当发生Form_Click事件时，首先进行第一次sub1过程的调用，把k的值6按地址传递给形参x，把p的值60按值传递给形参y。在sub1中定义了一个局部变量m，因此在该函数中使用的m是局部变量而非窗体级变量。执行下面的4条赋值语句后，窗体级变量n的值为75，局部变量m的值为142，形参x的值为66，形参y的值为126。函数调用返回后，由于p是按值传递，所以它的值没有变化，k是按地址传递，所以它的值变为邱，输出m、n、k和p的值分别是7、75、66和60。同理，分析第二次sub1过程调用，可知过程调用返回后，变量m、n、k和p的值分别是7、80、126、60。

  • 第11题：

    运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu

    运行下列程序：

    Private Sub Form_Click( )

    Dim x As Integer, y As String, z As String

    y = "12345"

    For x = 1 To Len(y)

    z = Mid(Left(y, x), 1)

    Next x

    Print z

    End Sub

    单击窗体后，则在窗体上显示的结果是( )。

    A.1

    B.11111

    C.55555

    D.12345


    正确答案：D

  • 第12题：

    当发生Form_Click事件时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer，k As Integer Dim a(5，5)As Integer For i=1 To 5 k=1 For i=1 To 5 If(i＜=j)Then a(i,j)=k k=k+2 Else a(i,j)=k+1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j)； Next j Print Next i End Sub

    A．1 3 5 7 9

    B．2 1 3 5 7

    C．2 2 2 1 3

    D．2 2 1 3 5


    正确答案：D
    解析：本题首先通过一个两层循环给5行5列的二维数组a的各个元素赋值，通过计算，不难得出二维数组各行的值。第一行的值为：13579：第二行的值为：21357；第三行的值为：22135；第四行的值为：22213；第五行的值为：22221。然后再通过一个双层循环按行输出该数组，所以输出的第三行为：22135。

  • 第13题：

    有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：A

  • 第14题：

    假定有如下事件过程：

    Private Sub Form_Click（）

    Dim x As Integer, n As Integer

    x = 1

    n = 0

    Do While x < 28

    x = x * 3

    n = n + 1

    Loop

    Print x, n

    End Sub

    程序运行后，单击窗体，输出结果是（ ）。

    A．81 4

    B．56 3

    C．28 1

    D．243 5


    正确答案：A

  • 第15题：

    在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序：

    Function a(x As Integer, y As Integer) As Integer

    a = IIf(x ＞ y, x, y)

    End Function

    Private Sub Command1_Click()

    Dim n As Integer, m As Integer

    n = 10

    m = 20

    Print a(n, m)

    End Sub

    程序运行后，单击命令按钮，输出结果是______。


    正确答案：20
    20

  • 第16题：

    有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：C
    解析：纵观题目可以看出，本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2，4，8，10，所以和是24，故本题的正确答案是选项C。

  • 第17题：

    假定有如下事件过程： Privte Sub Form_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x，n End Sub 程序运行后，单击窗体，输出结果是

    A．81 4

    B．56 3

    C．28 1

    D．243 5


    正确答案：A
    解析：本题考查Do……Loop循环控制结构。Do…Loop循环控制结构是考试重点内容，历次考试都会有至少2个题目涉及该知识点，务必掌握。题目非常简单，目的是对x进行一定的计算，同时输出循环次数。x初值为1，满足条件，执行后面语句，当x=27，n=3时，继续执行循环，执行x=x*3，后，x为81，n=4，已经不满足条件，循环结束。所以最后的结果x=81，n=4，选项A正确。

  • 第18题：

    在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是（ ）。

    A. 在窗体上输出55

    B. 在窗体上输出sum=55

    C. 出错

    D. 窗体上不输出


    正确答案：D
    D)    【解析】本题考查Load事件运行。当装入窗体事件触发时，通常用于对属性和变量初始化，一般不使用Print方法，若想Print方法在Form. Load事件过程中起作用，必须设置窗体的AutoRedraw为True，否则Print方法不起作用。

  • 第19题：

    设有如下程序：

    Prirate Sub Form_Click()

    Dim a As Integer,b AS Integer

    a=20:b=50

    p1 a,b

    p2 a,b

    p3 a,b

    Print"a="；a,"b=";b

    End Sub

    Sub p1(x As Integeh By Val y As Integer)

    x=x+10

    y=y+20

    End Sub

    Sub p2(ByVal x As Integer,y As Integer)

    x=x+10

    y=y+20

    End Sub

    Sub p3 (ByVal x As Integer,ByVal y As Integer)

    x=x+10

    y=y+20

    End Sub

    该程序运行后，单击窗体，则在窗体上显示的内容是：a= ______ 和b= _____。


    正确答案：30 70
    30 70

  • 第20题：

    编写如下事件过程： Option Explicit Private Sub Form_Click() Dim Str As String， I As Integer Open "examp" For Output As 1 For I=1 To 5 Str=Chr(I+64) Print #1，Str； Next I Close 1 Open”examp'，For lnput AS 2 Str=Input(10，#2) Print Str； Close 2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

    A．ABCDE

    B．96

    C．65

    D．abcde


    正确答案：A
    解析：利用For循环依次将字母ABCDE分别写到examp文件中，然后再用Input函数一次将10个字母读出，并显示在屏幕上。

  • 第21题：

    在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2，4，6，8，10，12) For i=1 To 6 If X(i)＞c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的结果为( )。

    A．10

    B．12

    C．16

    D．20


    正确答案：B
    解析：程序首先使用Array函数为x数组变量赋值，然后利用For循环和If结构语句实现程序功能。程序执行过程如下：①当i=1时，X(i)=2，d=d-c=-6：②当i=2时，X(i)=4，d=d-c＝12；③当i=3时，X(i)-6，d=d-c=-18；④当i=4时，X(i)=8，d=d+X(i)=-10，c=8；⑤当i=5时，X(i)=10，d=d+X(i)=0，c=10；⑥当i=6时，X(i)=12，d=d+X(i)=12，c=12。

  • 第22题：

    程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub

    A．32

    B．28

    C．30

    D．36


    正确答案：A
    解析：当发生Command1_click事件时，将定义一个4行4列的数组aa(数组下标从0开始)，然后通过一个两层For循环给它的各个元素赋值，赋值规律是给每一个元素赋它的行下标值乘以4，再加上列下标值再加1。然后通过一个For循环把数组元素aa(0，1)、aa(1，1)、aa(2，1)和aa(3，1)的值2、6、10、14加到s中，s的值为32。

  • 第23题：

    运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x

    运行下列程序：

    Private Sub Form_Click( )

    Dim y As Integer, x As Integer

    Do Until x > 20

    x = x + 10

    y = y + x

    If x > 20 Then Exit Do

    Loop

    Print x, y

    End Sub

    单击窗体后，则在窗体上显示的结果是( )。

    A.10 20

    B.30 60

    C.10 30

    D.20 60


    正确答案：B

相关内容