下面过程运行之后，则变量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

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第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． 21

B．13

C．8

D．25

正确答案：A
解析：ReDim语句的功能是为动态数组变量重新分配储存空间。而Preserve的功能是当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个For循环是为第二维为1和 2的数组赋值，而第二个For循环是为第二维为3和4的数组赋值。而arr(3,2)=i*2+i=3*2+2=8， arr(3,4)司+9=-4+9=13，故输出结果为8+13=21。

第2题：

面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。

请填空。

Private Sub Form_Click()

Dim i As Integer,j As Integer

j=0

j=43+3

j=j+1

if ______ then

print j

i=i+1

end if

Loop ________

End Sub

正确答案：j Mod 13=1 And j Mod 23=2 And j M0d 43=3 Until i=2或Until i＞=2
j Mod 13=1 And j Mod 23=2 And j M0d 43=3 Until i=2或Until i＞=2

第3题：

有如下程序，运行后输出的是( )。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End Sub

A．5

B．20

C．22

D．显示出错信息

正确答案：D

第4题：

下列程序的运行结果为【】。

A="1"

B="2"

A=Val (@A@+Val (@B@B=Val ("12")

If A＜＞B Then Prink A-B Else Print B-A

(11)阅读下列程序:

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=l to 3

For k=1 to 3

Print a (j.k);

Next k

Next j

End Sub

运行程序时，输出的结果是【】

正确答案：-9
-9 解析：本题考查Val函数的用法。Ⅷ函数是返回字符串内的数字，因此A=Val(A) +Val (B) =1+2=3，而B=Val("12")=12,A-B=-9,B-A=9，而A＞B，所以执行Print A-B，正确答案为-9。

第5题：

在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl1_Click( ) Dim array1 ( 10, 10) As Integer Dim i,j As Integer For i=1 To 3 For j = 2 To 4 Array1 (i, j) =i +j Next j Next i Text1.Text=array1(2.3) + array1(3.4) End Sub程序运行后，单击命令按钮，在文本框中为示的值是( )。

A．12

B．13

C．14

D．15

正确答案：A
解析：经过循环后，数组array1(2，3)=5，array1(3，4)=7，然后将array1(2，3)+array1(3，4)赋给Text1，结果为12。

第6题：

在窗体上绘制一个名称为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

第7题：

下面过程运行之后，则变量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。

第8题：

在窗体上画一个名称为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． 12

B．13

C．14

D．15

正确答案：B
解析：本题中For循环语句就是对数组赋值，而arr(i,j)=i*j。故art(2,2)=2*2=4,alt(3,3)=3*3=9，两者相加为13。

第9题：

阅读下列程序。

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)，并且输出数据语句后有分号，因此只输出一行。

第10题：

在窗体上画一个名称为Text1的文本框和一个名称为Commsnd1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim arrayl(10, 10) As Integer Dim i, j as Integer For i = 1 To 3 For j = 2 To 4 arrayl(i, j) = i+j Next j Next i Text11.. Text=array1(2, 3) + array1(3, 4) End Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。

A．12

B．13

C．14

D．15

正确答案：A
解析：经过循环后，数组array1(2，3)=5，array1(3，4)=7，然后将array1(2，3)+array1(3，4)赋给Text1，可知正确答案为选项A。

下面过程运行之后,则变量J的值为()。Private Sub Fun()Dim J As IntegerJ=5DoJ=J*2A.3B.10C.9D.7

题目

相似问题和答案

更多相关问题

相关内容