单项选择题

为计算1+2+2²+2³+2⁴+…+2¹⁰的值，并把结果显示在文本框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．同时进行Ｂ)、Ｃ)两种修改

<上一题目录下一题>

热门试题

单项选择题

标准模块中有如下程序代码： Public x As Integer, y As Integer Sub var_pub() x=10:y=20 End Sub 在窗体上有一个命令按钮，并有如下事件过程： Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100:y=y+100 Print x;y End Sub 运行程序后单击命令按钮，窗体上显示的是

A．100 100
B．100 120
C．110 100
D．110 120

单项选择题

窗体的左右两端各有一条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(如图2所示)；另有一个名称为Timer1的计时器控件，其属性值为True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序： Private Sub Timer1_Timer() For k=Line1.X1 To Line2.X1 Step 100 If Shape1.Left+Shape1.Width＜Line2.X1 Then Shape1.Left=Shape1.Left+100 End If Next k End Sub 运行程序时发现圆立即移动到右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面的修改方案中正确的是

相关试题