NaCN是无机化合物，CH₃CH<sub>

（ 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

把窗体的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

执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub

A．1

B．2

C．8

D．0

在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) TextText = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______。

A．b

B．bb

C．BB

D．B

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

A．AEH

B．56H

C．5CH

D．14H

把窗体的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

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

A．0AEH

B．36H

C．3CH

D．14H

（ 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

下列程序的功能是把文件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

执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。 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