小王和小李用VB分别编制了成绩统计程序。但在统计本班成绩时，发现小王编制的程序比小李编制的程序运行速度快，则小李编制的程序中可能存在的问题是

A．编写的代码有错误

B．界面设计的不美观

C．设计的算法不合理

D．使用的控件不合理

编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如第15题图所示。

（1）若要修改窗体背景颜色，可在其属性窗口中______属性的属性值进行修改。
（2）解决这个问题采用的算法是________（填字母：
A.解析算法 
B.枚举算法）
实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, x As Integer, c As Integer
c = 0
For i = 1000 To 9999
x = ①___________
If  ②________ And x = 7 Then
③_____________   '将符合条件的四位数显示在列表框中
num = num + 1
End If
Next i
Label2.Caption = "共有："+ ④______ +"个"
End Sub

【加试题】小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB程序。功能如下：在文本框Text1中输入商品条形码，按回车键后会将已经输入的条形码显示在列表框List1中，同时将商品明细显示在列表框List2中。点击按钮“计算商品总价”后，会将所有商品的总价显示在文本框Text2中。程序界面如图所示：

实现上述功能的部分VB程序如下，请在三个划线处填入合适代码。
'定义全局数组变量
Dim a(1 To 10) As Long
Dim b(1 To 10) As String
'自动加载条形码信息以及对应的商品信息
Private Sub Form_Load()
Dim i As Integer
a(1) = 503741
For i =" 2" To 10
a(i) =" a(i" - 1) + 1
Next i
b(1) = "可乐 5.00"
b(2) = "薯片 7.50"
b(3) = "牛奶 5.60"
b(4) = "橙汁 7.50"
b(5) = "面包 4.00"
b(6) = "蜂蜜 28.00"
b(7) = "蛋糕 12.00"
b(8) = "绿箭 3.50"
b(9) = "饼干 6.00"
b(10) = "雪碧 5.00"
End Sub
'输入条形码，查找条形码，并显示条形码及其对应的商品信息
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim txm As Long:
Dim i As Integer:
Dim j As Integer
txm = Val(Text1.Text)
If KeyAscii =" 13" Then
If txm >=" 503741" And txm <=" 503750" Then
List1.AddItem txm
Text1.Text = ""
i =" 1:" j = 10
Do While i <= j
    ①
If txm =" a(m)" Then
List2.AddItem b(m)
Exit Do
ElseIf txm > a(m) Then
i =" m" + 1
Else
   ②   
End If
Loop
Else
MsgBox "条形码输入错误，无此商品"
Text1.Text = ""
End If
End If
End Sub
'计算所购商品的总额
Private Sub Command1_Click()
Dim i As Integer, mx As String, jg As String, sum As Single
For i =" 0" To 9
If List2.List(i) <> "" Then
mx = List2.List(i)
sum =" sum" + Mid(mx, 4)
End If
Next i
Text2.Text = ③    
End Sub

小刚的支付宝账户密码忘记了，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；
②最后两位数字相同；
③能被12和38整除。
程序界面如图所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。


（1）应用程序界面设计时，添加“list1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的______________（填写相应编号）
（2）解决此问题的相应程序如下，请根据题意将程序补充完整。
Private Sub  Command1_click ( )   
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ________①________  Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
_________②______     
End If
End If
Next i
End Sub

小刘在玩一个数字游戏，给定一个n位正整数（n<=20），根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数34625803，保留4位，最大数为6803。算法是：先确定最高位的数字，在第1位至最后3位数字前的34625中找到最大的数6，从而确定最高位是6，再确定次高位的数字，从6后面的数开始到最后2位数字前的258中找到最大数8，确定次高位是8，依次找下去得到最大新数。他设计了一个VB程序来进行验证，在文本框Text1中输入一个n位正整数，在文本框Text2中输入保留的位数，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。

（1）如果输入的原数是3635132，保留4位数字，则输出的新数是  。
（2）实现上述功能的VB代码如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 20) As String
Dim ys As String, xs As String 'xs记录最大的新数
Dim k As Integer, h As Integer, n As Integer
Dim i As Integer, j As Integer
Dim F As Boolean
xs = ""
ys = Text1．Text
n = Len(ys)
k = Val(Text2．Text)
F = True
If ys = "" Or n > 20 Or k =" 0" Or k > n Then
Label4．Caption = "输入的原数或保留位数不符，请重输！"
F = False
End If
For i =" 1" To n
①    
If a(i) < "0" Or a(i) > "9" Then
Label4．Caption = "输入的原数不是数字，请重输！"
Text1．Text = ""
F = False
End If
Next i
If F =" True" Then
h = 1
For i =" 1" To k
For j =" h" To     ②   
If a(j) > a(h) Then h = j
Next j
xs =" xs" + a(h)
h =" h" + 1
Next i
Text3．Text = xs
End If
End Sub