国务院对外贸易主管部门接到以下投诉：中国A公司从美国B公司进口的一批货物侵犯了中国专利权人仇某的权利；中国C公司向菲律宾D公司出口的一批正版音像制品遭到大规模、有组织的盗版市场的冲击；在中国E公司与德国F公司的专利和专有技术许可合同中，F公司要求订入排他性返授条件，否则禁止含有该技术的产品在中国销售；美国G公司的某种软件操作系统在中国占有80%以上的市场，该公司准备捆绑销售其自行开发的杀毒软件，遭到国内外其他软件商的反对。依据《中华人民共和国对外贸易法》有关规定，下列说法正确的是()。

A、CallFun(a,b,c)

B、CallFun(3,4,c)

C、Funa,b,c

D、Fun(3,4,c)

A．5和4

B．4和5

C．1和4

D．1和5

PublicSubchange1(ByValxAsInteger,ByValyAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

PublicSubchange2(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

PrivateSubForm_Click()

DimaAsInteger,bAsInteger

a=22:b=33

change1a,b

Form. 1.Print"A1=";a,"B1=";b

a=22:b=33

change2a,b

Form1.Print"A2=";a,"B2=";b

EndSub

写出程序运行时，单击窗体Form1上的输出结果。

有如下函数过程：

Function HFC（ByVal x As Integer, ByVal y As Integer） As Integer

Do While y <> 0

sic=x / y

x=y

y=sic

Loop

HFC=x

End Function

以下是该函数的调用过程，该程序的运行结果是

Private Sub Command1_Click（）

Dim a As Integer

Dim b As Integer

a=12

b=2

x=HFC（a, B．

Print x

End Sub（）。

A．0

B．6

C．2

D．80

有以下函数过程： Function Gys (ByVal x As Integer， ByVal y As Integer) As Integer Do While y＜＞0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a，B)Print x End Sub

A．0

B．10

C．50

D．100

A．A1=20B1=10A2=10B2=20

B．A1=10B1=20A2=20B2=10

C．A1=10B1=20A2=10B2=10

D．A1=20B1=20A2=20B2=10

VB中自定义过程可分为子过程和函数过程。()

A．过程adcba中， A = 0

B．过程adc中， W> 0

C．过程cba中， W< 0

D．过程adcba中，外界对气体做的净功在数值上等于闭合曲线所包围的面积

A．过程abcda中， W= 0

B．过程abc中， W> 0

C．过程cda中，W < 0

D．过程abcda中，气体对外做的净功在数值上等于闭合曲线所包围的面积

A．纯氧中的燃烧过程

B． 空气中的燃烧过程

C． 纯氧中的熔化过程

D． 空气中的熔化过程