如图所示，共有21个点，每相邻三点所形成的三角形是面积为1平方厘米的等边三角形。三角形ABC的面积为多少平方厘米？()

单击一次命令按钮之后，下列程序代码的执行结果为 private Sub Command1_Click() S=P(1) +P(1)+P(2)+P(3)+P(4) Print S： End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function

A．20

B．35

C．115

D．135

单击命令按钮时，下列程序代码的执行结果为：________________。

Public Sub Proc1(ByVal n As Integer, ByRef m AsInteger)

n = n Mod10

m = m Mod10

End Sub

Private Sub Command1_Click()

Dim x AsInteger, y As Integer

x = 34: y= 12

CallProc1(x, y)

Print x;y

End Sub

单击命令按钮之后，下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S： End Sub

A．20

B．30

C．115

D．135

单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=34 Call Procl(x，y) Print x；y End Sub

A．12 34

B．2 34

C．2 3

D．12 3

单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12: y=34 Call Procl(x，y) Print x；y End Sub

A．12 34

B．2 34

C．2 3

D．12 3

单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x,y) Print x;y End Sub

A．12 34

B．2 34

C．2 3

D．12 3

单击命令按钮时，下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m\ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End Sub

A． 12 34

B．2 34

C．2 3

D．12 3

单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do Whle m＜n:n=n-m:Loop Loop MyFunc=m End Function

A．0

B．2

C．4

D．6

单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (m As Integer，n As Integer)As Integer Do While m <>n Do While m ＞ n：m=m - n：Loop Do While m ＜ n：n=n - m：Loop Loop MyFunc=m End FunCtion

A．0

B．2

C．4

D．6

单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer, By Val m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x, y) Print x; Y End Sub

A．12 34

B．2 34

C．2 3

D．12 3