itgle.com

在窗体的单击事件中有如下程序:privatesubform_click()forj=1to15a=a+jnextjPrintaendsub程序运行后单击鼠标左键，输出的结果是( )A.1B.15C.90D.120

题目

在窗体的单击事件中有如下程序:

privatesubform_click()

forj=1to15

a=a+j

nextj

Printa

endsub

程序运行后单击鼠标左键，输出的结果是( )

A.1

B.15

C.90

D.120

相似考题

1.在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10)As Integer Dimi As Integer, j As Integer For i=2 To 4 For j=2 To 4 arr(i, j)=i*j Next j Next i Label1. Caption=Str(arr(2, 2)+arr(3, 3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是______。A．12B．13C．14D．15

2.在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click（）Dim arr（10, 10） As IntegerDim i As Integer, j As IntegerFor i = 2 To 4For j = 2 To 4arr（i, j） = i * jNext jNext iLabel1.Caption = Str（arr（2, 2） + arr（3, 3））End Sub程序运行后，单击窗体，在标签中显示的内容是（ ）。A．12B．13C．14D．15

3.阅读程序：Private Sub Command1_Click()A=0For j=1 to 15a=a+j mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是A ）105B)1C)120D)15

4.在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j=2 To 4 arr(i,j)=i*j Next j Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是A． 12B．13C．14D．15

参考答案和解析
正确答案：D
更多“在窗体的单击事件中有如下程序:privatesubform_click()forj=1to15a=a＋jnextjPrintaendsub ”相关问题

  • 第1题：

    在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。

    A．12

    B．13

    C．14

    D．15


    正确答案：B

  • 第2题：

    阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

    A．105

    B．1

    C．120

    D．15


    正确答案：D
    解析：本题是计算1到15对3取余的所有余数的和。For循环控制变量j从1到15变化，步长为1，每执行一次循环变量的值加1，因此循环语句的执行了15次。因为Mod运算符的优先级高于加(+)，因此循环体a=a+ jMod 3中，首先执行j Mod 3语句，再与a相加。变量a的功能是累计1到15对3取余的所有余数的和。程序的执行过程如下：
    第一次：i=1，a=0，a=0+1 mod 3=0+1=1
    第二次：j=2，a=1，a=1+2 mod 3=1+2=3
    第三次：j=3，a=3，a=3+3 mod 3=3+0=3
    第四次：j=4，a=3，a=3+4 mod 3=3+1=4
    第五次：j=5，a=4，a=4+5 mod 3=4+2=6……
    第十五次：j=15，a=15，a=15+15 mod 3=15+0=15

  • 第3题：

    在窗体上绘制一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10，10)As Integer Dim i As Integer，j As Integer For i=2 To 4 For j=2 To 4 arr(i，j)=i*j Next i Next i Labell.Caption=Str(arr(2，2)+arr(3，3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是

    A．12

    B．13

    C．14

    D．15


    正确答案：B
    解析：多重循环属于考试难点，考生应该注意多重循环中环应该按照先进后出、后进先出的原则，不能交叉。按照这个原则将循环层次分清楚就不容易出错。程序运行后在标签中显示的内容是13，选项B正确。

  • 第4题：

    阅读程序：

    Private Sub Form. Click（ ）

    a=0

    For j=1 To 15

    a=a+j Mod 3

    Next j

    Print a

    End Sub

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

    A.105

    B.1

    C.120

    D.15


    正确答案：D
    D。【解析】取模(Mod)运算符的功能是取两数相除的余数部分，常用于判断一个整数能否被另一个整数整除。本题源程序通过For循环将1～15间的所有整数与3相除所得的余数累加，结果为15。

  • 第5题：

    在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click( ) Dim arr(10, I0) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j =2 To 4 arr(i,j) =i*j Next Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是

    A．12

    B．13

    C．14

    D．15


    正确答案：B
    解析：本题具有一定的迷惑性，其实分析一下易知arr(i,j)的值即为i*j，所以an(2，2)+arr(3， 3)就是求2*2+3*3=13。注意： For…Next循环控制结构适用于指定循环次数的循环程序。其格式为：
      For循环变量二初始值To终值Step步长
      Next
      其中，当步长为正时，初始值要小于终值；当步长为负时，初始值要大于终值。注意：For…Next循环控制结构。

相关内容