物质CH₃CH=CHBr命名中，错误的是（

把窗体的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.CH3-CH2-CH2-CH2Br

B.CH3--CH2-CH2Br-CH3

C.CH3--CH2-CHBr-CH3

D.CH3--CH3--CHBr-CH3

（ 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

执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。 Private Sub Cotomand1_Click() Ch$="Welcome Home!" a=Len(ch$) For i= 1 To a b$ = Mid(ch$， i 1) If b$ = "m" Then m = m + 1 Next 1 Print m End Sub

A．2

B．3

C．1

D．0

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

A．AEH

B．56H

C．5CH

D．14H

下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。

Private Sub Form. Click()

Dim Ch As String * 1

Open "c:\a1.txt" For Input As 10

Do While【 】

Ch= Input(1, 10)

If 【 】Then

Print Ch;

End If

Loop

【 】

End Sub

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

A．0AEH

B．36H

C．3CH

D．14H

（ 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

下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt，请填空。

Private Sub Form. C1ick()

Dim ch As String

Open "C:\a1.txt" For【 】

Open "C:\a2.txt" For【 】

Do While Not【 】

ch＝Input(1,10)

Print 20,ch;

Loop

Close 10,20

End Sub

若有以下变量和函数说明： #include＜iostream.h＞ charCh='*'； void sub(int x，int y,char ch，double*Z) { switch(ch) { case'+':*Z=x+y;break； case'-':*Z=x-y;break： case'*':*Z=x*y;break； case'/':*z=x/y;break： } } 以下合法的函数调用语句是( )。

A．sub(10，20，Ch，y)；

B．sub(1.2+3，2*2，'+'，&Z)；

C．sub(sub(1，2，'+'，&y)，sub(3，4'+'，&x)，'-'，&y)；

D．sub(a，b，&x,ch)；