一个三位正整数，它是一个奇数，它的百位数、十位数、个位数之和为9的倍数，例如225。试求所有满足上述条件的数的和。
（1） 我们可以用_____算法来完成本题。
（2） 假设我们通过某一方法得到一个三位数X各位数字之和为S，如何判断S是9的倍数？写出VB语言的关系表达式______________
（3） 用VB语言完成本题。__________

编程找出四位整数abcd 中满足下述关系的数：（ab+cd)(ab+cd)=abcd。小明编写了一个此问题求解的 VB程序，单击“求解” 命令按钮 Command1，在列表框List1中显示结果，如（20+25）*（20+25）=2025，则在列表框显示“2025”（注：双引号不显示）。程序设计界面如图所示：

(1)如图所示，小明通过设置“ 求解” 命令按钮 Command1 的____________ （单选,填字母：

A．Caption

B．Font

C．Height ）属性设置文字“求解” 为斜体。

(2)为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Commandl_Click()
Dim i As Integer
Dim k As Long, m As Long, n As Long
For i = 1000 To 9999
m = i \ 100
n =___________________
k = (m + n) * (m + n)
If k = i Then
_______________________
End If
Next i
End Sub
(3) 由上述算法可知，“3025”这个四位数__________(选填：会/不会）在列表框 List1 中显示。

（加试题）火柴棒等式。用火柴棒可以摆出0-9的数字，摆放规则如下图所示：

有一种火柴棒游戏，将火柴棒摆成形如“A+B=C”的火柴棒等式。用n根火柴棒摆放数学等式的规则约定如下：
（1）A、B都是不大于1000的正整数，若数值非零，则最高位不能是0  
（2）摆放“+”与“=”各使用两根火柴棒
（3）A+B=C 与 B+A=C 视为相同的等式
（4）n根火柴棒必须全部用上
小明依据上述规则使用VB编写程序，研究“使用n根火柴棒，可以摆放出哪些不同的等式”，代码如下所示。请回答下列问题。
（1）请在划线处填入合适的代码。①__________，②__________，③________；
（2）某次运行程序时，显示的等式中包含“7+17=24”，根据程序分析，输入的n的值为：______。
Dim sz(0 To 9) As Integer   ’数组元素sz(i)用于存储数字i所使用的火柴棒的数量
Private Sub Form_Load()
sz(0) = 6  :  sz(1) = 2  :   sz(2) = 5  :   sz(3) = 5  :  sz(4) = 4
sz(5) = 5  :  sz(6) = 6  :   sz(7) = 3  :   sz(8) = 7  :  sz(9) = 6
End Sub
‘自定义函数hcs用于求解摆放数字x需要使用的火柴棒数量
Function hcs(ByVal x As Integer) As Integer  
Dim s As Integer，k as integer
s = 0
Do While ①
k = x Mod 10
s=s+sz(k)
x = x \ 10
Loop
hcs = s + sz(x)
End Function
Private Sub Command1_Click()
Dim n As Integer
Dim a As Integer, b As Integer, c As Integer
n = Val(Text1.Text)
ans = 0
List1.Clear
For a = 0 To 999
For b =   ②    To 999
c = a + b
If     ③ Then    
List1.AddItem (Str(a) + "+" + Str(b) + "=" + Str(c))
ans = ans + 1
End If
Next b
Next a
List1.AddItem ("共有" + Str(ans) + "种等式")
End Sub

编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Commandl，在列表框Listl中显示n个两数之和小于100的加法练习题。程序运行界面如图1所示。

图1 图2
（1）在设计程序界面时，应使用图2所示“控件工具箱”中的________（填写相应编号）添加“生成”按钮。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim n As Integer, i As Integer, a As Integer, b As Integer

Randomize

n = Val(Text1.Text)

i = ________

Do While i <= n

    a = Int(Rnd * 100)

    b = Int(Rnd * 100)

    If _____ Then

List1.AddItem "(" + Str(i) + ")" + Str(a) + "+" + Str(b) + "="

i = i + 1

    End If

Loop

End Sub
（3）运行该程序，在文本框中输入5，单击“生成”按钮后，对语句a = Int(Rnd * 100)执行次数的描述，最合理的是________（单选，填字母：

A．执行次数等于5 /

B．执行次数大于等于5 /

C．执行次数小于等于5）

用 VB 编写统计某字母开头的单词个数的程序。程序功能：在文本框 Text1 中输入待统计的句子，在文本框 Text2 中输入某字母，单击“统计”按钮Command1后，将结果显示在Label3中。输入要求：句子以“.”结束；单词之间用空格分隔，单词没有缩写或其他特殊形式。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, n As Integer,b As Integer
Dim c As String, t As String, s As String, f As Boolean
s = Text1.Text
t = Text2.Text
b = Len(s)
f = True
For i = 1 To b
c = Mid(s, i, 1)
If  ① Then
n = n + 1
② 
ElseIf c = " " Or c = "." Then
③          
Else
f = False
End If
Next i
Label3.Caption = "以" + t + "为开头的单词个数：" + Str(n)
End Sub
为实现上述程序，空格处应填入的代码是（   ）

A．① f And c = t ② f = False     ③ f = True

B．① f = False And c = t   ② f = False     ③ f = True

C．① c = t     ② f = True   ③ f = False

D．① f = True And c = t   ② f = True ③ f = False