设X为整数，[X]补=1，X1X2X3X4，满足（）时，X＞-8成立。A、X1=0，X2～X4至少有一个为1B、X1=0，X2～X4任意C、X1=1，X2～X4至少有一个为1D、X1=1，X2～X4

题目

设X为整数，[X]补=1，X1X2X3X4，满足（）时，X＞-8成立。

  • A、X1=0，X2～X4至少有一个为1
  • B、X1=0，X2～X4任意
  • C、X1=1，X2～X4至少有一个为1
  • D、X1=1，X2～X4
相似考题

1.单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click（）BT 4End SubPrivate Sub BT（x As Integer）x=x * 2 + 1If x < 6 ThenCall BT（x）End Ifx=x * 2Print x;End Sub（ ）。A．15B．16C．17D．18

2.在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function

3.在窗体中添加一个名称为Cmd的命令按钮，然后编写如下程序： Public x As integer Private Sub Cmd_Click() x=10 Call add1 Call add2 MsgBox x End Sub Private Sub add1 ( ) x=x+20 End Sub Private Sub add2 ( ) Dim x As integer x=x+40 End Snb 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。A．10B．60C．30D．70

4.以下能够正确计算n!的程序是（ ）。A．Private Sub Command1_Click（）n=5: x=1Dox=x * II=I + 1Loop While I < nPrint xEnd SubB．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I < nPrint xEnd SubC．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I <=nPrint xEnd SubD．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I > nPrint xEnd Sub

