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

单项选择题为计算10+21+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 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个名称为Text1的文本框；1个名称为Timer的计时器控件，其Interval属性值为5000，Enabled属性值是True。 Timer1的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=1 Then Text1.ForeColor=&HPP& ’&HFF&为红色 Else Text1.ForeColor=&HC000& ’&HC000&为绿色 End If End Sub 以下叙述中正确的是（）

A、每次执行此事件过程时，flag的初始值均为0
B、 flag的值只可能取0或1
C、程序执行后，文本框中的文字每5秒改变一次颜色
D、程序有逻辑错误，Else分支总也不能被执行