编写VB程序，实现如下功能：在文本框Text1中输入一个大于1000的正整数，单击按钮Command1后会去除其中3个数字，保证余下的数字在不改变顺序的情况下其数值最大，然后在文本框Text2中输出该数。

Private Sub Command1_Click()
Dim s As string
Dim n As Integer,w As Integer
s=Text1.Text
For i=1 To 3

n=Len(s):w=1

For j=2 To n

If ________ Then w=j Else Exit For

Next j

s=Mid(s,1,w-1)+Mid(s,w+l,n-w)

Next i
Text2.Text=s
End Sub
画线处的正确代码为（   ）

A．Val(Mid(s,w,1))<=Val(Mid(s,j,1))

B．Val(Mid(s,j,1))<=Val(Mid(s,j+1,1))

C．Val(Mid(s,w,1))>=Val(Mid(s,j,1))

D．Val(Mid(s,j,1))>=Val(Mid(s,j+1,1))

如果一个整数是另一个整数的平方，则称该数是“完全平方数”。如：1=1×1，4=2×2，9=3×3，所以1、4、9是完全平方数。编写程序，统计100到10000之间的所有完全平方数的和。（4分）

求满足首尾两个数字相等的所有四位正整数之和。
（1）写出能表示“一个四位正整数X的千位数字和个位数字相等”的VB表达式
_______________________________________________________________
（2）将下列程序填写完整，求所有满足上述条件的四位正整数之和
Dim x as integer,p1 as integer,p2 as integer,s as long
S=0
Print “s=”;s
______________________________________________________________

请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j =   （1） To n
If a(i) < a(j) Then
k = a(i):  （2）  : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(    (3)  )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
①程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是    。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。

执行程序后，a数组各元素是（  ）
Dim a(1 To 7) As Integer
a(1) = 14: a(2) = 15: a(3) = 0: a(4) = 11: a(5) = 13: a(6) = 21: a(7) = 17
i = 6: flag = True
Do While i > 1 And flag
If a(i) Mod 3 = 0 And a(i) <> 0 Then
t = a(i): a(i) = a(i + 1): a(i + 1) = t
ElseIf a(i) = 0 Then
flag = flase
ElseIf a(i + 1) Mod 2 = 1 Then
a(i) = Abs(a(i) - a(i + 1))
End If
i = i - 1
Loop

A．14,0,15,4,17,13,21	B．14,15,0,11,4,17,21
C．15,14,0,11,4,17,21	D．14,15,0,11,13,4,17