更多“设X为整数，[X]补=1，X<sub>1</sub>X<sub>”相关问题

  • 第1题：

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

  • 第2题：

    在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

    A．10

    B．30

    C．40

    D．50


    正确答案：B
    解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。

  • 第3题：

    有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

    A．0 0

    B． 1 1

    C．2 2

    D．1 2


    正确答案：B
    解析：考查考生对调用通用过程的掌握情况。
      [解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
      [错解分析] 调用通用过程可以返回多个参数值。
      [考点链接] 过程调用、参数传递。

  • 第4题：

    以下能够正确计算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时才开始执行，不合题意。

  • 第5题：

    单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT 4 End Sub Private Sub BT(x As Integer) x=x*2+1 If x＜6 Then Call BT(x) End If x=x*2 Print x； End Sub

    A．15

    B．16

    C．17

    D．18


    正确答案：D
    解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用BT过程，把实参4传递给BT过程中的形参x，由x=x*2+1语句推出x=9，此时不满足BT过程中判断语句的判断条件，执行x=x*2；Print x；语句。由x=x*2语句得到x值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。

  • 第6题：

    以下程序运行后的输出结果是 ______。 Sub add(x，y) x=x+y Print "x="；x；"，y="；y End Sub Private Sub Command1_Click() x=1 y=1 Call add((x)，(y)) Print"x="; x；"，y="；y End Sub

    A．x=1，y=1 x=2，y=2

    B．x=2，y=1 x=1，y=1

    C．x=1，y＝1 x=1，y=1

    D．x=2，y=1 x=2，y=1


    正确答案：B
    解析：在过程调用语句中，一般不特别指明，参数是按传地址方式传递的。此题两个实际参数都用圆括号括起，表示为传值方式，形参的变化不影响实参，因此，虽然形参x变为2，在过程add中输出2，但返回事件过程后，输出x的值不受影响，为1。

  • 第7题：

    假定有如下的Sub过程：Sub Sub1 (x As Single, y As Single) t=x x = t/y y = t Mod yEnd Sub 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 5 b = 4 Sub1 a, b Print a; b End Sub 程序运行后，单击命令按钮，输出结果为______。

    A．5 4

    B．1 1

    C．1.2 5.4

    D．1.25 1


    正确答案：D
    解析：本题重点是在子过程的调用过程中，虚实参数的传送问题，变量a和b按址传送，返回子过程的x和y值。

  • 第8题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private Sub

    A．10

    B．30

    C．40

    D．50


    正确答案：B
    解析： 本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为10，然后依次调用s1和s2；在s1中对x自加了20；在s2中用Dim定义了一个局部变量 x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为30。

  • 第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题：

    在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub sl() x=x+20 End Sub Private Sub s2() Dim x As Integer x=x+20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。

    A．10

    B．30

    C．40

    D．50


    正确答案：B
    解析： 本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为10，然后依次调用s1和s2；在s1中对x自加了20；在s2中用Dim定义了一个局部变量x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为30。

  • 第11题：

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

    A．Private Sub Commandl_C1ick()

    B．hiVate Sub Commandl_C1ick() n＝5:x＝1 n＝5:x=1:i＝1 DO DO X＝x*1 X＝X*1 i＝i＋1 i＝i＋1 Loop while i＜n Loop While＜n Print x Ptinte x End Sub End Sub

    C．Private Sub Commandl_Click ()

    D．Pdvate Sub Commandl C1ick() n＝5:X＝1:i＝1 n＝5＝:x＝1:i＝1 DO DO X＝X*1 X＝X*1 i＝i＋1 i＝i＋1 Loop While i＞n Print x Print x End Sub End Sub


    正确答案：C
    解析：本题考查DoWhile语句的用法。首先我们知道n!＝1×2×3×……×(n-1)×n，由于是累乘，因此x和i的初值都必须为l;其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i＝n。选项A和B的循环条件都是in，少了i＝n的一次循环，实际上只执行了n-1次；而选项D则从i>n时才开始执行，不合题意；同时，选项B没有指定i的初值，系统会默认i；0，这也不合题意。本题正确答案为选项C。

  • 第12题：

    单击命令按钮时，下列程序的执行结果是 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub

    A．15

    B．16

    C．17

    D．18


    正确答案：D
    解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用BT过程，把实参4传递给BT过程中的形参x，由x=x*2+1语句推出x=9，此时不满足BT过程体中判断语句的判断条件，执行x=x*2；Printx；语句。由x=x*2语句得到x值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。

  • 第13题：

    Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。

    A．6, 8

    B．10, 10

    C．10, 8

    D．6, 10


    正确答案：D
    解析：事件发生时，首先定义两个变量X，Y并给他们赋值6和8。然后调用过程ABC，在过程ABC中有两个形参X，Y。X是按值传递，Y是按地址传递，所以在ABC过程中，对形参x的修改并不影响对应的实参x，但对形参Y的修改将影响到相应的实参Y。所以过程调用后，输出的X、Y值分别为6、100。

  • 第14题：

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

  • 第15题：

    单击窗口时，下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x＜6 Then call Text(x) End if x=x*2+1 Print x； End Sub

    A．27 55

    B．11 35

    C．22 45

    D．24 51


    正确答案：A
    解析：难点在于Sub过程Text中嵌套了一个Text过程。根据Text的描述，当把1以传地址的方式传送给x时，x的值为4，此时x的值满足If条件，所以再次执行1次Text过程。第2次执行时，x的值变为13，此时跳过If语句，执行x=x*2+1语句，x值变为27，随后用Print方法输出。注意，到此时，整个Text过程仅仅执行完了callText(x)这一语句块，结束这个语句块，系统接着执行x=x*2+1语句，由于x参数的传地址的方式传送，此时在执行该句前，x的值为27，执行完之后x的值为55，再将这一值输出。窗体上显示27与55。

  • 第16题：

    执行下面程序，第一行输出结果是【 】，第二行输出结果是47。

    Option Explicit

    Private Sub Form_Click( )

    Dim A As Integer

    A=2

    Call Sub1 (A) End Sub

    Private Sub1 (x As Integer)

    x=x*2+1

    If x＜10 Then

    Call Sub1 (x)

    End If

    x=x*2+1

    Print x

    End Sub


    正确答案：23
    23 解析：递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。当x=2时调用了第1次，当 x=5时调用了第2次，当x=11时不再调用，退出之前分别按x=23和x=47输出。注意：通用过程的调用和通用过程中的参数调用。

  • 第17题：

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

    A．Privas 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
    解析：本题主要考查Do循环控制结构。只有C项符合题意。A中i一开始未被赋值，默认为0；B项中由于“in”的条件使得 Do循环比应有循环次数少循环一次；选项D由于“i＞n”这一条件，使得控制语句只能循环一次。

  • 第18题：

    Private Sub Form_Activate()

    Forj=1 to 3

    x=3

    ForI=1 to 2

    x=x+6

    NextI

    Nextj

    Print x

    End Sub

    程序运行后，窗体上显示的结果为上______。


    正确答案：15
    15

  • 第19题：

    有如下自定义过程： Sub test(x As Integer) x =X *2+1 If x＜6 Then Call test(x) End If x=x* 2 + 1 Print x； End Sub调用该过程的事件过程如下：Private Sub Command1_Click() test 2End Sub则该段程序的执行结果是______ 。

    A．12

    B．23 47

    C．23

    D．5 10


    正确答案：B

  • 第20题：

    编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

    A．6

    B．12

    C．24

    D．47


    正确答案：D
    解析：在主过程中，数组x1的下标最大值为3，赋初值分别为2、3、4，通过实参和形参的调用，数组x1的值传给了数组n。在子过程中，数组n的下标最大值被重新定义为5，下标3～5的值计算的结果分别为6、12、24。在主过程中，将数组x1的各值相加得：2+3+6+12+24=47。

  • 第21题：

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

    A．Pfivate Sub Commgld1_LClick() n=5:x=1 Do x=x*1 i=i+1 Loop Whilei＜n

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

    C．Pfivate Sub Command1_ C1ick() n=5:x=1:i=1 Do X=X*1 i=i+1 Loop While i＜=n

    D．Private Sub Command1_C1ick() n=5:x=1:i=1 Do X=X*1 i=i+1 Loop While i＞n Print x End Sub


    正确答案：C
    解析：本题考查Do While语句的用法。首先我们知道n!=1×2×3×……×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是 While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是 i=n。选项A和B的循环条件都是in，少了 i=n的一次循环，实际上只执行了n-1次：而选项D则从i＞n时才开始执行，不合题意；同时，选项B没有指定i的初值，系统会默认i =0，这也不合题意。本题正确答案为选项C。

  • 第22题：

    运行下列程序：

    Dim x, y

    Private Sub Form_Click( )

    x = 1: y = 1: z = 1

    fun1 (1)

    Print x; y; z

    End Sub

    Private Sub fun1(a)

    x = a + x: y = a + x: z = a + y

    End Sub

    单击窗体后，则输出结果是( )。

    A.1 1 1

    B.2 3 1

    C.2 3 4

    D.2 2 1


    正确答案：B

  • 第23题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，y As Integer x = 41： y = 54 Call sub1(x，y) x = x + 1 Print x； y End Sub Private Sub sub1(n As Integer， ByVal m As Integer) n=n Mod 10 m=m\10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．41 54

    B．2 54

    C．1 3

    D．42 3


    正确答案：B
    解析：在Function((参数表列))过程中，“参数表列”指明了调用时传送给过程的参数类型和个数，每个参数的格式为：[ByVal][ByRef]变量名[()][As数据类型]其中系统默认为ByRef，它指明参数传送是以传地址进行的，实际参数变量的值会由于过程中对形参的操作而改变。而ByVal则不同，参数传送，是以传值传送的，实际参数变量的值不再由于过程中对形参的操作而改变，本题目中过程sub1的参数n是传地址引用，而参数m是传值引用，因此x的值改变，x=21\10+1=2；而y值不改变，仍为54。答案为选项B。

  • 第24题：

    有如下Sub过程：

    Sub ind(a As Integer)

    Static x As Integer

    x= x + a

    Print x：

    End Sub

    以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为【 】。

    Private Sub Command1_Click()

    Ind 2

    End Sub


    正确答案：6
    6

相关内容