若要使变量x存放数值987654321，则下面空白处应填入（）。 Dim i%, x% x = 0 For i = （） x = x * 10 + i Next MsgBox（x)A．9 To 1B．1 To 9 Step -1C．1 To 9D．9 To 1 Step -1

题目

若要使变量x存放数值987654321，则下面空白处应填入（）。 Dim i%, x% x = 0 For i = （） x = x * 10 + i Next MsgBox（x)

A．9 To 1

B．1 To 9 Step -1

C．1 To 9

D．9 To 1 Step -1

相似考题

1.以下程序的功能是：求出数组x中各相邻两个元素的和依次存放到a数组中，然后输出。请填空。main（）{int x[10],a[9],I;for （i=0;i<10;i++）scanf（“%d”,&x[i]）;for（ i=__;i<10;i++）a[i-1]=x[i]+ x[i-1] ;for（i=0;i<9;i++）printf（“%d”,a[i]）;printf（“\n”）;

2.下面程序段运行后，变量x的值为上 【 】 。Dim x As IntegerDim i As Integerx=Ofor i=0 to 50 step 10X=X+inext i

3.在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。A．12B．15C．17D．18

4.下面程序段的运行结果是【 】。Option Base 1Private Sub swap(a()As InteSer)For I=1 to 10\2t=a(i)a(i)=a(10-1+1)a(10-1+1)=tNext1End SubPrivate Sub Form_Click()Dim x(10)As IntegerFor I=1 to 10x(i)=I*2Next1Swap x()For1=1 to 10Print x (i)Next IEnd Sub

更多“若要使变量x存放数值987654321，则下面空白处应填入（）。 Dim i%, x% x = 0 For i = （） x = x * 10 + i Next MsgBox（x)”相关问题

  • 第1题：

    执行以下程序段 Dim i As Integer,X As Integer x=0 For i=20 To 1 Step -2 x=x+i\5 Next Print x 后,x的值为______。

    A． 16

    B．17

    C．18

    D．19


    正确答案：C
    解析：For循环语句中；Step是表示步长，即循环计数器变化的幅度。本题中i每次减2，故要执行10次循环。而“\”是整除运算符，故当i=20时，x加4，当i等于18、16时，x都加3，当i等于14、12、10时，x都力D 2，当i等于8、6时，x加1，当i等于4、2时，x都加0。所以x=4+3+3+2+2+2+1+1=18。

  • 第2题：

    执行以下程序段后，x的值为( )。 Dim x As Integer,i As Integer x=0 For i=20 To 0 Step -2 x=x+i\5 Next i

    A．16

    B．17

    C．18

    D．19


    正确答案：C

  • 第3题：

    执行下列程序段后，x的值为______。

    Dim x As Integer, i As Integer

    x=0

    For i=20 To 1 Step -2

    x=x +i\5

    Next i


    正确答案：18
    18 解析：本题考查VBA中循环和整除的知识。显然循环会执行10次，所以这个问题主要需要搞清楚每次循环累加的是什么数值。注意到每次累加的是i整除5的结果，i=20时累加一个4，i=18、16时累加两个3,i=14、12、10时累加三个2，i=8、6时累加两个1。

  • 第4题：

    执行下面的程序段，x的值为 Private Sub Commandl_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


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

  • 第5题：

    执行以下程序段后，x的值为______。

    Dim x As Integer,i As Integer

    x＝0

    For i＝20 To 1 Step -2

    x＝x+i\5

    Next i


    正确答案：18
    18 解析：本题考查VBA中循环和整除的知识。显然循环会执行10次，所以这个问题主要需要搞清楚每次循环累加的是什么数值。注意到每次累加的是i整除5的结果，i＝20时累加一个4，i＝18、16时累加两个3，i＝14、12、10时累加三个2，i＝8、6时累加两个1。

  • 第6题：

    在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,x As Integer For i_1 T0 6 If i=1 Then x=i If i＜=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为( )。

    A．9

    B．6

    C．12

    D．15


    正确答案：A

  • 第7题：

    单击一次命令按钮之后，下更程序代码的执行结果为______ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i ＜ 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub

    A．3 4 7 5 6

    B．3 5 7 4 5

    C．1 2 3 4 5

    D．1 2 3 5 7


    正确答案：B

  • 第8题：

    以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Cotmand1_Click() Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End Sub

    A． i Mod 2= 0

    B．x mod 2=0

    C．I mod 2＜＞0

    D．x mod 2＜＞0


    正确答案：A

  • 第9题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．1 3 5 7

    B．2 8 14 53

    C．0 3 21 45

    D．0 5 11 34


    正确答案：C
    解析：ExitFunction的功能是立即终止函数的运行并回到调用函数的地方继续执行其他语句。在Function过程的任何位置都可以设置ExitFunction语句。变量n传值为0、3、6、9，4次调用rel函数过程，由于0和3都小于5，使得i5不成立，被执行了“ExitFunction”语句，函数名将0和3返回。而6和9没有使得i5成立，变量x的计算结果分别为21和45，也被函数名返回。

  • 第10题：

    下列的程序段执行后，x的值为______。Private Sub Command1_Ciick() x =0 for i =1 To 10 for j = i To 10 x=x+1 Next j Next i Print xEnd Sub

    A．50

    B．55

    C．5

    D．105


    正确答案：B
    解析：本题的难点是嵌套循环的循环次数。由于内层的初值为外层循环的循环变量，循环次数为“10+9+8+7+6+5+4+3+2+1=55”。

  • 第11题：

    下列程序段的执行结果为______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 T0 3 For j=0 To 3 x=x+m(i, j) Next Next Print x

    A．3

    B．4

    C．5

    D．6


    正确答案：D
    解析：通过第一个以i为循环变量的循环，令a(1，1)=1，a(2，2)=2，a(3，3)=3。然后通过双重循环，求数组a中所有元素的和并将结果赋值给x，由于在数组a中除了a(1，1)、a(2，2)和a(3，3)外其他元素都为0，所以x=1+2+3=6。

  • 第12题：

    执行下面的程序段，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


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

  • 第13题：

    下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x

    A．3

    B．4

    C．5

    D．6


    正确答案：D
    解析：通过第一个以i为循环变量的循环，令a(1，1)=1，a(2，2)=2，a(3,3)=3。然后通过双重循环，求数组a中所有元素的和并将结果赋值给x，由于在数组a中除了a(1，1)、a(2,2)和a(3,3)外其他元素都为0，所以 x=1+2+3=6。

  • 第14题：

    下面程序段运行后，变量X的值为【 】。

    Dim x AS Integer

    Dim I AS Integer

    x＝0

    for I＝0 to 50 step 10

    X＝X＋I。

    next I

    Print X


    正确答案：150
    150 解析：这是一个简单的单重循环程序，它的功能是：计算10－4－20……“＋50的值。程序运行过程为：为变量x赋初值；循环执行For… Next间的语句，每执行一次，记数变量i的值加上10；直到i的值超过循环终止值50，退出循环。执行完该程序，循环内的语句要执行6次(6次循环对应的记数变量的位为0，10，20， 30，40，50)。

  • 第15题：

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

    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数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返回事件过程后输出交换后的数组全部元素。

  • 第16题：

    执行以下程序段

    Dim x As Integer，i As Integer

    x＝0

    For i=20 To 1 Step-2 x＝x+i\5

    Next i

    后,x的值为

    A．16

    B．17

    C．18

    D．19


    正确答案：C
    解析：本题需要提出的是“\”，该运算符是表示整除(截尾取整)，再者就是需注意该题干中的是循环变化的步长为-2。

  • 第17题：

    执行以下程序段 Dim x As Integer， i As Integer x=0 For i=20 To Step -2 x=x+i\5 Next i 后，x的值为

    A．16

    B．17

    C．18

    D．19


    正确答案：C
    解析：本题考查For循环结构。For循环是最基本的循环语句，一般格式为：For循环变量=初值 To 终值 [Step步长]，步长省略时默认为1。在本题考生应该注意i\5的值，“\”是整除，而不是四舍五入。第1次循环，i=20，i\5=4，第2次循环，i=18，i\5=3而不是4，第3次循环i=16， i\5=3，依次类推，最后结果是18，选项C正确．

  • 第18题：

    在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．0 3 7 5

    B．0 1 2 3

    C．3 2 4 5

    D．0 5 8 3


    正确答案：D
    解析：数组也可以作为函数或者过程的参数，使用方法是直接使用数组名加括号，也可以直接使用数组名，采用sub1(x)和sub1(x())的调用形式都正确。变量i的作用只控制循环次数。

  • 第19题：

    单击一次命令按钮后，下列程序的执行结果为

    Private Sub Command1_Click()

    Dim m As Integer，I As Integer，x(10) As Integer

    For I=0 To 4：x(I)=I+1：Next I

    For I=1 TO 2：Call Prioc(x)：Next I

    For I=0 TO 3：Print x(I)；：Next I

    End Sub

    Private Sub Prioc(a()As Integer)

    Static I As Integer

    Do

    a(I)=a(I)+a(I+1)

    I=I+1

    Loop While I＜2

    End Sub

    A．3 4 7 5

    B．3 5 7 4

    C．1 2 3 4

    D．1 2 3 5


    正确答案：B
    解析：数组也可以作为函数或过程的参数，使用方法是直接使用数组名加括号也可以直接使用数组名，例如Proc(x)和Proc(x())都正确。

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

    运行以下程序后，显示的结果为 ______。 Dim x(5) x(0) =1 For i=1 To 5 x(i)=x(i-1)*i Print x(i) Next i End

    A．1 2 3 4 5

    B．1 2 6 24 120

    C．1 2 6 12 20

    D．1 1 2 3 4


    正确答案：B
    解析：在For循环中，数组元素x(1)的值等于前一个数组元素的值乘以i的值，而x(0)的值是1，所以正确答案是选项B。

  • 第22题：

    下面的程序段执行后，X的结果为______。 X=0 For I=1 to 5 For j=I to 5 X=X+1 Next j Next I Print x

    A． 5

    B．10

    C．15

    D．20


    正确答案：C

  • 第23题：

    下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim K As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x

    A．3

    B．4

    C．5

    D．6


    正确答案：D
    解析：通过第一个以i为循环变量的循环，令a(1，1)=1，a(2,2)=2，a(3,3)=3。然后通过双重循环，求数组a中所有元素的和并将结果赋值给x，由于在数组a中除了a(1,1)、a(2,2)和a(3,3)外其他元素都为0，所以 x=1+2+3=6。

  • 第24题：

    单选题
    设有n个数按从大到小的顺序存放在数组x中，以下能使这n个数在x数组中的顺序变为从小到大的是（　　）。
    A



    for(i=0;i<n/2;i++)
    {
    　t=x[i];
    　x[i]=x[n-i-1];
    　x[n-i-1]=t;
    }

    B



    for(i=0;i<n;i++)
    {
    　t=x[i];
    　x[i]=x[n-i-1];
    　x[n-i-1]=t;
    }

    C



    for(i=0;i<n/2;i++)
    {
    　t=x[i];
    　x[i]=x[n-i+1];
    　x[n-i+1]=t;
    }

    D



    for(i=0;i<n/2;i+=2)
    {
    　t=x[i];
    　x[i]=x[n-i-1];
    　x[n-i-1]=t;
    }


    正确答案： B
    解析：
    本题使用for循环实现数组元素首尾倒置。A项中控制变量上限为n/2，用变量t实现数组下标值i与n-i-1的元素交换，使数组元素首尾倒置，从而实现从小到大排列，A项正确。B项控制变量上限为n，用变量t实现数组下标值i与n-i-1的元素交换，当i=n/2时，已经实现数组首尾倒置，而继续运行至i=n，将再次将新的数组首尾倒置，与原数组相比没有发生变化，依然是从大到小排列，B项错误。C项数组越界，i=0时x[n+1]不存在，C项错误。D项控制变量每次加2，实现数组偶数下标值的元素首尾倒置，奇数下标值元素不变，不能实现整个数组从小到大排列，D项错误。答案选择A选项。

相关内容