（ 27 ）为计算 1+2+22+23+24+ … +210 的值，并把结果显示在文本框 Text1 中，若编写如下事件过程 ：Private Sub Command1_Click()Dim a%,s%,k%s=1a=2For k=2 To 10a=a*2s=s+aNext kText1.Text=sEnd Sub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是A ）把 s=1 改为 s=0B ）把 For k=2 To 10 改为 For k=1 To 10C ） 交换 语句 s=s+

题目

（ 27 ）为计算 1+2+22+23+24+ … +210 的值，并把结果显示在文本框 Text1 中，若编写如下事件过程 ：

Private Sub Command1_Click()

Dim a%,s%,k%

s=1

a=2

For k=2 To 10

a=a*2

s=s+a

Next k

Text1.Text=s

End Sub

执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是

A ）把 s=1 改为 s=0

B ）把 For k=2 To 10 改为 For k=1 To 10

C ） 交换 语句 s=s+a 和 a=a*2 的顺序

D ）同时进行 B ） 、 C ）两种修改

相似考题

1.为计算10+21+22+23+24+…+210的值，并把结果显示在文本框Textl中，若编写如下事件过程：Private Sub Commandl_Click()Dim a％，s％，k％S=1a=2FOr k=2 To 10a=a*2S=S+aNext kText1，Text=sEnd Sub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是A．把s=1改为s=0B．把For k=2 TO 10改为For k=1 To 10C．交换语句S=s+a和a=a*2的顺序D．同时进行B.C两种修改

2.为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程： Private Sub Command1 Click（ ） Dim a％，s％，k％ s=1 a=2 For k=2 To 10 a=a*2 s2 s+a Next k Text1．Text=s End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是（ ）。A.把s=1改为s=0B.把For k=2 T0 10改为For k=1 T0 10C.交换语句s=s+a和a=a*2的顺序D.同时进行B、C两种修改

3.在窗体上添加一个文本框Text 1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private Sub Form_Load0 Text1. Text="" Text1. SetFocus For k = 1 To 5 t=t*k Next k Text1.Text = tEnd SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错

4.在窗体上画一个文本框(其NAME属性为TExT1)，然后编写如下事件过程： PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。A．在文本框TEXT1中输出55B．在文本框TEXT1中输出0C．出错D．在文本框TEXT1中输出不定值

更多“( 27 )为计算 1＋2＋22＋23＋24＋ … ＋210 的值,并把结果显示在文本框 Text1 中,若编写如下事件过程 :P ”相关问题

  • 第1题：

    在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。

    A．pp

    B．pP

    C．PP

    D．Pp


    正确答案：B
    解析：解答本题的前提是了解以下几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；string(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。

  • 第2题：

    在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:

    Private Sub Form_load()

    Text1.Text=″″

    Text1.SetFocus

    For i=1 To 9

    Sum=Sum+i

    Next i

    Text1.Text=Sum

    End Sub

    上述程序的运行结果是

    A．在文本框Text1中输出45

    B．在文本框Text1中输出0

    C．出错

    D．在文本框Text1中输出不定值


    正确答案：C
    解析：由于Form_load事件是在窗体加载时发生，所以此时窗体还没有显示，不能用"Tex1.SetFocus"语句获得焦点，故出错。如要改正，需要在此语句前加入"Me.Show"，显示窗体，则可以看到文本框已获得焦点，并执行循环语句，输出"45"。

  • 第3题：

    在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private sub Form_Load() Text1.Text="" Text1.SetFocus For k=1 To 5 t=t*k Next k Text1.Text=t End Sub

    A．在文本框中显示120

    B．文本框中仍为空

    C．在文本框中显示1

    D．出错


    正确答案：D
    解析：本题中“Text1.SetFocus”语句运行时会出现错误。因为焦点只能移到可视的窗体或控件，而在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以编译出错。如果不是在Form.Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。

  • 第4题：

    在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。

    A．在文本框Text1中输出55

    B．在文本框Text1中输出0

    C．出错

    D．在文本框Text1中输出不定值


    正确答案：C
    解析：焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form.Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的控件上的。

  • 第5题：

    在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。

    A．在文本框Text1中输出55

    B．在文本框Text1中输出0

    C．出错

    D．在文本框Text1中输出不定值


    正确答案：C
    解析：焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form_Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的控件上的。

相关内容