违法和不良信息举报 联系客服
免费注册 登录

在测定空气的比热容比的实验中，数字电压表U<sub>1</sub

题目

在测定空气的比热容比的实验中，数字电压表U1，U2与气压P1，P2的关系式为（）

  • A、P1=P0+U1/2；P2=P0+U2/2
  • B、P1=P0-U1/2；P2=P0-U2/2
  • C、P1=P0+U1；2=P0+U2
  • D、P1=P0-U1；P2=P0-U2
如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

（ 25 ）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

A ）

Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Print X,Y

End Sub

B ）

Private Sub P1_MouseDown （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Picture.Print X,Y

End Sub

C ）

Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

E n d S u b

D ）

Private Sub Form_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

End Sub


正确答案：C

第2题：

如下图所示的两个窗体：

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


正确答案：A
解析：此题考查的多窗体的操作，用Show方法可以显示指定窗体。其格式为：【窗体名称．】Show【模式】如果省略窗体名称，表示是当前窗体，此题本意是利用窗体1中的命令按钮来控制显示窗体2，故应该使用Form2.Show语句；而“模式”参数为可选项，可取0、1两种值，模式为1时，表示窗体是“模式”窗体，即程序运行时只能对此窗体设置或操作，对其他窗口的操作不起作用；而模式为0时，即可同时操作多个窗口；综上所述只有选项A的事件过程正确；选项B没有指定Form2窗体，所以不正确；选项C与选项B的错误一样；选项D语句语法不对，对方法的引用，窗体应放在方法前面。

第3题：

有一过程如下:

Sub Sub1(m As Integer,total As Long)

Dim i As Integer

total=1

For i=1 To m

total=total*i

Next

End Sub

调用它的事件过程如下:

Private Sub Command1_Click()

Dim tot As Long,a As Integer

a=Val(InputBox("请输入数据"))

Call Sub1(a,tot)

Print tot

End Sub

则输入数据5,运行结果为【 】。


正确答案：120
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。

第4题：

有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。

A．12

B．24

C．36

D．48


正确答案：B

第5题：

在窗体上添加文本框Text1，然后编写下列程序： Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是

A．23BCD

B．ABC

C．!@#ABC

D．123abc


正确答案：A
解析：在向文本框中依次输入1、2、3、a、b、c的同时，Text1_KeyPress过程分别接收到的是KeyAscii(各字符的ASCII码)，Chr函数将加过1的ASCII码转换成字符，UCase函数将字符转换成大写字符，数字保持不变，Asc函数又将字符转换成ASCII码，最后出现选项A的字符。

第6题：

（30）下列事件过程可以将打开文件对话框的标题改变为“new Caption”.A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub B.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub D.Private Sub Commandl_Click(） CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub


正确答案：B
【解析】可以通过DialogTitle属性设置打开文件对话框的标题，使用ShowOpen方法设置通用对话框的类型为打开文件对话框。
DialogTitle属性指定对话框中标题栏的名称。“打开”对话框默认的标题是“打开”；“另存为”对话框默认的标题是“另存为”。

第7题：

窗体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···


正确答案：B
B。【解析】窗体单击事件为Form—Click事件。

第8题：

在通用声明中定义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


正确答案：C

第9题：

有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B． 1 1

C．2 2

D．1 2


正确答案：B
解析：考查考生对调用通用过程的掌握情况。
  [解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
  [错解分析] 调用通用过程可以返回多个参数值。
  [考点链接] 过程调用、参数传递。

第10题：

有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B．1 1

C．2

D．1 2


正确答案：B
解析：调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程；因为在默认的情况下，变量都是通过“引用”传送给Sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值；过程 Sub1的形参获得a，b的地址，此时x=5，y=4，在过程 Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x，y的值为1，1。注意： 调用通用过程可以返回多个参数值。注意：过程调用、参数传递

更多相关问题
相关内容