当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 SubA．1 1 1B．2 3 5C．2 5 7D．2 3 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

相似考题

1.（ 18 ）在程序运行时，下面的叙述中正确的是A ）用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程B ）用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click 事件过程C ）只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程D ）装入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click 事件过程

2.当发生Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出______。 Option Explicit Private Sub Form. Click () Dim num As String * 1, n As Integer Open "C:\ Check. txt" For Random As #10 For n = 1 To 6 num = Chr(n + 64) Put %10, n, num Next n Seek #10, 3: Get #10, , num Print Loc(10); Seek(10) End SubA．3 4B．4 5C．5 3D．3 3

3.当发生Command1_C1ick事件后，以下程序的输出结果是 Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer For i＝9 To 0 Step -1 a(i)=10-i Next i Print a(2);a(5);a(8) End SubA．2 5 8B．7 4 1C．8 5 2D．3 6 9

4.在程序运行时，下面的叙述中正确的是A．用鼠标右键单击窗体中无控件的部分，会执行窗体的Form. L0ad事件过程B．用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程C．只装入而不显示窗体，也会执行窗体的Form. Load事件过程D．装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程

更多“当Form_Click事件发生时,程序输出的结果是 ______。Private Sub Form. Click() Dim a As Integer, ”相关问题

  • 第1题：

    程序段如下：Private Sub Command1_ Click() a = 0 for 1=15 To 15 Step- 2 a = a +1 Next I Print a, IEnd Sub发生Command 1的单击事件后，程序的输出结果是 ______。

    A．0 13

    B．15 13

    C．0 15

    D．15 15


    正确答案：B
    解析：for循环的结束条件是循环变量在变化方向上超过终值。当发生Command1_Click事件时，给变量a赋值为0，执行for循环，给循环变量I赋值15，循环变量的终值为15，步长为-2，变化方向是从大到小。循环变量的值没有超过终值，执行循环体，给a赋值15，循环变量加上步长变为13，已经在变化方向上超过了终值，循环结束。输出的a和I的值分别为15和13。

  • 第2题：

    当Form1_Click事件发生时，程序的输出结果是( )。 Private Sub Form_Click() Dim M As Integer，k As Integer，t As Integer M=5：k=7 Select Case M Case Is＜0 M=M+5 Case 1 To 10 t=M：M=k：k=t Case Else M=k Mod 3 End Select Print M，k，t End Sub

    A．5 5 7

    B．5 7 5

    C．7 5 5

    D．7 5 7


    正确答案：C
    解析：SelectCase语句用来实现多分支，但每次最多只执行一个分支。在本题的多分支语句中，首先判断M的值，为5，条件Case1to10成立，执行该分支，该分支的三条语句执行后，t的值为5，M的值为7，k的值为5。

  • 第3题：

    （25）若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为

    A）Form_Click() Command1_Click()

    B）Frm1_Click() Command1_Click()

    C）Form_Click() Cmd1_Click()

    D) Frm1_Click() Cmd1_Click()


    正确答案：C

  • 第4题：

    当发生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。

  • 第5题：

    程序段如下，当发生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


    正确答案：A
    解析：本题首先定义了一个窗体级变量x和一个全局变量y。当发生窗体的单击事件后，给窗体级变量x和全局变量y分别赋值1，然后调用Test函数。在该函数中定义了一个局部变量y，在函数中使用的y是局部变量，给窗体级变量x赋值2，给局部变量y赋值2，输出的x和y的值都是2。函数调用返回后，窗体级的变量x的值为2，全局变量y的值依旧为1。

相关内容