C原子的价电子层结构是（）；在CH₄分子中

（ 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

下列关于Sub过程的叙述正确的是A.一个Sub过程必须有一个Exie Sub语句B.一个Sub过程必须有一个Enb Sub语句C.在Sub过程中可以定义一个Function过程D.可以用Goto语句退出Sub过程

下列过程定义语句中，参数不是对象的定义语句是（ ）。

A．Sub Pro4（x As Form）

B．Sub Pro4（y As Control）

C．Sub Pro4（Form1 As Form,Labell As Control）

D．Sub Pro4（x As Currency）

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

下列程序实现的功能是：在窗体上单击时，将在窗体上输出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

在通用声明中定义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

（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（ ）。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a,b Print a；b End Sub A.1.25 1 B.5 4 C.4 5 D.1 1.25

（ 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

A、CO₂

B、CH₂=CH₂

C、CH≡CH

D、CH4

若有以下变量和函数说明： #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)；