编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁，a₂，…，a_n，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n。这样a₁，a₂，…，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer
n = Val(Text1.Text)
sum = 0
List1.Clear
For i =" 1" To n ' ①
j =" i" - 1
Do While  sum <=" n" ' ②
j =" j" + 1
sum =" sum" + j
Loop
If sum =" n" Then
List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)
End If
sum = 0
Next i
End Sub

某算法的部分流程图如右图所示，执行这部分流程后，变量a的值是

A．4

B．2

C．1

D．46

某班级学生为毕业晚会的一个节目设计一个仿“V”字造型，先筛选出班级里所有男生，然后将参演的n名男生按照身高，摆出中间低两边高（先右后左）的造型，如图1 所示。王林同学用VB编写模拟“节目造型”程序，功能如下：从数据库中导出所有学生编号、性别和身高数据；单击“筛选排序”按钮Command2，根据身高仿“V”字和造型进行有序排列，并将结果显示在文本框Text2 中。程序运行界面如图2
所示。举例说明如下：

原1-7号男生身高	171 172 180 174 176 179 178
筛选排序后序列	171 172 174 176 178 179 180
“造型设计”后序列	180 178 174 171 172 176 179

 

图1
身高顺序：男3号〉男6号〉男7号〉男5号〉男4号〉男2号〉男1号

图2
Const n = 7
Dim h2(1 To n) As Integer
Dim height1(1 To n) As Integer
Dim height2(1 To n) As Integer
Dim i As Integer, j As Integer, temp As Integer
Dim sex(1 To n) As Boolean '男生sex=true
Private Sub Form_Load()
'n名学生的身高和性别由数据库导出，分别存储在数组height1 和sex中，代码略！
End Sub
Private Sub Command1_Click()
For i =" 1" To n - 1
For j =" n" To i + 1 Step -1
If ①  Then
temp =" height1(j):" height1(j) =" height1(j" - 1): height1(j - 1) = temp[:学#科#网]
End If
Next j
Next i
For i =" 1" To n
Text1.Text =" Text1.Text" + " " + Str(height1(i))
Next i
End Sub
Private Sub Command2_Click()
Dim left, right As Integer, i As Integer, mid As Integer
mid =" Int((1" + n) / 2)
left =" 0:" right = 0
②
For i =" 2" To n Step 2
right =" right" + 1
height2(mid + right) = height1(i)
left =" left" + 1
③
Next i[ZXXK]
For i =" 1" To n
Text2.Text =" Text2.Text" + " " + Str(height2(i))
Next i
End Sub

每一个小写英文字母的 ASCII 码都比相对应的大写英文字母的 ASCII 码要大 32。编写 VB程序，实现如下功能：在文本框 Text1 中输入一串字符，单击“转换”按钮后，在文本框 Text2 中输出经过大小写字母互换的字符串， 其它非英文字母的字符均保持不变， 同时在 Label3 中输出字符的总个数及经过大小写互换的英文字母个数，运行界面如图所示，

（1）要使程序运行时窗体的标题显示为“大小写字母转换”,则需在事件处理过程中编写代
码“Form1.Caption = "大小写字母转换"”。 （单选，填字母：

A．Form1_Click /

B．Form_Load /

C．Command1_Click /

D．Command1_DblClick ）

（2）为实现上述功能，程序代码如下，请完善代码。
Private Sub Command1_Click()

有如下Visual Basic程序段：
Dim a(1 To 7) As Integer, i As Integer, j As Integer, k As Integer, c As Integer
a(1) =" 3:" a(2) =" 9:" a(3) =" 1:" a(4) =" 5:" a(5) =" 8:" a(6) =" 6:" a(2) = 2
s = ""
For i =" 1" To 3
For j =" i" + 1 To 7
If a(j) < a(i) Then
k =" a(j):" a(j) =" a(i):" a(i) = k
c =" c" + 1
End If
Next j
s =" Str(a(i))" + s
Next i
text1.Text =" Str(c)" & “:” & s
该程序段运行后,文本框Text1中显示的内容是

A．5:6 8 9

B．3: 9 8 6

C．3:1 2 3

D．5:3 2 1

设有n盏灯，放在一排。从1到n依次顺序编号。有n个人也从1 到n依次编号。第1 个人（1号）将灯全部关闭，第2 个人（2号）将2 的倍数的灯打开，第3个人（3号）将编号为3 的倍数的灯做相反处理（该灯如果已打开，则将它关闭；如为关闭则将它打开），以后的人和3号一样，将编号为自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的（亮灯为0，关闭为1）。程序代码如下：
Private Sub Command1_Click()
Const n = 20
Dim i As Integer, j As Integer
Dim a(1 To n) As Integer[:学&科&网]
For j =" 1" To n
a(j) = 0
Next j
For i =" 1" To n
For j =" 1" To n
If①  then
②
End If
Next j
Next i
For j =" 1" To n
If a(j) =" 0" Then list1.AddItem Str(j)
Next j
End Sub
为了实现程序该功能，在画线处填写正确代码。
①   ②

下列程序执行后，整型变量s的值为（ ）
s=0
For i=" 1" To 5
s =" s" + i
Next i

A．5

B．15

C．20

D．9

某地一户一表居民实施阶梯式水价方案。阶梯水价计量分三级，第一级为18立方米以下，每立方米按2.4元计价；第二级为18至31立方米，每立方米按3.35元计价；第三级为31立方米及以上，每立方米按4.30元计价。如图2-1-38所示算法用于根据用水量V（立方米）计算水价s(元)。
流程图如图所示，①中应入填写的是 ，③中应该填入的是 。

编写一个文件index.css，并通过<link href="index.css" rel="stylesheet" type="text/css">指定一个样式表文件来实现整个网站的统一风格，这种效果采用了（ ）。

A．VBScript

B．JavaScript

C．内部样式表

D．外部样式表

有一种数字，正读倒读都一样，如：98789，倒读也是98789，这样的数被称为回文数。
（1）程序填空。下面的程序代码，用于寻找三位数中的所有回文数，并且每行输出5个回文数。请将程序补充完整。
Dim i As Integer,x As Integer, y As Integer, N As Integer
N = 0
For i =" 100" To ___①___
x =" i" \ 100
y =" i" Mod 10
If ___②___ Then
N =" N" + 1
If ___③___  Then
Print i
Else
Print I,
End If
End If
___④___
（2）上述程序中应用了哪几种程序结构？
（3）上述程序在寻找三位数中的所有回文数时，采用了什么算法？利用这种算法编写程序通常应用什么语句？