阅读程序：Private Sub Form. Click（ ）a=0For j=1 To 15a=a+j Mod 3Next jPrint 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 a
End Sub
程序运行后，单击窗体，输出结果是（ ）。
A.105
B.1
C.120
D.15
相似考题
更多“阅读程序: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。