化学工程
VB1的质量对有机化学基础实验影响很大，应使用新开瓶或原密封、保管良好的VB1；用不完的应尽快密封保存在阴凉处。
题目
VB1的质量对有机化学基础实验影响很大，应使用新开瓶或原密封、保管良好的VB1；用不完的应尽快密封保存在阴凉处。
相似问题和答案
第1题：
在通用声明中定义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
第2题：
（10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_Click() Text1.Text="VB Programming" End Sub Private Sub Text1_Change() Picture1.Print"VB程序设计" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是 。
【解析】单击窗体触发Form的Click事件，执行“Text1.Text="VB Programming"”语句，在文本框Text1中显示“VB Programming”；此时文本框Text1的Text属性发生了变化，因此触发Text1的Change事件，执行“Picture1.Print"VB程序设计"”语句，在图片框中显示“VB程序设计”。
第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 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第4题：
有如下程序： 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
解析：考查考生对调用通用过程的掌握情况。
[解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
[错解分析] 调用通用过程可以返回多个参数值。
[考点链接] 过程调用、参数传递。
第5题：
如下图所示的两个窗体：
要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为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
解析：此题考查的多窗体的操作，用Show方法可以显示指定窗体。其格式为：【窗体名称．】Show【模式】如果省略窗体名称，表示是当前窗体，此题本意是利用窗体1中的命令按钮来控制显示窗体2，故应该使用Form2.Show语句；而“模式”参数为可选项，可取0、1两种值，模式为1时，表示窗体是“模式”窗体，即程序运行时只能对此窗体设置或操作，对其他窗口的操作不起作用；而模式为0时，即可同时操作多个窗口；综上所述只有选项A的事件过程正确；选项B没有指定Form2窗体，所以不正确；选项C与选项B的错误一样；选项D语句语法不对，对方法的引用，窗体应放在方法前面。
第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
【解析】可以通过DialogTitle属性设置打开文件对话框的标题，使用ShowOpen方法设置通用对话框的类型为打开文件对话框。
DialogTitle属性指定对话框中标题栏的名称。“打开”对话框默认的标题是“打开”；“另存为”对话框默认的标题是“另存为”。
第7题：
下列程序输出的结果为【 】。
Private Sub Commandl_Click( )
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
VBVC 解析：Goto语句是指使程序无条件地转移到过程中指定的语句处执行。其后面必须有指定的行标签，否则程序会出错。
第8题：
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click（）
Text1.Text = "VB程序设计"
End Sub
Private Sub Text1_Change（）
Picture1.Print "VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是______，而在图片框中显示的内容是_____。
VB程序设计 VB Programming
第9题：
窗体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。【解析】窗体单击事件为Form—Click事件。
第10题：
假定有如下的Sub过程：
Sub Sub1(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
Sub1 a，b
Print a；b
End Sub
程序运行后，单击命令按钮，输出结果为
A．
B．
C．
D．
解析：在调用通用过程时要注意的是参数的传递方式。本题中两个变量都是以传值方式传递。根据传值方式的定义不难计算出本题结果。