在VB数组说明语句Dim d(3 To 8，4 To 9)As Boolean中，数组d的变量类型是(  )

A．长整数型	B．字符串型
C．单精度实数型	D．逻辑型

编写“鞋码换算”程序，实现如下功能：在文本框 Text1 中输入脚长 n(单位：厘米)，单击“换算”按钮 Command1，在标签 Label1 中显示相应鞋码，同时在列表框 List1 中显示与脚长对应的标准鞋码表。程序运行界面如图所示。

(1)如图所示，能生成运行界面中列表框的控件是（   ）

A．

B．

C．

D．

(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Single, i As   ①  , c As Integer
List1.Clear
n =" Val(Text1.Text)"
If n - Int(n) > 0.5 Then 
 
‘n小数部分大于0.5的加1，0.5及以下的加0.5
End If    
c =" n" * 2 - 10
Label1.Caption = "适合你的鞋码为：" + Str(c)
For i =   ③   To n+2  step 0.5
c = i*2-10 
If Int(i) =" i" Then
List1.AddItem Str(i) + " " + Str(c)
Else
List1.AddItem Str(i) + "    " + Str(c)
End If
Next i
End Sub

有一数组a (1 to 6) ，其数值分别为44、38、78、37、96、69想要从小到大排序，编写如下程序代码：
Dim flag As Boolean  'flag值为True表示某一遍加工中发生过交换
i = 1：n=6
flag = True
Do While i <=" n" - 1 And flag = True 
flag = False
For j =" n" To i + 1 Step -1
If a(j) < a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
flag = True
End If
Next j
i =" i" + 1
Loop
以上代码在整个排序过程中, 数组中的数据比较次数和交换次数分别是（  ）

A．9次和4次	B．9次和6次
C．12次和6次	D．15次和12次

以下合法的变量名是（ ）

A．A-B

B．for

C．a_1

D．4S

在VB中，若x=16，y=5，则表达式x-y Mod 3^2 的值是  ( )。

A．0

B．9

C．10

D．14

给数组a赋值如下表，运行i=2 : i=i*i之后，读取a(i)的值为

A．7.9

B．8.4

C．7.6

D．7.8

（加试题）有如下程序段：
Dim i As Integer, Sum As Integer
Dim a(1 To 11) As Integer
Sum = 6
a(11) = 49
For i = 10 To 1 Step -1
a(i) = a(i + 1) - 1
If a(i) Mod 3 = 0 Then Sum = Sum + a(i)
Next i
Text1.Text = Str(Sum)
该程序段运行后，文本框text1中显示的内容是

A．174

B．180

C．36

D．42

（加试题）计算机的基本功能是计算，信息加工处理本质上都是通过计算完成的。现有一图像模糊处理的算法，以10*10像素图像的模糊处理为例，具体算法如下：
（1）各像素点的颜色信息值（介于0至255之间的一个正整数），存储至数组a中。
（2）给定模糊处理的模糊中心位置p和模糊半径r（r>1），中心位置p即为半径为1的区域，
①确定模糊中心点在如下数阵中的位置。若模糊中心为36时，该模糊中心在数阵中对应位置为第4行第6列；

②根据中心点和模糊半径确定模糊处理的像素点的范围。
（3）依序将模糊处理范围内的像素点进行模糊处理。模糊处理的方式为：最外侧的像素点颜色信息不变，中间各像素点的新颜色信息值为该像素点上下左右相邻四个像素点颜色信息值的平均值。
程序运行时，在文本框Text1中输入模糊的中心点p，在文本框Text2中输入模糊的半径r，窗体加载，通过列表框List1输出图像模糊处理前的信息，单击命令按钮Command1后通过列表框List2输出模糊后的图像信息。程序运行效果如图2所示。相应的模糊中心位置由椭圆圈注，中间各像素点由矩形框圈注

实现上述功能的VB程序如下。请回答下列问题：
（1）若以a(48)为模糊中心，布置成如第17题图1所示数阵后模糊中心处于数阵的第________行。
（2）请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n * n) As Integer  '介于0至255之间的值，存储10*10图像像素点的颜色信息
Private Sub Form_Load()
'读取100个正整数，存储在数组a中以表示10*10图片的像素点颜色信息，代码略。
'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List1中，代码略。
End Sub
Private Sub Command1_Click()
Dim r As Integer, p As Integer
Dim i As Integer, j As Integer, k As Integer
p = Val(Text1.Text) ：r = Val(Text2.Text)
①________
i = 1
Do While j > n
j = j - n
i = i + 1
Loop
'确定模糊处理的范围，处理范围的起始行，结束行，起始列，结束列保存到i1，i2，j1，j2中，代码略
For i = i1+1 To i2-1    '中间像素点的模糊处理
For j = j1+1 To j2-1
②________
a(k) = ave(k)
Next j
Next i
'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List2中，代码略。
End Sub
Function ave(k As Integer) As Integer
ave = ③________
End Function

（加试题）小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个VB程序功能如下：在文本框Text1中输入需随机生成的坐标点数量，单击“生成”按钮Command1后，在列表框List1中生成相应数量的坐标点（坐标值为大于等于1小于10的实数 ，保留一位小数），在文本框Text2中输出路径值。程序界面如图所示。

实现上述功能的VB程序如下，但划线部分代码有错，请改正。
Private Sub Command1_Click()
Dim x(1 To 100) As Single, y(1 To 100) As Single
Dim tmp As Single, length As Single, sum As Single, x1 As Single, y1 As Single
Dim i As Integer, j As Integer, k As Integer
Randomize 
List1.Clear
k = Val(Text1.Text)
For i = 1 To k
x(i) = Int(Rnd * 90) / 10 + 1
y(i) = Int(Rnd * 90) / 10 + 1
List1.AddItem "X:" + Str(x(i)) + "   " + "Y:" + Str(y(i))
Next i
For i = 1 To k - 1
For j = 1 To k - i
If x(j) > x(j + 1) Then
x(i)=x(i) + x(j)
x(j) = x(i) - x(j)
 x(j) = x(i) + x(j)   答：________________
tmp = y(j)
y(j) = y(j + 1)
y(j + 1) = tmp
End If
Next j
Next i
sum = 0: length = 0
For i = 1 To k - 1
 x1 = (x(i) - x(1)) ^ 2     答:______________    
'变量y1计算方法同x1，代码略
length = Sqr(x1 + y1)
sum = sum + length
Next i
Text2.Text = Str(Int(sum * 10) / 10)
End Sub

如图所示的流程图片断，该流程图执行过后，A、B的值分别为(   )

A．A是20，B是30

B．A 是20，B是20

C．A是30，B是30

D．A是30，B是20