化工操作工考试
相似问题和答案
第1题：
在窗体上添加一个命令按钮，然后编写如下事件过程： 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
第2题：
下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。
Private Sub Form_Click()
Dim n as integer,s as integer,I as integer,k as integer
s=0
k=0
n=inputbox(″请输入n的值)
For i=1 to 100
k=k+1
s=s+I
【 】
Next i
Print s
End Sub
if s>100 then exit for 解析：依题意,用变量S来记录1到n的累加和,当累加和S大于100时停止计算,故加入退出循环条件"if s>100 then exit for"
第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题：
在窗体画一个命令按钮，然后编写如下事件过程：
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
第5题：
A. 1 3 5 7 9 10
B. -1 -3 -5 -7 -9
C. -1 2 -3 4 -5 6 -7 8 -9 10
D. 1 -2 3 -4 5 -6 7 -8 9 -10
第6题：
（23）下列程序运行时输出的结果是 Option Base 1 Const a=10 Priate Sub Form_Click() Dim x(a) As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub A.1 3 5 7 9 10 B.-1 -3 -5 -7 -9 C.-1 2-3 4-5 6-7 8-9 10 D.1-2 3-4 5-6 7-8 9-10
【解析】本题中两个For循环的作用分别为：为x数组元素赋值，在窗体上依次输出x数组元素的值。
其中，为x数组元素赋值时，有“x(i)=i*k”和“k=(-1)*k”两条语句。k的值每次都取自己的相反数，这样，x数组元素的符号每次都在变化，第1个元素是-1，第2个元素是2，第3个元素是-3，依此类推；最后输出x元素的值为-1 2 -3 4 -5 6 -7 8 -9 10。
第7题：
下面程序：________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。
第8题：
有如下程序，该程序的执行结果是【 】。
Private Sub Command1_lick()
For i= 1 To 4
x= 4
For j =1 To 3
x =3
For k=1 To 2
X= K+5
Next k
Next j
Next i
Print x
End Sub
16
第9题：
在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private SuB commandl_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
打开窗体运行后，单击命令按钮，消息框中输出的结果是【 】。
201 解析：题目考查循环操作，最后求得k值。程序中共有3处for循环。在第一个for循环，得到a(1)=1*l=l，a(2)=2*2=4，…，a(10)=10*10=100。在第二个for循环，得到p(1)=a(1*1)=l，p(2)=a(2*2)=a(4)=16，…，p(10)=p(10*10)。在第三个for循环，i等于1时，k；初始k+p(1)*2=5+1*2=7；i等于2时，k=k+p(2)+2=7+16*2=39；i等于3时，k=k+p(3)$2=39+81*2=201。
第10题：
下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }
A．6
B．7
C．8
D．9
解析：在函数sub()的函数体中定义了一个静态存储变量a，a的值在函数调用完毕返回主函数后仍存在。第一次调用sub(i)，a=a+m=4+2=6，返回值为6。第二次调用sub(j)，a=a+m=6+1=7，返回值为7，最后输出k的值为7。