下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim J As Integer J=5 Do J=J*2A．3B．10C．9D．7
题目
下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim J As Integer J=5 Do J=J*2
A．3
B．10
C．9
D．7
相似考题
更多“下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim J As Integer J=5 Do J=J*2A．3B．10C．9D．7”相关问题
-
第1题：
下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim f AS Integer J-5 Do J=J*2
A．3
B．10
C．9
D．7
正确答案：B
解析：本题考查简单的程序语句。该过程首先是一个声明语句，声明语句用于命名和定义常量、变量、数组和过程等；赋值语句是为变量指定一个值或表达式；在J=J*2执行后，J的值就从5变成了10。答案为B。 -
第2题：
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j＜＞k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时，输出结果为【 】
正确答案：1 2 311 3 1 21
1 2 311 3 1 21 解析：本题考查考生对数组虚实结合掌握的情况。事件过程声明了一个二维数组，并利用循环产生3*3数组，由题干可知，该数组对角线元素全部为1，其余元素为3。调用fun过程时，采用了虚实结合的方法，然后执行该过程。在过程中访问x数组就是事件过程中的数组，优先输出了x数组的所有元素值，由于在输出时执行了Print x(j,k)，并且输出数据语句后有分号，因此只输出一行。 -
第3题：
运行下面程序代码后，变量J的值为______。 Private Sub Fun () Dim J as Integer J=10 DO J=J+3 Loop While J＜19 End Sub
A．10
B．13
C．19
D．21
正确答案：C
解析：这里是Do循环，是先执行循环体，再判断循环条件的。初始时J=10。执行一次循环体后J=13，是19的，继续循环。执行二次循环体后J=16，还是19的，继续循环。执行三次循环体后J=19，这时不19了，退出循环。 -
第4题：
运行下面程序代码后，变量J的值为______。Private Sub Full () Dim j as Integer J=10 DO J=J+3 Loop While J<19 End Sub
A．10
B．13
C．19
D．21
正确答案：C
解析：这里Do循环，是先执行循环体，再判断循环条件的。初始时J=10。执行一次循环体后J=13，足19的，继续循环。执行二次循环体后J=16，还是19的，继续循环。执行三次循环体后J=19，这时不19了，退出循环。 -
第5题：
阅读程序： 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．21
B．13
C．8
D．25
正确答案：B
解析：每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3，2)始终都未赋值，arr(3，4)=4+9=13，故最后为13。 -
第6题：
阅读下列程序。
Option Base 1
Private Sub Form CliCk()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=1 to 3
For k=1 to 3
Print a (j,k)；
Next k
Next j
End Sub
运行程序时，输出的结果是【 】。
正确答案：1 3 3 3 1 3 3 3 1
1 3 3 3 1 3 3 3 1 解析：本题主要考查考生数组虚实结合掌握的情况。事件过程定义又生成了 3*3的数组，该数组的主对角线元素为1，其余元素为3。接着调用了通用过程。调用通用过程时，首先进行虚实结合，然后执行通用过程。执行过程后，返回调用它的事件过程。本题中调用通用过程时，进行虚实地址结合，在通用过程中访问的a数组就是事件过程中的X的数组。在过程中，按行优先顺序输出了a数组所有的元素的值。由于在输出时只执行了循环体的"printan，k)；”，输出数据后有分号。因此输出一行，输出的结果是：1 3 3 3 1 3 3 3 1。 -
第7题：
阅读下列程序。 Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a + 1 b=b + 1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是
A．234
B．345
C．567
D．356
正确答案：B
解析：在此题中，被调过程是一个函数过程，它有一个形式参数j，在被调过程声明中，定义了一个参数a，初值为0，一个静态变量b。语句a=a+1和b=b+1分别使a和b各增加1，然后返回H的值，因为b是静态变量，所以每次调用同一个参数k时，b会保留前次的数值，使输出结果变化，否则每次输出的结果都将是一样的。根据分析，第一次调用时a=1， b=1，Fun=3；第二次调用：a=1，b=2，Fun=4；第三次调用：a=1，b=3，Fun=5。所以最后的输出结果是345。 -
第8题：
下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim J As Integer J＝5 Do J＝J*2
A．3
B．10
C．9
D．7
正确答案：B
解析：本题考查简单的程序语句。该过程首先是一个声明语句，声明语句用于命名和定义常量、变量、数组和过程等；赋值语句是为变量指定一个值或表达式；在J＝J*2执行后，J的值就从5变成了10。答案为B。 -
第9题：
下面过程运行之后，变量J的值为( )。 Private Sub Fun() Dim J As Integer J=5 Do J=J * 2
A．3
B．10
C．9
D．7
正确答案：B
解析：该过程首先是一个声明语句，声明语句用于命名和定义常量、变量、数组和过程等；赋值语句是为变量指定一个值或表达式；在J=J*2执行后，J的值就从5变成了10。 -
第10题：
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim j As Integer,s As Integer s=1 Do s=s+j j=j+1 Loop Until j＞=5 Print s End Sub 程序运行后，单击命令按钮，在窗体上输出的结果是( )。
A．11
B．1
C．16
D．7
正确答案：A
解析：当发生Command1_Click事件时，定义了一个变量j和一个变量s并给s赋值为1，执行Do…LoopUntil循环，此处需注意循环的结束条件是Until后面的条件为True。第一次执行循环体后，s的值为1，j的值为1，条件“j＞=5”为False，接着循环；第二次执行循环体后，s的值为2，j的值为2，条件“j＞=5”为False，接着循环；第三次执行循环体后，s的值为4，j的值为3，条件“j＞=5”为False，接着循环；第四次执行循环体后，s的值为7，j的值为4，条件“j＞=5”为False，接着循环：第五次执行循环体后，s的值为11，j的值为5，条件“j＞=5”为True，结束循环。输出的s的值为11。 -
第11题：
Dim i, j as integer 表明i和j都是整型变量。
正确答案:错误 -
第12题：
在应用程序中用Private Function fun（x As Integer，y AsInteger）定义了函数fun，调用函数fun的过程中的变量I，J均定义为Integer型，能正确引用函数fun的是（）。 ①fun（I，J） ②Callfun（I，3.65） ③fun（3.14，234） ④fun（245，231.5）
- A、①③
- B、②③④
- C、①②③
- D、①②③④
正确答案:D -
第13题：
在窗体上画—个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是：_______。
A．1 4 7 2 5 8 3 6 9
B．1 2 3 4 5 6 7 8 9
C．1 2 3 4 5 6 7 8 9
D．没有输出
正确答案：B
解析：程序共有两层循环，每执行完一次内循环，则打印换行，由此判断选项A，B可能正确，当外层循环执行第一次时，a(i,j)=(i-1)*3+j相当于a(1,j)=j，由此可判断选项B为正确答案。 -
第14题：
当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
正确答案：C
解析：本题首先定义了一个5行5列的数组，然后通过一个二重For循环给它的每个元素赋初值，赋值规律是左上右下对角线下面的元素值为1，该对角线上元素的值为1，该对角线上面的元素值在前一元素值的基础上增加1。接着通过一个两层For循环按行输出二维数组a，故输出的第三行为“11123”。 -
第15题：
下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integer i = 1 j = 1 do do intsum = intsum + j =j+2 Print j; Loop until j ＞3 i = i+1 Loop until i＞17 Print Print intsumEnd Sub
A．14
B．15
C．14
D．13
正确答案：A
解析：本题的难点是判断循环非正常退出。do ... Loop until循环是先执行后判断。 -
第16题：
以下程序段运行的结果是______。 Dima(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j
A．20
B．7
C．35
D．8
正确答案：C
解析：该程序段的作用是给数组a的每个数组元素赋值True，具体实现的方式为：每次从数组a的第一个元素开始判断，该元素是否为False，如果是，则令此元素为True，然后跳出循环，重新从数组a的第一个元素开始判断：如果当前元素不为False，则判断下一个元素。因此语句j=j+1将执行．1+2+3+4+5+6+7=28次，即j=28。然后再遍历一遍数组a的所有元素，最后结束程序段。所以j最终的值是： j=28+7=35 -
第17题：
阅读程序： 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。 -
第18题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim al(4,4),a2(4,4) Dim i As Integer,j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print al(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是______。
A． 6 6
B．10 5
C．7 21
D．6 12
正确答案：D
解析：本题也是通过一个For循环来给数组赋值。由a1(i,j)=i+j可知，a1(3,3)=3+3=6，而由a2(i,j)=al(i,i)+i+j可知a2(3,3)=a1(3,3)+3+3=6+3+3=12。 -
第19题：
当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
正确答案：A
解析：程序首先通过一个双重循环二维数组x的各个元素赋值，通过计算不难得出二维数组各行的值：第一行：13579第二行：21357第三行：22135第四行：22213第五行：22221第三行的值为22135，因此本题选A。 -
第20题：
阅读程序： 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正确。 -
第21题：
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Function fun(x As Integer，y As Integer) Static m As Integer Static i As Integer i=i+2 i=i+m+1 m=i+x+y fun=m End Function Private Sub Command1_Click() Dim j As Integer，m As Integer,k As Integer j=4：m=1 k=fun(j,m) Print k； k=fun (j，m) Print k End Sub
A．8 18
B．7 17
C．7 19
D．8 19
正确答案：D
解析：当发生Command1的单击事件时，定义了两个变量j和m，并依次赋值为4和1，然后调用fun函数，把i和m按地址传递给x和y，进入fun函数执行。在fun函数中定义了两个静态变量m和i，执行三条赋值语句后i的值为3，m的值为8，通过给函数名赋值把8作为函数值返回并赋值给k，输出k的值为8；再一次调用函数fun，把j和m依次按地址传给x和y，进入fun函数执行，注意，由于m和i是静态变量，此时的值不再是0，而是上一次退出时的值为3和8。执行三条赋值语句后i的值为14，m的值为19，通过给函数名赋值，把19作为函数值返回并赋值给k，输出k的值为19。 -
第22题：
当发生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
正确答案：D
解析：本题首先通过一个两层循环给5行5列的二维数组a的各个元素赋值，通过计算，不难得出二维数组各行的值。第一行的值为：13579：第二行的值为：21357；第三行的值为：22135；第四行的值为：22213；第五行的值为：22221。然后再通过一个双层循环按行输出该数组，所以输出的第三行为：22135。 -
第23题：
语句“Dim i，j As Integer”的含义是“定义两个整型变量i和j”。
正确答案:错误 -
第24题：
判断题Dim i, j as integer 表明i和j都是整型变量。A对
B错
正确答案： 对解析： 暂无解析