化学工程
相似问题和答案
第1题：
下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。
A．33
B．28
C．35
D．37
解析：此题中共定义了两个数组：a(i)，p(i)，共用到三次For循环：
第一个For语句是对数组a(i)赋值，a(1)到a(10)的值分别为1到10；
第二个For语句是对数组p(i)赋值，p(1)=a(1)=1，p(2)=a(4)=4，p(3)=a(9)=9；
第三个For语句是对k的值循环相加，三次循环的结果分别为：7，15，33。
第2题：
以下程序的输出结果是【 】。
main()
{ int x=0；
sub(&x，8，1)；
printf(“%d\n”，x)；
}
sub(int *a，int n，int k)
{ if(k＜＝n)sub(a，n/2，2*k)；
*a+=k；
}
7 解析：在主函数中定义了一个变量x并赋初值0，然后执行函数调用语句，该语句的执行过程为sub(&x,8,1)调用sub(&a,4,2)，sub(&a,4,2)调用sub(&a,2,4)，sub(&a,2, 4)中由于24，所以if后面括号里的判断为假，递归结束，执行其后的*a+=k;语句此时 x=x+k=0+4=4，回退到上一层调用函数sub(&x,4,2)中，执行后面的语句，x=x+k= 4+2=6，再回推到最上一层调用函数sub(&x,8,1)执行后面的语句，x=x+k=6+1=7，所以最后输出7。
第3题：
（ 10 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i * i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) *2
Next i
MsgBox k
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是 【 10 】 。
第4题：
执行下面的程序，消息框的输出结果是 【 】。
Option Basel
Private Sub Commandl Click()
Dim a(10)，P(3)As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
P(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
MsgBox k
End sub
33 解析：本题考查VBA中的数组与循环结构。题目中有3个循环，但相互之间并没有嵌套。第一个For循环实现向数组a赋初值，第二个For循环实现对数组a进行相关运算，然后赋给数组p，p(1)=a(1)=1，p(2)=a(4)=4， p(3)=a(9)=9。第三个For循环进行相关计算，然后把结果交给k，i=l时k=5+p(1)*2=7，i=2时k=7+p(2)*2=15，i=3时k=15+p(3)*2=33最后由MsgBox将结果输出。
第5题：
在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_CIick()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i =1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
33
第6题：
设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（ ）。
A.Private Sub p(a As Integer)
B.Private Sub p(a（ ）As Integer)
C.Private Sub p(a(10)As Integer)
D.Private Sub p(a(n)As Integer)
B。【解析】本题考查的是过程的调用，根据题干在定义中不许定义一个a数组，其中a数组不能定长，所以答案为B。
第7题：
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为
A．4 6
B．6 6
C．8 8
D．10 12
解析：在Sub过程中，程序段先定义了3个Integer型变量k，m，P，并给k赋给初值4，m的初值为1，然后调用事件过程PC，并将它的值赋给p；在事件过程PC中定义了两个形参，参数的传送是通过引用实参，即将k，m的地址作为a，b的地址；在PC中，将m，I定义为静态变量，所以第一次调用后的值仍然保留，但是m，I分别都有赋值语句，将它们的值变为0，2，所以返回值不变。
第8题：
在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程
A．35
B．33
C．31
D．29
第9题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim m As Integer, n As Integer, p As Integer m=3: n=5: p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )
A．4
B．6
C．8
D．10
解析：此程序考查了函数的调用，函数过程有3个形参，功能是将第一个和第二个形参的和赋给第三个形参，其中前两个形参是按值传递，不会影响实参的数值，即在调用函数过程的过程中，不变化实参的数值；而第三个形参是按址传递，传递的是实参的地址，这样实参会随着过程中形参的变化而变化，即改变实参的数值。在主调过程中定义了三个整型变量，分别赋值3、5、0，调用过程后 m，n的数值仍然是3、5，而p的值不再是0而变为8即m、n的和，这也是被调函数的作用。
第10题：
设程序中有如下数组定义和过程调用语句：
Dim a(10) as integer
……
Call p(a)
如下过程定义中，正确的是
A)Private Sub p(a as integer)
B)Private Sub p(a() as integer)
C)Private Sub p(a(10) as integer)
D)Private Sub p(a(n) as integer)
【答案】：B
【知识点】：以数组作为参数时形式参数的定义形式
【解析】：形式参数为数组时，表达示为sub name( array() as integer[string......])，并不需要指明元素个数，但小括号不能省略。故本题选B。