化学工程
相似问题和答案
第1题：
（ 30 ）下面程序的输出结果是
Private Sub Command1_Click()
ch$= ” ABCDEF ”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S= ””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A ） ABCDEF
B ） FEDCBA
C ） A
D ） F
第2题：
在通用声明中定义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
第3题：
（ 33 ）若要在子过程 Procl 调用后返回两个变量的结果，下列过程定义语句中有效的是
A Sub Procl(n,m)
B Sub Procl(ByVal n,m)
C Sub Procl(n,ByVal m)
D Sub Procl(ByVal n,ByVal m)
第4题：
窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。
A．abcde
B．efghi
C．EFGHI
D．ABCDE
第5题：
下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt，请填空。
Private Sub Form. C1ick()
Dim ch As String
Open "C:\a1.txt" For【 】
Open "C:\a2.txt" For【 】
Do While Not【 】
ch＝Input(1,10)
Print 20,ch;
Loop
Close 10,20
End Sub
Input As # 10, Output As # 20 , EOF(10) 解析：根据程序中的语句Close # 10， #20可知两个文件的文件号分别为10，20。程序的功能是把文件C:\a1.txt复制成C:\ a2.txt即最后输出文件的内容为C;\a2.txt的内容，故a1.txt的打开方式为Input.a2.txt的打开方式为output。根据语句Print # 20.ch可推断文件C:\a2.txt的文件号为20，另一个为10。再结合打开语句的格式：Open Path- name For打开方式As[#]文件号可知[13]处应填Input As #10，[14]处应为Output As #20。在文件复制时还得保证复制文件没有结束，此时就用到了EOF函数。其格式为；EOF(文件号)。因为复制文件的文件号为10，故[15]处应填EOF(10)。
第6题：
把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。
A． A
B．B
C．C
D．D
解析：当把窗体的KeyPreview属性设置为True时，按键盘上的键时，就触发窗体的KeyPress事件。如果键盘上按的是“A”，则KeyAscii=97，即小写的“a”，把该字母转化为大写以后，再对Ascii码加2，则为大写的“C”。
第7题：
假设(AL)=74H，(CH)=38H，依次进行SUB AL，CH指令和DAS指令后，AL的值是( )。
A．0AEH
B．36H
C．3CH
D．14H
第8题：
若要在子过程Procl调用后返回两个变量的结果，下列过程定义语句中有效的是______。
A．Sub Procl(n, m)
B．Sub Procl(ByVal n, m)
C．Sub Procl(n, ByVal m)
D．Sub Procl(ByVal n, ByVal m)
解析：过程定义时，如果形式参数被说明为传值(ByVal项)，则过程调用只是相应位置实参的值“单向”传递给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。由于这个过程中，数值的传递只有单向性，故称为“传值调用”的“单向”作用形式。反之，如果形式参数被说明为地址(ByRef)，则过程调用是将相应位置实参的地址传给形参处理，而被调用过程内部对形参的任何操作引起形参值的变化又会反而影响实参的值。在这个过程中，数值的传递具有双向性，故称为“传址调用”的“双向”作用形式。ByRef是VBA的缺省选项。本题中要求在子过程Procl调用后返回两个变量的结果，因此采用的是“传址调用”，故为Sub Procl(n, m)。
第9题：
若有以下变量和函数说明： #include＜iostream.h＞ charCh='*'； void sub(int x，int y,char ch，double*Z) { switch(ch) { case'+':*Z=x+y;break； case'-':*Z=x-y;break： case'*':*Z=x*y;break； case'/':*z=x/y;break： } } 以下合法的函数调用语句是( )。
A．sub(10，20，Ch，y)；
B．sub(1.2+3，2*2，'+'，&Z)；
C．sub(sub(1，2，'+'，&y)，sub(3，4'+'，&x)，'-'，&y)；
D．sub(a，b，&x,ch)；
第10题：
在窗体中有一个文本框Textl，编写事件代码如下：
Private Sub Form. Cl ick() ’
X=val(Inputbox(“输入X的值”))
Y=1
If X<>0 Then Y：2
Textl．Value=Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是
A．1
B．2
C．3
D．4
解析：本题中窗体单击事件是通过从输入框输入数值，根据所输入数值内容对y进行赋值，运行时输入框输入12，此值不等于0所以y的值为2，正确答案为B)。