用计算机解决问题的过程中，将程序输入到计算机进行检查、调试和运行，得到正确的结果。这一环节是（  ）

A．设计算法

B．分析问题

C．编写程序

D．调试运行程序

问题：在“1390773”号段的 11 位手机号码中，统计出最后两位数字相同的号码个数。如 13907735200、13907738366 是符合条件的两个号码。
算法描述如下图所示。请将程序补充完整。

Private Sub Form_Click() 
Dim a As Integer, b As Integer
Dim i As Integer, s As Integer

s=0

For i=10000 To 19999

a=①_____

b=(i Mod 100)\10

    If a=b Then
s=②____
End If
Next i

Print "最后两位数字相同的号码个数有：" ;③_____ 

End Sub

在VB中，若x=5，y=7，下列表达式的值为True（真）的是（   ）

A．x<=y

B．x-y<y

C．x>2*y

D．x>y Or x=y

如下图所示，要在窗体上添加一个命令按扭，应在工具箱中选择的控件是（  ）

A．

B．

C．

D．

在VB中，下列程序段执行后，输出的结果是（  ）
x=6
y=2
Print  x+y

A．2

B．6

C．8

D．xty

在VB中，下列选项属于字符串型数据的是（  ）

A．5

B．9.8

C．“abc”

D．False

以下程序段的输出结果s是（ ）
s=0
For i=1 To 3

s=s+2

Next i
Print  s

A．0

B．2

C．3

D．6

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个[10，99]的随机整数赋值给a数组，并在列表框ists1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的----依次类推)。在列表list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：
(1)程序测试运行后生成如下文件：(

A．paixu.frm

B．paixu.vbp

C．paixu.vbw

D．paixu.exe)，其中属于windows系统可执行文件是：(单选，填字母：_______)

(2)划线①处应填：__________
(3)加框①、②处代码有错，请改正。
Const n=10
Dim a(1 To 10) As Integer
Private Sub Command1_.Click()
For i=1 To n
    ①
List1.Additem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
tmp= 1
For i=1To n-1
For j=n To i+1 Step-1
If  tmp*(a(j)-a(j-1))>0 Then ①______________________
t=a(j)；a(j)=a(j-1)：a(j-1)=t 
End If
Next j 
tmp=-1 ②______________________
Next i
For i=1 To 10
List2.Addltem Str(a(i))
Next i
End Sub

有如下VB程序段：
Dim x As String，y As String
Dim ans As Integer
x=“5”：y=“20”：ans = 0
If x>y Then ans = Val(x) Else ans = Val(y)
Ans = ans + Val(x+y) 
Text1.Text = Str(ans)
程序运行完后，文本框Text1中显示的是：（  ）

A．25

B．30

C．540

D．525

有如下VB程序段：
s= Text1.Text
For i=1 To Len(s)
c= Mid(s，i，1)
If c>=“0”And c<=“9”Then

m=m+1

Else lf c>=“a”And c<=“z” Then

n=n+1

Else

t=t+1

End If
Next i
Label1.Caption = Str(t)
在文本框Text1输入“as674ER29，86Gu”(不包括双引号)，执行程序后，标签Labell显示：（  ）

A．4

B．6

C．7

D．8