（）年8月30日，“青海三江源自然保护区生态保护和建设工程”正式启动。
参考答案：2005
改错题（14分）【题目】本程序的功能是生成由n（n通过InputBox函数输入）个3位升序数构成的随机数组,所谓升序数是指从高位到低位数字值依次增加的整数(本程序界面由1个TextBox和1个CommandButton组成，所有对象均采用缺省名)
Option ExplicitOption Base 1Private Sub Command1_Click() Dim n as long, a() As Integer, k as Integer, p as Integer n=InputBox(“输入数据个数;”,”升序数数组”,10) Redim a(n) Do p= Int(Rnd*900)+101 If judge(p) Then k=k+1 a(k)=p Text1.text=Text1.text & Str(a(k)) If K Mod 5=0 Then Text1.text = Text1.text & vbcrlf End If Loop Until k>nEnd Sub public Function judge(n as integer) As Boolean Dim i as integer, a(3) as integer For i=3 To 1 Step -1 a(i)= n Mod 10 n=n\10 Next i For i=1 to 2If a(i)>=a(i+1) Then Exit For Next i judge=TrueEnd Function1.新建工程,按参考界面形式创建窗体,再从T盘根目录下的err.txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。2.改错时,不得增加或删除语句,但可适当调整语句的位置。3.将窗体文件和工程文件分别命名为F1和P1,并保存到T盘的根目录下。
比较好地解释了人们为什么有时体力充沛、精神焕发，有时却浑身困乏、记忆力下降的理论是（）
A.体力节律理论
B.情绪节律理论
C.智力节律理论
D.人体生物钟理论
Option ExplicitOption Base 1Private Sub Command1_Click() Dim n as long, a() As Integer, k as Integer, p as Integer n=InputBox(“输入数据个数;”,”升序数数组”,10) Redim a(n) Do p= Int(Rnd*900)+101 If judge(p) Then k=k+1 a(k)=p Text1.text=Text1.text & Str(a(k)) If K Mod 5=0 Then Text1.text = Text1.text & vbcrlf End If Loop Until k>nEnd Sub public Function judge(n as integer) As Boolean Dim i as integer, a(3) as integer For i=3 To 1 Step -1 a(i)= n Mod 10 n=n\10 Next i For i=1 to 2If a(i)>=a(i+1) Then Exit For Next i judge=TrueEnd Function1.新建工程,按参考界面形式创建窗体,再从T盘根目录下的err.txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。2.改错时,不得增加或删除语句,但可适当调整语句的位置。3.将窗体文件和工程文件分别命名为F1和P1,并保存到T盘的根目录下。