一定量理想气体，从同一状态开始使其体积由V<sub>1</sub

如下图所示的两个窗体：

要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为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

阅读以下说明和Visual Basic 码，将应填入(n)处的字名写在对应栏内

[说明] 设计一个计时程序。该程序用户界面由一个文本框(text 1)，两个按钮——命令按钮1 (Command 1)按钮、命令按钮(Command 2)组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，按停止按钮，则计时停止。单击窗口则退出。

Option Explicit

Dim I

Private Sub Command1 _ Click( )

i=0

Timer1. Interval = 1000

(1)

End Sub

Private Sub Command2_ Click( )

Timer1. Enabled = False

End sub

Private Sub Form. Click(

(2)

End Sub

Private Sub Form. _Load( )

Timer1. Enabled = False

(3)

End Sub

Private Sub Timer1 _ Timer( )

i=i+1

(4)

End Sub

A、对外作的净功为正值。

B、对外作的净功为负值.。

C、内能增加了。

D、从外界净吸收的热量为正值.。

在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(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

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。

A.Private Sub Form1 Click（ ）

End Sub···

B.Private Sub Form1. Click（ ）

End Sub···

C.Private Sub Command1 click（ ）

End Sub···

D.Private Sub Command Click（ ）

End Sub···

设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请在【 】、【 】和【 】处填入适当的内容，将程序补充完整。

Option Explicit

Dim i

Private Sub Command1_Click()

i＝0

Timer1.Interval=1000

TimerEnabled=True

End Sub

Private Sub Command2_Click()

TimerEnabled=False

End Sub

Private Sub Form_Click()

【 】Me

End Sub

Private Sub Form_Load()

TimerEnabled=False

TextText=0

End Sub

Private Sub Timer1_【 】()

i=i+1

TextText=【 】

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

窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是

A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()

End Sub End Sub

C）Private Sub Commandl_Click() D）Private Sub Command_ Click()

End Sub End Sub