下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub

题目

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

Private Sub f(k，s)

s=1

For j=1 To k

s=s*j

End Sub

Private Sub Command1_Click()

Sum=0

For i=1 To 3

Call f(i，s)

Sum=Sum+s

Print Sum

End Sub

相似考题

1.（ 30 ）下面程序的输出结果是Private Sub Command1_Click()ch$= ” ABCDEF ”proc chPrint chEnd SubPrivate Sub proc(ch As String)S= ””For k=Len(ch) To 1 Step-1s=s&Mid(ch,k,1)Next kch=sEnd SubA ） ABCDEFB ） FEDCBAC ） AD ） F

2.（ 23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮后，其输出结果是A ） 4321B ） 1234C ） 34D ） 12

3.执行下列程序段后输出的结果是( )。s = 1For i = 1 To 3For j = 0 To i-1s = s + s * jNext j? s;Next IA、 1 2B、 2 1C、 2 2 12D、 1 2 12

4.（30）在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim aa=Array(1, 2, 3, 4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub运行上面的程序，其输出结果是（）。A）1234B）12C）34D）4321

更多“下列程序运行后的输出结果是______。Private Sub f(k,s)s=1For j=1 To ks=s*jNextEnd SubPrivate ”相关问题

第1题：

运行下列程序，单击窗体后输出的结果是( )。
Private Sub Form_Click()
Dim a
Dim s As Integer, i As Integer
a = Array(1, 2, 3, 4, 5, 6)
s = 1
For i = 5 To 1 Step -2
s = s * a(i)
Next i
Print s
End Sub
A、 15
B、 48
C、 120
D、 720

正确答案：B
第2题：

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120

正确答案：B
【解析】使用Array函数为数组变量赋值，数组变量不能是具体的数据类型，只能是变体(Variant)类型，使用Array函数给数组变量赋值的3种形式是：①显式定义为Variant变量（例如，Dim数组变量名As Variant）；②在定义时不指明类型（例如，Dim数组变量名）；③不定义而直接使用。
第3题：

下面运行程序后,单击命令按钮,输出的结果是【】。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=t  a(i)
Next
Fun=t
End Function

正确答案：S=120
S=120 解析：程序首先调用循环语句为数组a、b赋值,其中a(i)=i;b(i)=i,且数组a的上下界分别为1和5,接着将数组a作为参数调用Fun过程,在Fun过程中,定义了两个变量t及i,i作为循环语句For的变量,它的初始值和终值分别为数组的上下界,循环体为t = t*a(i),即将a(i)的值乘以t,然后再赋给t,当循环结束后,程序返回的就是数组a中各元素的积,输出结果为:s=120。
第4题：

设有如下程序： Private Sub Form. Click（） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（）。
A.32
B.33
C.34
D.35

正确答案：B
B。【解析】本题考查For循环，当f=1时，i=1，计算f=f*i=1*1=1；S=S十f=0十1=1，循环继续，当i=2时，f=f*i=1*2=2，S=s+f=1+2=3，循环继续，当i=3时，f=f*i=2*3=6，S=s+f=3+6=9，循环继凄，当i=4时，f=f*i=6*4=24，S=s+f=9+24=33，所以最后输出结果为33，答案选择B。
第5题：

有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是
A．0 1
B．30 30
C．4 30
D．2 12

正确答案：D
解析：Untils＞=10表示当s大于等于10时，终止循环，根据题意，循环2次，故N的值为2，可以判断答案为D，另外也可以计算出s的值为12，但由于本题为选择题，可以不计算。直接得到正确答案。
第6题：

下面运行程序后，单击命令按钮，输出出的结果是【】。
Private Sub Command1_Click( )
Dim a% (1 To 5) ,i%, s
For i = 1 To 5
a(i) =i
Next
s = Fun(a)
Print"s="; s;
End Sub
Function Fun(a() As Integer)
Dim t, i%
t=1
For i = LBound(A0To UBound(a)
t=t * a(i)
Next
Fun =t
End Function

正确答案：s1=24 s2=360
s1=24 s2=360 解析：程序首先调用循环语句为数组a、b赋值，其中a(i)=i；b(i)=i，且数组。的上下界分别为1和5，接着将数组。作为参数调用Fun过程，在Fun过程中，定义了两个变量t及i，i作为循环语句For的变量，它的初始值和终值分别为数组的上下界，循环体为t =t*a(i)，即将a(i)的值乘以t，然后再赋给t，当循环结束后，程序返回的就是数组。中的各元素的积，输出结果为：s=120。注意：函数调用和参数传递。
第7题：

在窗体上画一个名为Command1的命令按钮，然后编写下列程序：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(1,2,3,4,5)
j=1
For i=5 To 1 Step-1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A．54321
B．123
C．12345
D．345

正确答案：C
解析：本题考查使用Array函数给数组元素赋值的应用。分析程序可知，通过For循环将数组中的各个元素通过一定的公式进行运算。运算过程为：当i=5时，Art(5)=5，S=5；当i=4时，Art(4)=4，S=45；当i=3时，Arr(3)=3，S=345；当i=2时，Arr(2)=2，S=2345；当i=1时，arr(1)=1，S=12345；当i=0时，条件不满足退出循环，执行循环后面的语句PrintS。因此，最后输出的值为“12345"。
第8题：

在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程 Option Base 1 Private Sub，Command1 Click（） Dim a(5，5)ks Integer For i=1 To j For j=1 To 5 a(i，j)=(i+j)*5＼10 Next j Next i S=0 For i=1 To j s=s+a(i，i) Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是（）。
A.15
B.13
C.11
D.9

正确答案：A
A。【解析】程序首先是利用两层For循环给数组进行赋值，其规律是：第一行，a(1，1)=1，a(1，2)=1，a(1，3)=2，a(1，4)=2，a(1，5)=3；第二行，a(2，1)=1，a(2，2)=2，a(2，3)=2，a(2，4)=3，a(2，5)=3；第三行，a(3，1)=2，a(3，2)=2，a(3，3)=3，a(3，4)=3，a(3，5)=4；……第五行，a(5，1)=3，a(5，2)=3，a(5，3)=4，a(5，4)=4，a(5，5)=5。可知正对角线上的是1、2、3、4、5。题中的S就是计算正对角线上的和。故应选择A。
第9题：

设有如下程序：
Private Sub Form. Click（）
Dim s As Long，f As Long
Dim n As Integer，i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是（）。
A.32
B.33
C.34
D.35

正确答案：B
B。【解析】本题考查For循环，当f=1时，i=1，计算f=f*i=1*1=1；S=S十f=0十1=1，循环继续，当i=2时，f=f*i=1*2=2，S=s+f=1+2=3，循环继续，当i=3时，f=f*i=2*3=6，S=s+f=3+6=9，循环继凄，当i=4时，f=f*i=6*4=24，S=s+f=9+24=33，所以最后输出结果为33，答案选择B。
第10题：

运行下列程序：
Private Sub form_Click( )
For i = 1 To 2
x = 1
For j = 1 To 3
x = 5
For k = 1 To 4
x = x + 2
Next k
Next j
Next i
Print x
End Sub
单击窗体后，则输出结果是( )。
A.5
B.13
C.25
D.48

正确答案：B
第11题：

在窗体上画一个命令按钮，名称为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。
第12题：

下面程序运行后，单击命令按钮，输出的结果是______。
Private Sub Command1_Click()
Dim a%(1 To 5)，i%，s
For i=1 To 5
a(i) =i
Next
s=Fun(A)Print "s="；s；
End Sub
Function Fun(a() As Integer)
Dim t，i%
t=1
For i=LBound(A)To UBound(A)t=t*a(i)
Next
Fun=t
End Function

正确答案：120
120 解析：程序首先调用循环语句为数组a、b赋值，其中a(i)=i，且数组a的上下界分别为1和5，接着将数组。作为参数调用Fun过程，在Fun过程中，定义了两个变量t及i，i作为循环语句For的变量，它的初始值和终值分别为数组的上下界，循环体为t=t*a(i)，即将a(i)的值乘以t，然后再赋给t，当循环结束后，程序返回的就是数组a中的各元素的积，故输出结果为：s=120。
第13题：

设有如下程序：
Private Sub Form_C1ick()
Dim s As Long，f As Long
Dim n As Integer，i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是
A．32
B．33
C．34 0)35

正确答案：B
解析：i=1时，f=f*i=1*1=1，s=s+f=0+1=1．i=2时，f=f*i=1*2=2，s=s+f=1+2=3，i=3时，f=f*i=2*3=6，s=s+f=3+6=9，i=4时，f=f*i=6*4=24，s=s+f=9+24=33，因此本题答案为B)。
第14题：

