赤铁矿的分子式是Fe₃O<sub>4</s

有如下SUB过程:

Sub s(x As Single,y As Single)

t=x

x=t / y

y=t Mod y

End Sub

在窗体上添加一个命令按钮,然后编写如下事件过程:

Private Sub Form_Click()

Dim a As Single

Dim b As Single

a=5

b=4

s a,b

Print a,b

End Sub

则程序运行后,单击命令按钮,输出的结果为【 】 。

A、Sub plus(sum, a , b ): sum = a + b: End Sub

B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub

C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub

D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: 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

假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为 ______ 。

A．5 4

B．1 1

C．1.25 4

D．1.25 1

A、Fe3O3

B、FeCO3

C、Fe2O3

运行以下程序后，输出结果为_____________。 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

下列程序的执行结果是______。

PrivateFunctionP(NASInteger)

Fori=1 To N

SUM=SUM+i

Nexti

P=SUM

End Function

Privte Sub Commandl_Click()

S=P(1)+P(2)+P(3)+P(4)

Print S

End Sub

程序执行结果s的值是【 】.

Private Sub Command l-Click ()

I =0

Do

S= I +S

I = I + l

Loop Until I ＞=4

End Sub

在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为

A．Sub：2 6 4 Main：2 6 4

B．Sub：2 6 4 Main：2 6 4

C．Sub：2 6 4 Main：1 2 3

D．Sub：2 6 4 Main：2 2 3

写出程序运行的结果

Public class Base

Public virtual string Hello() {return “Base”;}

Public class Sub:Base

Public override string Hello() {return “Sub”;}

1. Base b = new Base(); b.Hello;

2. Sub s = new Sub(); s.Hello;

3. Base b = new Sub (); b.Hello;

4. Sub s = new Base(); s.Hello;