问题 填空题

下面程序运行后,单击命令按钮,输出的结果是 【12】
Private Sub Command1_Click()
Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2#
For i=1 To 4
a(i)=i
Next
For i=2 To 6
b(i) =i
Next
str1 = YAG(a)
str2 = YAG(b)
Print "str1 ="; str1; "str2 ="; str2
End Sub
Function YAG (a ( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
YAG = t
End Function

答案

参考答案:[12]str1=24 str2=720

解析:[命题目的] 考查考生对定义数组和调用函数的掌握情况。
[解题要点] 程序首先调用循环语句为数组a、b赋值,其中a(i)=i;b(i)=i,且数组a的上下界分别为 1和4,数组6的上下界分别为2和6;接着将数组。作为参数调用YAG过程,在YAG过程中,定义了两个变量t及i,i作为循环语句For的变量,它的初始值和终值分别为数组的上下界,循环体为t=t*a(i),即将a (i)的值乘以t,然后再赋给t,当循环结束后,程序返回的就是数组。中的各元素的积;同理程序将数组b作为参数传递给YAG过程后返回数组^中各元素的积,运行程序结束后,输出结果为:strX=24 str2=720。
[考点链接] 数组定义、函数调用

单项选择题
论述题

阅读材料,回答问题。

十八大报告首次提出建设“美丽中国”,“美丽中国”被赋予了新的内涵,贯穿于国家建设的各个方面,蕴藏着多层寓意,发人深省、令人惊喜。

【美丽中国,促进农民增收】

党的十八报告指出,要加大强农惠农富农政策力度。着力促进农民增收,保持农民收入持续快速增长。

A省农民收入结构中各种收入占总收入的比重(%)

(1)结合材料,运用《经济生活》知识,谈谈如何促进农民收入持续快速增长?

【美丽中国,呼唤生态文明】

(2)随着经济的发展,环境污染日益严重。运用“公民”的相关知识,谈谈在“推进生态文明,建设美丽中国”过程中,你将如何参与?

【美丽中国,爱国之传承】

中华五千年文明史是一部长卷史诗,在这部史诗中,爱国主义是永恒的主题。《诗经》中提出的“夙夜在公”,贾谊《治安策》中提出的“公而忘私”,戚继光率军抗倭等,是我国传统文化的重要组成部分。有同学认为:“弘扬爱国主义精神,一定要固守传统文化。”

(3)运用《文化生活》的知识,评析上述同学的观点。

【美丽中国,建设文化强国】

十八大再次提出深化文化体制改革,部署文化强国战略。下表是近十年社会主义文化建设战略构想的进程。

战略构想提出发展社会主义先进文化
发展社会主义先进文化十六大促进社会全面进步和人的全面发展
建设和谐文化十六届六中全会建设和谐文化,构建和谐社会
推动社会主义文化大发展大繁荣十七大构建社会主义核心价值体系
部署文化强国战略十八大增强文化软实力,建设社会主义文化强国
(4)依据材料,运用“求索真理的历程”的有关知识,说明我国社会主义文化建设构想是怎样发展的。