执行下面的程序段，x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End SubA．5B．6C．7D．8

题目

执行下面的程序段，x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub

A．5

B．6

C．7

D．8

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

相似问题和答案

第1题：

以下能够正确计算n!的程序是（）。

A．Private Sub Command1_Click（）

n=5: x=1

x=x * I

I=I + 1

Loop While I < n

Print x

End Sub

B．Private Sub Command1_Click（）

n=5: x=1: I=1

x=x * I

I=I + 1

Loop While I < n

Print x

End Sub

C．Private Sub Command1_Click（）

n=5: x=1: I=1

x=x * I

I=I + 1

Loop While I <=n

Print x

End Sub

D．Private Sub Command1_Click（）

n=5: x=1: I=1

x=x * I

I=I + 1

Loop While I > n

Print x

End Sub

正确答案：C

第2题：

阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。

正确答案：2 4 6 8
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。

第3题：

下面程序段的运行结果是【】。

Option Base 1

Private Sub swap(a()As InteSer)

For I=1 to 10\2

t=a(i)

a(i)=a(10-1+1)

a(10-1+1)=t

Next1

End Sub

Private Sub Form_Click()

Dim x(10)As Integer

For I=1 to 10

x(i)=I*2

Next1

Swap x()

For1=1 to 10

Print x (i)

Next I

End Sub

正确答案：20 18 16 14 12 10 8 6 4 2
20 18 16 14 12 10 8 6 4 2 解析：在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返同事件过程后输出交换后的数组全部元素。

第4题：

以下能够正确计算n!的程序是

A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End Sub

B．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub

C．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub

D．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub

正确答案：C
解析：n!=1×2×3×…×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i=n。

第5题：

下面程序段的运行结果是【】。

Option Base 1

Private Sub Swap (a() As Integ

For I=1 to 10\2

t=a(I)

a(I)=a(10-I+1)

a(10-I+1)=t

Next I

End Sub

Private Sub Form_Click()

Dim x(10) As Integer

For I=1 to 10

x(I)=I*2

Next I

Swap x()

For I=1 to 10

Print x(I)

Next I

End Sub

正确答案：20 18 16 14 12 10 8 6 4 2
20 18 16 14 12 10 8 6 4 2 解析：本题考查考生数组虚实结合的问题，在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是 2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返回事件过程后输出交换后的数组全部元素。

第6题：

执行下面的程序段，x的值为。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8

正确答案：B
【解析】本题考查For循环控制语句，做好此题的关键是掌握For循环语句的执行过程。For循环首先把初值赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就停止执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把循环变量+步长的值赋给循环变量，重复上述过程。据此如果For循环的终值等于初值，For循环也会执行一次循环。本题中当For执行第五次循环后，i的值为5，此时系统还会返回，令i=5+1并判断此时i值是否大于5，大于5，故退出循环体。所以此时的i值为6，故选B。本题一般考试很容易选择A，值得关注。

第7题：

下列程序的执行后,X的结果为()。 Private Sub Command1_Click( ) x=0 For i=1 to 3 x=1 For j=1 to 4 x=2 For k=1 to 5 x = x ＋ 2 Next k Next j Next i Print x End Sub

A. 12

B. 24

C. 36

D. 48

参考答案：A

第8题：

执行下面的程序段，x的值为【】。

Private Sub Command1_Click()

For i=1 To 9

a=a+i

x=Val(i)

MsgBox x

End Sub

正确答案：10
10 解析：在程序中For…Next语句之后并没有对i的值改变，此时i为10，故运行后结果为10。

第9题：

以下能够正确计算n!的程序是

A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

B．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End Sub

C．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End Sub

D．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub

正确答案：C
解析：A中i一开始末被赋值，默认为0；B项中由于“in”的条件使得Do循环比应有循环次数少循环一次；选项D由于“i＞n”这一条件，使得控制语句只能循环一次。

第10题：

有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为

A．120

B．60

C．80

D．100

正确答案：A
解析：本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。

执行下面的程序段,x的值为 Private Sub Command1_Click() For i=1 To 5a=a＋i Next i x=Val(i) Ms

题目

相似问题和答案

更多相关问题

相关内容