燃烧0.2mol某有机物，得到0.4molCO<sub>2</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 ）两种修改

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

在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：

Dim S1 As String, S2 As String

Private Sub Form_Load（）

Text1. Text=””

Text2. Text=””

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

S2=s2 & Chr（KeyCode）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

S1=S1 & chr（KeyAscii）

End Sub

Private Sub Command1_Click（）

Text1.Text=S2

Text2.Text=S1

S1=""

S2=""

End Sub

程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为（ ）。A．abc 和 ABC

B．abc 和 abc

C．ABC 和 abc

D．ABC 和 ABC

设字符串s1='ABCDEFG',s2='PQRST',则运算s=CONCAT(SUB(s1，2，LEN(s2))，SUB(s1，LEN(s2，2))后的串值为(65)。

A．'ABCDEFEF'

B．'BCDEFG'

C．'BCPQRST'

D．'BCQR'

A.Na2S2O3

B.HBr

C.Br2

D.HBrO3

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。

A．abc和ABC

B．abc和abe

C．ABC和abc

D．ABC和ABC

某有机物燃烧后，只生成CO2和H2O，且二者物质的量相等，则此有机物的组成为C(n)H(2n)。()

下列程序的执行结果为

Private Sub Command1_Click（）

Dim s1 As String, s2 As String

s1= "abcd"

Call Transfer（s1, s2）

Print s2

End Sub

Private Sub Transfer （ByVal xstr As String, ystr As String）

Dim tempstr As String

i=Len（xstr）

Do While i >=1

tempstr=tempstr + Mid（xstr, i, 1）

i=i - 1

Loop

ystr=te mpstr

End Sub（ ）。

A．dcba

B．abdc

C．abcd

D．dabc

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。 Model1代码如下： Public X As Integer Public Y As Integer Sub S1（ ） x=1 S2 End Sub Sub S2（ ） y=10 Form1．Show End Sub Model2的代码如下： Sub Main（ ） S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（ ）。

A.Form1→Model1→Model2

B.Model1→Model2→Form1

C.Model2→Model1→Form1

D.Model2→Form1→Model1