两个共点力作用在一个物体上，其中F₁=4

假定有如下的Sub过程：

Sub sfun（x As Single，y As Single）

t=x

x=t/y

y=t Mod y

End Sub

在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：

Private Sub Command1_Click（）

Dim a as single

Dim b as single

a=5

b=4

sfun a，b

MsgBox a & chr（10）+chr（13）& b

End Sub

打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为

A．1和1

B．1.25和1

C．1.25和4

D．5和4

（10）在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。 Private Sub Form_Load() Check1.Caption="显示粗体" Check2.Caption="显示斜体" Text1Text="May you a happy day!" End Sub Private Sub Check1_Load() If=1 Then Text1.FontBold=True Else Text1.FontBold=False Else If End Sub Private Sub Check2_Load() If Check2.Vaiue=1 Then Text1._____ Else Text1._____ End If End Sub

在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub f(ByVa1 x As Integer)

x=x+4

End Sub

Private Sub Command1_Click()

i=3

Call f(1)

If i＞4 Then i=i*2

MsgBox i

End Sub

打开窗体运行后，单击命令按钮，则消息框的输出结果为______。

A、Sub f1(ByVal n%())

B、 Sub f1(%)As integer

C、 Function f1%(f1%)

D、 Function f1(ByVal n%)

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub f(ByVal x As Integer)

x=x+4

End Sub

Private Sub Command1_Click()

i=3

Call f(i)

If i＞4 Then i=i*2

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

（ 15 ）设在窗体 Form1 上有一个列表框 List1 ，其中有若干个项目。要求单击列表框中某一项时，把该项

显示在窗体上，正确的事件过程是

A)Prvate Sub List1_Click()

Print List1.Text

End Sub

B)Private Sub Form1_Click()

Print List1.Text

End Sub

C)Private Sub List1_Click()

Print Form1.Text

End Sub

D)Private Sub Form1_Click()

List1.Print List1.Text

End Sub

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

如下图所示的两个窗体：

要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是

A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End Sub

B．Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End Sub

C．Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End Sub

D．Private Sub Command1_Click()Show 1， Form2 End SubPrivate Sub Command2_Click() End End Sub