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

题目

阅读程序：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

相似考题

1.阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。A． 21B．13C．8D．25

2.请阅读程序：Option Base 1Pfivate Sub Form_Click()Dim Arr(4，4)As IntegerFor i=1 To 4For j=1 To 4Arr(i,j)=(i-1)*2+jNext jNext iFor i=3 To 4For j=3 To 4Print Arr(j，i)；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是( )。A．5 7 6 8B．6 8 7 9C．7 9 8 10D．8 10 8 11

3.阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为A．21B．13C．8D．25

4.阅读程序：Option Base 1Dim arr（） As IntegerPrivate Sub Form_Click（）Dim i As Integer, j As IntegerReDim arr（3, 2）For i = 1 To 3For j = 1 To 2arr（i, j） = i * 2 + jNext jNext iReDim Preserve arr（3, 4）For j = 3 To 4arr（3, j） = j + 9Next jPrint arr（3, 2） + arr（3, 4）End Sub程序运行后，单击窗体，输入结果为（ ）。A．21B．13C．8D．25

更多“阅读程序:Private Sub Form_ Click()a=0For j=1 To 15a=a＋j Mod 3Next jPrint aEnd Sub程序运行 ”相关问题

  • 第1题：

    阅读程序： Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为

    A．21

    B．13

    C．8

    D．25


    正确答案：B
    解析：每次使用ReDim语句都会使原来数组中的值丢失，也可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3,2)始终都未赋值，arr(3,4)=4+9=13，故最后为13。

  • 第2题：

    下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j\3 Next j Print aEnd Sub

    A．20

    B．10

    C．3

    D．9


    正确答案：D
    解析：本题难点是理解运算符“Mod”和“\”。根据题意，该计算过程为：“(1+2+4+5+7+8+10)+3 =0+0+1+1+2+2+3=9”。

  • 第3题：

    阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

    A．21

    B．13

    C．8

    D．25


    正确答案：A
    解析：本题考查数组与多重循环等多个知识点。本题是综合性题目，难度较大。首先考生应该了解在VisualBasic中，有四种语句可以用来定义数组的，即Dim、ReDim、Static和Public。这四种语句的格式相同，但是使用的范围不一样。Dim，建立局部数组、公用数组或模块级数组，在窗体模块或标准模块中定义数组，不能在过程中定义；ReDim，用在过程中；Static，建立局部数组，用在过程中；Public，定义全局数组，用在标准模块中。程序使用多重循环给一个数组赋值，使用一个循环语句给另一个数组赋值，arr(3，2)=8，arr(3，4)=13，所以最终结果是8+13=21，选项A正确。

  • 第4题：

    以下程序运行后输出的结果是______。

    public class exl7

    {

    public static void main(String args [])

    {

    int a = 0;

    for(int j = 1; j ＜= 20; j++)

    if(j%5 != 0)

    a = a + j;

    System.out.println (a);


    正确答案：160
    160

  • 第5题：

    阅读程序：

    Option Base 1

    Dim arr() As Integer

    Private Sub Form_Click()

    Dim i As Integer，j As Integer

    ReDim arr(3,2)

    For i=1 To 3

    For j=1 To 2

    an(i,j) =i*2+j

    Next

    Next

    ReDim Preserve an(3,4)

    For j=3 To 4

    an(3,j) =j+9

    Next

    Print arr(3,2) +air(3,4)

    End Sub

    程序运行后，单击窗体，输出结果为

    A．21

    B．13

    C．8

    D．25


    正确答案：B
    解析：每次使用ReDim语句都会使原来数组中的值丢失，也可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3,2)始终都未赋值，alt(3,4)=4+9=13，故最后为13。

  • 第6题：

    下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End Sub

    A．20

    B．10

    C．3

    D．9


    正确答案：D
    解析：题中程序的计算过程为：(1+2+4+5+7+8+10)\3=(0+0+1+1+2+2+3)=9。

相关内容