可用来鉴别CH₃CHO和CH<sub>3<

把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。

A． A

B．B

C．C

D．D

在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：

DimaAsInteger

Subtest()

a=a+1:b=b+1:c=c+1

Print"Sub:";a;"，";b;"，";c

EndSub

PrivateSubCommand1_Click()

a=2:b=3:c=4

Calltest

Calltest

EndSub

程序运行后，单击命令按钮，窗体中将显示( )

A.Sub：3，4，5Sub：4，5，6

B.Sub：2，3，4Sub：2，3，4

C.Sub：3，1，1Sub：4，1，1

D.Sub：1，1，1Sub：1，1，1

（ 14 ）执行以下程序后输出的是

Private Sub Command1_Click()

Ch$= ” AABCDEFGH ”

Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)

End Sub

A)CDEFGH

B)ABCD

C)FG

D)AB

假设(AL)=74H，(CH)=38H，依次进行SUB AL，CH指令和DAS指令后，AL的值是( )。

A．0AEH

B．36H

C．3CH

D．14H

A、CH3CH2COCH3

B、CH3CH2CHO

C、CH3C(CH3)2COCH3

D、CH3CH(CH3)CHO

把窗体的KeyPreview属性设置为True，然后编写如下事件过程

Private Sub Form_KeyPress（KeyAscii As Integer）

Dim ch As String

ch = Chr（KeyAscii）

KeyAscii = Asc（UCase（ch））

Print Chr（KeyAscii + 2）

End Sub

程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（ ）。

A．A

B．B

C．C

D．D

可用来鉴别CH3CHO和CH3COCH3¬的试剂是

A、羰基试剂

B、托伦试剂

C、NHSO3

D、I2+NOH

（ 30 ）下面程序的输出结果是

Private Sub Command1_Click()

ch$= ” ABCDEF ”

proc ch

Print ch

End Sub

Private Sub proc(ch As String)

S= ””

For k=Len(ch) To 1 Step-1

s=s&Mid(ch,k,1)

Next k

ch=s

End Sub

A ） ABCDEF

B ） FEDCBA

C ） A

D ） F

运行以下程序后，输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function

：A. sub:2 6 4 main:1 2 3

B. sub:2 6 4 main:2 2 3

C. sub:2 6 4 main:2 6 4

D. sub:2 6 4 main:1 6 4

假定(AL)=85H，(CH)=29，依次执行SUB AL，CH指令和DAS指令后，AL的值是( )。

A．AEH

B．56H

C．5CH

D．14H