（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1,2,3,4,5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果是 A.54321 B.123 C.12345 D.345

正确答案：C
【解析】本题考查使用Array函数给数组元素赋值的应用。分析程序可知，通过For循环将数组中的各个元素通过一定的公式进行运算。运算过程为：当i=5时，Arr(5)=5，S=5；当i=4时，Arr(4)=4，S=45；当i=3时，Arr(3)=3，S=345；当i=2时，Arr(2)=2，S=2345；当i=1时，Arr(1)=1，S=12345；当i=0时，条件不满足退出循环，执行循环后面的语句Print S。因此，最后输出的值为“12345”。
第15题：

以下程序的输出结果是【】。include defineN 5 int fun(int *s,int a,int n) {int j; *s=

以下程序的输出结果是【】。
include ＜stdio.h＞
define N 5
int fun(int *s,int a,int n)
{ int j;
*s=a j=n;
while(a!=s[j]) j-;
return j;
main()
{ int s[N+1]; int k:
for(k=1 ;k＜=N;k++) s[k]=k+1:
print f("%d\n",fun(s,4,N));
}

正确答案：3
3 解析：本题主函数中定义了一个一维数组s，并通过for循环给s[1]到s[5]的元素分别赋值为2、3、4、5、6。然后调用　fun函数，使指针变量s与数组s共用同一存储单元。在函数fun中，a=4，n=5，所以while的条件表达式首先判断的是　4!=s[5]是否成立，由于s[5]=6，所以成立，执行j-；接着判断4!=s[4]是否成立，由于s[4]=5，所以成立，执行j-；然后判断4!=s[3]是否成立，由于s[3]=4，所以条件表达式不成立，返回j的值3。
第16题：

窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是
A．10
B．14
C．15
D．120

正确答案：B
解析：考查考生对数组定义的掌握程度。
[解题要点] Array函数在默认的情况下，数组的下标从O开始，所以s=a(1)+a(2)+a(3)a(4)=2+3+4+5=14
[考点链接] 数组的定义、赋值和应用。
第17题：

阅读下列程序。
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。
第18题：

下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

正确答案：C
第19题：

下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End Sub
A．0
B．3
C．6
D．9

正确答案：D
解析：本题重点是在于过程的调用过程中，虚实参数的传送问题，变量s按址传送。子过程m求n! sum的计算过程为“1!+2!+3!=1+2+6=9”。
第20题：

下面程序运行后的结果是( )。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A．6
B．72
C．144
D．432

正确答案：D
第21题：

在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码： Option Base l Private Sub Command1 Click（） Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print S End Sub 程序运行后，单击命令按钮，其输出结果是（）。
A.4321
B.1234
C.34
D.12

正确答案：B
B。【解析】OptionBase1语句的作用是限定数组下标的默认下限值为1；Array(arglist)函数用于将arglist参数中一组用逗号号隔开的值列转换成一个数组并赋值给某数组变量，UBound函数用于返回数组某一维的最大下标(即上界)，LBound函数用于返回数组某一维的最小下标(即下界)。本题源程序通过For循环将1、2、3、4按顺序组成一个4位数，即1234。
第22题：

运行下列程序：
Private Sub form_Click( )
x = 8: y = 2
Call fun1((x), y)
Print x, y
End Sub
Private Sub fun1(x, y)
s = x
x = s / y
y = s Mod y
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.4 2
B.8 2
C.8 0
D.2 4

正确答案：C
第23题：

有如下程序： Private Sub Command1_Click( ) a$="A WORKER IS OVER THERE" x=Len(a ＄) For i=1 To x-1 b$=Mid $(a $，i，2) If b $="ER"Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是
A．1
B．2
C．3
D．4

正确答案：C
解析：Mid(a＄，i，2)表示从字符串a＄的第i个字符开始向后截取2个字符。由于“AWORKERISOVERTHERE'’中有三个“ER”，故s=s+1将被执行3次，即s最后的值为3。

下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub

题目

相似考题

更多“下列程序运行后的输出结果是______。Private Sub f(k,s)s=1For j=1 To ks=s*jNextEnd SubPrivate ”相关问题

相关内容