问题
填空题
运行如下程序段: x=1 y=1 z=1 For j=1To 3 For k=1 To 3 If j=1 Then x=x +y+z Elself j=2 Then x=2*x+2*y+2*z Else x=3*x+3*y+3*z End If Next kNext jx的值应是 【15】 。
答案
参考答案:2346
解析:[知识点] 模块/VBA程序设计基础[评析] 当j=1时,内层循环执行x=x +y+z=x+2三次,所以x=7; 当j=2时, 内层循环执行x=2*x+2*y+2*z=2*x+4三次,所以x=84; 当j=3时,内层循环执行x=3*x+3*y+3*z=3*x+6三次,所以x=2346。 则最后的结果是:x=2346。