计算机二级
当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
题目
当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
相似问题和答案
第1题：
（25）若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为
A）Form_Click() Command1_Click()
B）Frm1_Click() Command1_Click()
C）Form_Click() Cmd1_Click()
D) Frm1_Click() Cmd1_Click()
第2题：
当发生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
解析：本题首先通过一个两层循环给5行5列的二维数组a的各个元素赋值，通过计算，不难得出二维数组各行的值。第一行的值为：13579：第二行的值为：21357；第三行的值为：22135；第四行的值为：22213；第五行的值为：22221。然后再通过一个双层循环按行输出该数组，所以输出的第三行为：22135。
第3题：
以下说法错误的是______。
A．控件的名称可以由用户自己设定
B．窗体的事件名称可以由用户编程时设定
C．单击窗体时，会触发Form_Click事件
D．输入字符时，会触发KeyPress事件
第4题：
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Dim i As Integer，j As Integer，a(5，5) As Integer For i=1 To 5 For j=1 To 5 If(i＜=j)Then a(i,j)=1 Else a(i,j)=0 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．0 0 0 1 1
B．0 0 1 1 1
C．0 1 1 1 1
D．1 1 1 1 1
解析：本题首先通过一个两层For循环给二维数组a的每一个元素赋初值，赋值的规律是左上右下对角线及该对角线的上半部分的元素赋值为1，该对角线的下半部分元素赋值为0。然后通过一个两层循环分行输出该二维数组，所以第三行为00111。
第5题：
当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
解析：当发生窗体单击事件时，首先给变量a和b赋值1，然后输出为11，并换行，执行循环，c值为2，输出2后不换行，进行赋值后a为1，b为2，判断“c＞＝5”为False，继续执行下一循环。第二次循环输出c值为3，循环终止条件仍为False。第三次执行后，c值为5，循环终止条件为True，循环退出。因此输出的第二行为“235”。
第6题：
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer Dim k As Integer，a(5，5)As Integer For i=1 To 5 k=1 For j=1 To 5 If i＜=j Then a(i，j)=k k=k+1 Else a(i，j)=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 2 3 4 5
B．1 1 2 3 4
C．1 1 1 2 3
D．1 1 1 1 2
解析：本题首先定义了一个5行5列的数组，然后通过一个二重For循环给它的每个元素赋初值，赋值规律是左上右下对角线下面的元素值为1，该对角线上元素的值为1，该对角线上面的元素值在前一元素值的基础上增加1。接着通过一个两层For循环按行输出二维数组a，故输出的第三行为“11123”。
第7题：
当发生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 Sub
A．3 4
B．4 5
C．5 3
D．3 3
第8题：
在程序运行时，下面的叙述中正确的是
A．用鼠标右键单击窗体中无控件的部分，会执行窗体的Form. L0ad事件过程
B．用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程
C．只装入而不显示窗体，也会执行窗体的Form. Load事件过程
D．装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程
解析：当加载窗体时，系统自动触发该窗体的Load事件；当窗体成为一个活动窗口时，触发Activate事件；单击窗体空白处时，会触发窗体Click事件；选项A)触发的是Form_Click事件；选项B)用鼠标左键单击窗体的标题栏，不会触发Form_Click事件过程；选项D)触发的是Form_Activate事件过程。所以正确答案为C)。
第9题：
（ 18 ）在程序运行时，下面的叙述中正确的是
A ）用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程
B ）用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click 事件过程
C ）只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程
D ）装入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click 事件过程
