为计算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两种修改

题目

为计算10+21+22+23+24+…+210的值，并把结果显示在文本框Textl中，若编写如下事件过程：

Private Sub Commandl_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.在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：Private Sub Commandl_Click()a=Textl．Value+Text2．ValueMsgBox aEnd SubPrivate Sub Form_Load()TextI．Value=“”Text2．Value=””End Sub程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【 】。

2.在窗体上添加一个文本框Textl，然后编写下列Load事件过程，则程序运行结果是 。 Private Sub Form_LoadO Textl.Text=〞〞 Textl.SetFocus Fork=1 To 5 T=t﹡k Next k Textl.Text=t End SubA.在文本框中显示120 B.文本框中仍为空 C．在文本框中显示1 D.出错

3.在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，在文本框中显示的值是__________。

4.（ 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+a 和 a=a*2 的顺序D ）同时进行 B ） 、 C ）两种修改

更多“为计算10＋21＋22＋23＋24＋…＋210的值,并把结果显示在文本框Textl中,若编写如下事件过程:Private Sub ”相关问题

  • 第1题：

    为计算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=0

    B.把For k=2 T0 10改为For k=1 T0 10

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

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


    正确答案：D
    D。【解析】本题程序利用了“1+2+22+…+2n”=2*(1+2+22+…+2n-1)+1，所以应同时进行B和c两种修改。

  • 第2题：

    在窗体上添加一个文本框，名为Textl，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load() Text1.Text=" " Text1.Setfocus t=1 For k=10 To 6 Step -2 t=t(k Next k Text1.Text =t End Sub

    A．在文本框中显示120

    B．文本框仍为空

    C．在文本框中显示480

    D．出错


    正确答案：D
    解析：本题表面在考查For循环控制语句的使用，但解题的关键是理解Text文本框SetFocus方法的正确使用，在触发窗体Form的Load事件时，使用SetFocus将发生冲突，在VisualBasic上调试本题的程序将显示“错误的过程调用或函数”提示。本题选择D项。如果删除SetFocus方法的使用，文本框中将显示480。如果用控制按钮的Click事件触发该段事件过程，文本框也会得到480的答案，对此，考生不妨自己上机一试。

  • 第3题：

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl)，编写如下事件过程：

    打开窗体运行后，单击命令按钮，文本框中显示的内容是__________。


    正确答案：
    15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时，参数有两种传递方式：传址传递和传值传递。如果在函数声明时没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。本题中形参均为传址传递，即a=x=3，b=y=5，c=z=10。但是在子程序里面对c重新赋值为c=a*b=15，这个值l5会回送给实参2，所以最后显示的值Z也就是l5。

  • 第4题：

    在窗体中有一个文本框Textl，编写事件代码如下：

    Private Sub Form. Cl ick() ’

    X=val(Inputbox(“输入X的值”))

    Y=1

    If X<>0 Then Y：2

    Textl．Value=Y

    End Sub

    打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是

    A．1

    B．2

    C．3

    D．4


    正确答案：B
    解析：本题中窗体单击事件是通过从输入框输入数值，根据所输入数值内容对y进行赋值，运行时输入框输入12，此值不等于0所以y的值为2，正确答案为B)。

  • 第5题：

    在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

    程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。


    正确答案：
    9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为： 其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。

相关内容