itgle.com

（ 33 ）设有如下程序：Private Sub Commandl Click （）Dim sum As Double, x As Doublesum ＝ 0n ＝ 0For i=l To 5x ＝ n ／ in ＝ n ＋ 1sum 二 sum ＋ xNext iEnd Sub该程序通过 For 循环来计算一个表达式的值，这个表达式是A ） 1+1/2+2/3+3/4+4/5B ） 1+1/2+1/3+1/4+1/5C ） 1/2+2/3+3/4+4/5D ） 1/2+1/3+1/4+1/5

题目

（ 33 ）设有如下程序：

Private Sub Commandl Click （）

Dim sum As Double, x As Double

sum ＝ 0

n ＝ 0

For i=l To 5

x ＝ n ／ i

n ＝ n ＋ 1

sum 二 sum ＋ x

Next i

End Sub

该程序通过 For 循环来计算一个表达式的值，这个表达式是

A ） 1+1/2+2/3+3/4+4/5

B ） 1+1/2+1/3+1/4+1/5

C ） 1/2+2/3+3/4+4/5

D ） 1/2+1/3+1/4+1/5

相似考题

1.设有如下程序：Private Sub Command1 Click( ) Dim sum AS Double，x As Double sum＝0 n＝0 For i＝1 To 5 x＝n/i n＝n+1 sum＝sum+x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是______。A．1+1/2+2/3+3/4+4/5B． 1+1/2+1/3+1/4+1/5C． 1/2+2/3+3/4+4/5D． 1/2+1/3+1/4+1/5

2.设有如下程序： Private Sub Command1_ Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 3 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算sum的值，sum值的精确结果是( )。A．1+1/2+2/3B．1+1/2+1/3+1C．1/2+2/3D．1/2+1/3

3.设有如下程序： Private Sub Command1_Click() Dim sum As Double，x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 ______。A．1+1/2+2/3/4+4/5B．1+1/2+2/3+3/4C．1/2+2/3+3/4+4/5D．1+1/2+1/3+1/4+1/5

4.设有如下程序 Private Sub Command1_Click( ． Dim sum As Double, x As Double sum = 0 n = 0 For i=1 To 5 x = n / i n = n + 1 sum = sum + x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是A.1+1/2+2/3+3/4+4/5B.1+1/2+1/3+1/4+1/5C.1/2+2/3+3/4+4/5D.1/2+1/3+1/4+1/5

更多“( 33 )设有如下程序:Private Sub Commandl Click ()Dim sum As Double, x As Doublesum = 0n = 0 ”相关问题

  • 第1题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(" ") For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是

    A．3

    B．4

    C．5

    D．6


    正确答案：D
    解析：本题考查For循环控制语句的嵌套。当输入3时，For i执行三次，对应的Forj循环执行一次，二次、三次，Forj每执行一次，x都加1，故最终结果为6，选D。

  • 第2题：

    设有如下程序： Private Sub Command1_Click() Dim Sum As Double， x As Double sum=0 n = 0 For i= 1 To 5 x = n / i n = n + 1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是

    A．1+1/2+2/3+3/4+4/5

    B．1+1/2+2/3+3/4

    C．1/2+2/3+3/4+4/5

    D．1+1/2+1/3+1/4+1/5


    正确答案：C
    解析：本题考查For循环控制语句。sam的初始值为0，n的初始值为0，每执行一次For i循环，先令x值等于n浮点除以i，然后再把这一x值加到sum上，很显然，sum的最终结果为：0/1+1/2+2/3+3/4+4/5，故正确答案为C。

  • 第3题：

    设有如下程序： Private Sub Command1_Click( ) Dim sum As Double，x As Double sum＝0 n＝0 For i＝1 To 5 x＝n/i n＝n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是

    A．1+1/2+2/3+3/4+4/5

    B．1+1/2+2/3＋3/4

    C．1/2+2/3+3/4+4/5

    D．1+1/2+1/3+1/4+1/5


    正确答案：C
    解析：sum的初始值为0，n的初始值为0，每执行—次Fori循环，先令x值等于n浮点除以i，然后再把这一x值加到sum上，很显然，sum的最终结果为：0/1+1/2+2/3+3/4+4/5，故正确答案为C。

  • 第4题：

    设有如下程序： Private Sub Cimmandl_Click． Dim sum As Double, x As Double Sum=0 n =0 For i =1 To 5 x =n/i n =n +1 sum =sum +x Next i End Sub 该程序通过For 循环来计算一个表达式的值，这个表达式是 A．1+1/2+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5 C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/5


    正确答案：C

  • 第5题：

    设有如下程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。

    A．1+1/2+2/3+3/4+4/5

    B．1+1/2+2/3+3/4

    C．1/2+2/3+3/4+4/5

    D．1+1/2+1/3+1/4+1/5


    正确答案：C
    解析：本题考查循环语句，其过程如下：
    i=1时，x=0/1=0，n=0+1=1，sum=0+0；
    i=2时，x=1/2，n=1+1=2，sum=0+1/2；
    i=3时，x=2/3，n=2+1=3，sum=0+1/2+2/3；
    i=4时，x=3/4，n=3+1=4，sum=0+1/2+2/3+3/4；
    i=5时，x=4/5，n=4+1=5，sum=0+1/2+2/3+3/4+4/5。

  • 第6题：

    5、写出如下程序的运行结果和运行原理： sum = 0 n = 99 while n ＞ 0: sum = sum + n n = n - 2 print（sum)


    24

相关内容