更多“下列 Python语句的运行结果为 for i in range (3): print(i, end='') for i in range(2, 5): print(i, end='')”相关问题
  • 第1题:

    (12)下列程序段的运行结果是 Sub sele() Dim n As Integer I=21:n=3 Do While i>n I=i-n Loop Print i End SubA.2 B.4 C.5 D.3


    正确答案:D
    【解析】该程序段的执行是:第1次循环后:i=i-n=18;第2次循环后:i=i-n=15;第3次循环后:i=i-n=12;第4次循环后:i=i-n=9;第5次循环后:i=i-n=6;第6次循环后:i=i-n=3;此时循环条件不成立,退出循环。

  • 第2题:

    阅读下列程序: Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function.Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A)Print s End Sub 程序运行后,单击命令按钮,输出的结果为

    A.80

    B.60

    C.70

    D.15


    正确答案:C
    解析:本题调用一个Function过程func,该过程只有一个参数,类型为整型,返回值也为整型。过程的调用十分简单,关键是要搞清楚过程func的功能。从For-Next循环可以看出,该过程的功能是:1×2+2×3+3×4+…+(n+1)×n。在调用过程时,实参a的值为5,即上式中的n=5。因此返回的值为:1×2+2×3+3×4+4×5+5×6=70。

  • 第3题:

    以下能够正确计算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。

  • 第4题:

    有如下程序: Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3<>0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后,单击窗体,输出结果为

    A.12

    B.30

    C.24

    D.18


    正确答案:C
    解析:纵观题目可以看出,本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2,4,8,10,所以和是24,故本题的正确答案是选项C。

  • 第5题:

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

    A.Private Sub Command1_Click( ) n=5:x=l 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_Cliek( ) 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_Cliek( ) n=5:x:1:i=1 Do x=x*i i=j+1 Loop While i > n Print x End Sub


    正确答案:C
    解析:本题考查DoLoop语句的用法。首先是执行循环体,再确定循环执行的条件,这里满足执行循环的条件应该是i=n,选项A和B的循环条件都是in,少了i=n的一次循环,实际上只执行了n-1次;而选项D则从i>n时才开始执行,不合题意。

  • 第6题:

    有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 <>0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后,单击窗体,输出结果为______。

    A. 12

    B.30

    C.24

    D.18


    正确答案:A
    解析:i Mod2>0,就是i不能被2整除,而i Mod 3=0,就是i要能被3整除。所以本题就是求2~10之间,能被3整除但不能被2整除的数之和。而2~10之间符合条件的数为3和9,它们的和为12。

  • 第7题:

    有如下程序: Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2<>0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后,单击窗体,输出结果为______。

    A.12

    B.30

    C.24

    D.18


    正确答案:A
    解析:本题程序的功能是:将从2到10中既是奇数(i Mod 2>0)又是3的倍数(i Mod 3=0)的数求和,在2到10中满足条件的数字是3,9,其和是12。

  • 第8题:

    下列程序段的运行结果是( )。 Sub sele() Dim n As Integer i=21: n=3 Do While i > n i=i-n Loop Print i End Sub

    A.2

    B.4

    C.5

    D.3


    正确答案:D
    解析:该程序段的执行如下:第1次循环后:i=i-n=18;第2次循环后:i=i-n=15;第3次循环后:i=i-n=12;第4次循环后:i=i-n=9;第5次循环后:i=i-n=6;第6次循环后;i=i-n=3;此时循环条件不成立,退出循环。

  • 第9题:

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

    A.Private Sub Commeadl_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 Whilei<=n Print x End Sub

    D.Private Sub Commsndl_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i>n Print x End Sub


    正确答案:C
    解析:选项A中变量i没有赋初值操作,其一直保持0值,所以始终为0;选项B中循环条件“i>n”错误,计算一次后就退出循环,导致计算结果不正确;选项D的计算过程中,第1次计算时“1>4”的条件不处理,退出Do循环,其结果为1;选项C的计算结果为5!。

  • 第10题:

    下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I); For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub

    A.***** *** *

    B.* *** *****

    C. * *** *****

    D. * *** *****


    正确答案:A

  • 第11题:

    以下能够正确计算1+2+3+…+10的程序是

    A.Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1, Next I Print Sum End Sub

    B.Private sub Command1_Click( ) Sum=0,I=1 Do While l<=10 Sum=Sum+1 I=I+1 Print Sum End Sub

    C.Private Sub command1_click( ) Sum=0:I=1 Do Sum=Sum+1 I=I+1 Loop While I<10 Print Sum End Sub

    D.Private Sub command1_Click( ) Sum=0:I=1 Do Sum=Sum+1 l=I+1 Loop Until I<10 Print Sum End Sub


    正确答案:A
    解析:A选项进行10次循环,分别将1至10累加给Sum,故正确。选项B缺少Loop关键词,否则也是正确的。选项C与D由于受条件“Iclo'’限制,Do循环只能进行一次。

  • 第12题:

    代码for i in range(3):print(i,end=’,’)的执行结果为()。


    正确答案:0,1,2

  • 第13题:

    下列程序运行后,单击窗体,输出结果为( )。 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 Andi Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub

    A. 12

    B. 18

    C. 24

    D. 30


    参考答案:A 

  • 第14题:

    以下能够正确计算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”这一条件,使得控制语句只能循环一次。

  • 第15题:

    对窗体编写如下事件过程: Option Base 1 Private Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12,15,18,20,24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i)>m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键,输出结果为

    A.12 1

    B.20 2

    C.18 5

    D.24 12


    正确答案:A
    解析:此题考查了窗体的KeyPress事件过程;在默认情况下控件的键盘事件优先于窗体的键盘事件,在此题中只有窗体了。窗体的KeyPress事件的格式为:PrivateSubForm._KeyPress(KeyAsciiAsInteger)EndSubKeyAscii=13为回车键,所以按下回车键就执行条件语句,输出结果为121(竖排)。

  • 第16题:

    对窗体编写如下代码: Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) a=Array(237,126,87,48,498) m1=a(1) m2=1 If KeyAscii=13 Then For i=2 To 5 If a(i)>m1 Then m1=a(I) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行后,按回车键,输出结果为______ 。

    A. 48 4

    B.237 1

    C.498 5

    D.498 4


    正确答案:C

  • 第17题:

    下列程序段的运行结果是( )。 Subsele() Dim n As Integer i=21:n=3 Do While i>n i=i-n Loop Print i End Sub

    A.2

    B.4

    C.5

    D.3


    正确答案:D
    解析:该程序段的执行如下:第1次循环后:i=i-n=18;第2次循环后:i=i-n=15:第3次循环后:i=i-n=12;第4次循环后:i=i-n=9第5次循环后:i=i-n=6;第6次循环后:i=i-n=3;此时循环条件不成立,退出循环。

  • 第18题:

    有如下程序: Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。

    A. 25

    B.26

    C.27

    D.28


    正确答案:C
    解析:Option Base 1表示数组的下标是从1开始的。本题中先定义arr=Array(1,3,5,7,9,11,13,15,17,19),即a(1)=1,a(2)=3,a(3)=5,a(4)=7,a(5)=9,a(6)=11,a(7)=13,a(8)=15,a(9)-17,a(10)=19,而在循环语句中就是要求把能被3整除的数加起来,即4(2)+a(5)+a(8)=3+9+15=27。

  • 第19题:

    以下能够正确计算1+2+3+…+10的程序是

    A.Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End Sub

    B.Private Sub Command1_Click() Sum=0,I=1 Do While I<=10 Sum=Sum+I I=I+1 Print Sum End Sub

    C.Private Sub Command1_Click() Sum=0: I=1 Do Sum=Sum+I I=I+1 Loop While I<10 Print Sum End Sub

    D.Private Sub Command1_Click() Sum=0: I=1 Do Sum=Sum+I I=I+1 Loop Until I<10 Print Sum End Sub


    正确答案:A
    解析:本题考查For循环与 Do循环控制语句。A选项进行10次循环,分别将1之10累加给Sum,故正确。选项B缺少Loop关键词,否则也是正确的。选项C与D由于受条件“lclo”限制,Do循环只能进行一次。

  • 第20题:

    有程序如下: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next 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 subP a() For i=1 To 4 Print a(i) Next i End Sub运行上面程序,单击命令按钮,输出结果为______ 。

    A. 2 4 6 8

    B.5 2 2 2

    C.10 12 14 16

    D.出错


    正确答案:A

  • 第21题:

    阅读下列程序: Private Sub Form Click() Dim i As Integer, sum As Integer For i = 2 To 10 If i Mod 2 <> 0 Then Print i; Else sum = sum + i End If Next i Print sum End Sub 程序运行后,单击窗体,在窗体上的输出结果是

    A.3 5 7 9 30

    B.1 3 5 7 9

    C.2 4 6 8 20

    D.11 15 17 19 20


    正确答案:A
    解析:本题For循环的循环变量初值为2,终值为10,步长为1。在循环体内,判断循环变量的值是否为偶数,如果是,则将该值累加给变量sum,否则输出循环变量的值。不难看出,运行该程序后,在循环体内输出的是奇数,而累加的是偶数。在循环体外,输出偶数的累加之和。

  • 第22题:

    阅读程序: Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next 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 subP a() For i=1 To 4 Print a(i) Next i End Sub运行以上程序,单击命令按钮,输出结果为______ 。

    A.2 4 6 8

    B.5 6 7 8

    C.10 12 14 16

    D.出错


    正确答案:A

  • 第23题:

    窗体上没有任何控件,编写下列程序: Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(5, 2, 7, 6, 9) x = a(1) y = 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i)>m1 Then x = a (i) y= i End If Next i End If Print x; y End Sub 执行程序后,按下回车键后输出的结果为

    A.5 1

    B.9 5

    C.2 2

    D.7 3


    正确答案:B
    解析:按下回车键后,KeyAscii的值为13。程序的功能是:变量x记录数组中最大的值,变量v记录最大值在数组中的位置。现假定最大值在第一个数组元素中,然后逐个进行比较,如果某个数大于x中的数,就将该数重新赋值给x,同时也将下标值赋值给y,最后输出9和5。

  • 第24题:

    填空题
    代码for i in range(3):print(i,end=’,’)的执行结果为()。

    正确答案: 0,1,2
    解析: 暂无解析