下列关于信息的说法正确的是（   ）

A．信息自古就有，但信息技术是近代才出现的

B．信息具有共享性，因此载体的破坏不会导致信息的丢失

C．信息具有时效性，时间越长信息的价值就越低

D．在一定程度上，社会的发展速度取决于人们感知信息、利用信息的广度和深度

（加试题）用UltraEdit软件观察“DIY创新活动2”这几个字的内码，如图所示：

下列说法正确的是（   ）

A．图中字符“Ｉ”的内码为：“C4”

B．图中“ＤＩＹ创新活动2”内码共12字节

C．图中“2”使用的是全角字符，占2个字节

D．由图中内码可以推测“活动3”的内码为“BB EE B6 AF 33”

用 WinHex 软件观察字符内码如图所示，汉字“秋”的国标码是
（汉字国标码＝汉字内码－8080H）
 

A．C7EFH

B．577FH

C．5C6CH

D．476FH

某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是

A．2，True

B．3，True

C．2，False

D．3，False

有如下Visual Basic程序段：
S=0：k=1
Do　while　k <=4
　If 8/k >=3 Then s=s＋k
　k=k＋1
Loop
该程序段运行后，变量s和k的值分别是（ ）

A．3 , 3

B．5,4

C．3,5

D．4，5

某算法的部分流程图如图所示，执行这部分流程后，变量a、b、c的值分别是(   )

A．3  6  9

B．4  6  9

C．3  24  33

D．4  24  33

某VB程序设计界面如下题图所示，下列说法正确的是（　  ）

①工程文件是“工程1 .vbp”    ②将text属性值删除，图中①处将不会显示“Ｔext1” 
③该窗体中共有3个对象 ④窗体名称是“整除问题”

A．①②

B．②③

C．①③

D．②④

VB中，能够正确表示代数式的是 ( 　 )

A．x^3+1/abs(x)+sqr(x)	B．(x^3+1)/abs(x)+sqr(x)
C．x^3+1/(abs(x)+sqr(x))	D．(x^3+1)/(abs(x)+sqr(x))

《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，

VB程序段如下：
Private Sub Command1_Click()
k = 0 '用来计数
Max = 600     '指定范围600以内
n = 9
Do While n <= Max
Loop
Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"
End Sub
方框中的代码由以下五部分组成：
① n=n+7
② k = k + 1
③ List1.AddItem Str(n)
④ End If
⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then
代码顺序正确的选项是（ ）

A．⑤①②③④

B．②⑤③①④

C．⑤③②④①

D．⑤①③④②

某算法流程图如图所示，执行该算法，输出n的结果是（   ）

A．4

B．8

C．12

D．18

在VB中，如果定义变量X的值为4，变量Y的值为3，则下列哪个表达式的值为真? （   ）

A．X\Y=X mod Y

B．Int(X/Y)=Abs(X/Y)

C．Sqr(X^2)<>X

D．X+Y=Str(X)+Str(Y)

在“画图”程序中绘制一张分辨率为1200*800的BMP格式宣传画，发现图像大小不合适，对图像进行了如图所示操作，按BMP格式保存后图像的存储容量是703kB。则该图像的每个像素需要的二进制位数是

A．4 B. 8

B．24

C．32

对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下, 请完善以下两处代码
s=Text1.Text
n=Len(s) 's是待判断的字符串
k=0:j=n
For i=1 to n\2
c1=Mid(s,i,1)
c2=Mid(s,j,1)
If c1 <> c2 Then k = k+1: Exit For
j=①___________
Next i
If ②__________  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

一个大于1的自然数，除了1和它本身外，不能被其他自然数整除的数称为质数又称素数，下列程序用来判断文本框1中输入的数是否素数，请完善以下三处代码。
Dim i As Integer, m As Integer ,flag as Boolean
m = ①______________
flag= ②_____________
For  i = 2  To  int(sqr(m)) 
If ③____________   Then
flag=false
Exit For
End if
Next  i 
If flag=true Then 
Text2.Text = str(m) +"是素数" 
Else 
Text2.Text = str(m)  +"不是素数"
End if

利用格里高利公式 求 ，直到最后一项的值小于0.0001为止，输出的值。
Private Sub Command1_Click()
Dim Pi As Single, t  As Single
Dim n As Integer, s As Integer
Pi = 0
t = 1: n = 1:s =1
Do While Abs(t) >= 0.0001
Pi = Pi + s * 1 / n
n =①___________
s= ②___________
t = s / n
Loop
Text2.Text =③___________
End Sub

在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如图所示：

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Long, m As Integer
Dim a(0 To 9) As Integer
n = Val(Text1.Text)
List1.Clear
For i = 0 To 9
a(i) = 0
Next i
Do While n > 0
t = n Mod 10
a(t) = a(t) + 1
①_____________
Loop
m = a(0)
For i = 1 To 9
If a(i) > m Then m = a(i): k = i
List1.AddItem Str(i) & "：" & Str(a(i)) & "个"
Nextｉ
Label2.Caption = "出现最多的数字是：" + ②_______________
End Sub

小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示： 

(1)自摘收费程序所用的算法是_____________（填：解析算法/枚举算法）。
(2)为实现上述功能，请在划线①和②处填入合适的代码。
Dim m As Integer
Private Sub Command1_Click() 
Dim n As Integer, s As Integer
Dim w As Single, f As Single
n = Val(Text1.Text) '输入大人人数n
w = Val(Text2.Text)     '输入重量w
f = 20 * n + 10 * w '计算无优惠的费用f
s = 0
For i = 1 To m '计算桔子总数
s = s + i * i
Next i
If  s= ①__________  Then '判断是否拿到优惠计算费用
f = f * 0.5 + s * 0.3 '计算优惠后的费用
Label7.Caption = "恭喜你，这是优惠后的费用！"
Else
Label7.Caption = "很遗憾，你没有算对哦！"
End If
Label4.Caption = Str(f) '输出最后的费用f
End Sub
Private Sub Form_Load()
Randomize
m = ②________________ '随机产生15层及以内的桔子层数（0不算）
Text3.Text = Str(m)
End Sub
（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用__________元。