利用程序设计语言编程解决问题的一般顺序是( )

A．编写代码、设计算法、分析问题、调试运行

B．设计算法、分析问题、编写代码、调试运行

C．设计算法、编写代码、分析问题、调试运行

D．分析问题、设计算法、编写代码、调试运行

小明设计了一个VB程序（界面如图所示），随机产生n（n<=100）个大于等于a(a<=100)且小于等于b(b<=100)的整数，并在列表框List1中降序显示。

实现上述功能的VB代码如下：
请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim n As Integer, t As Integer
Dim m(1 To 100) As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
n = Val(Text3.Text)
If  a > b Then t =" a:" a =" b:" b = t
Randomize
①
For i =" 2" To n
m(i) =" Int(Rnd" * (b - a + 1)) + a
If m(i) > m(i - 1) Then
②
For j =" i" - 1 To 1 Step -1
If temp < m(j) Then Exit For
m(j + 1) = m(j)
Next j
③
End If
Next i
For i =" 1" To n
List1.AddItem Str(m(i))
Next i
End Sub
程序①处的代码是
程序②处的代码是
程序③处的代码是

有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3……n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。

实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50)  As Integer
n = Val(Text1．Text)
m = Val(Text2．Text)
For i =" 1" To n
'（1）
Next i
s =" 0:j" = 0
Do While s < n
t = 0
Do While t < m
    '（2）   
t =" t" + a(j)
Loop
a(j) = 0
s =" s" + 1
List1．AddItem "第" + Str(s) + "次：" + Str(j)
Loop
End Sub

某“交换两变量值”的应用程序及VB设计界面分别如图（图中所有对象属性均为默认值）所示，下列说法正确的是（   ）

①窗体中所有对象的属性值只能在设计时修改
②窗体中有10个对象，分别属于4个类
③窗体中显示的 “Label1”是对象的某一属性值
④窗体中显示的 “Command1”对象属于Command Button类

A．①③

B．②④

C．②③④

D．①③④

   现要求编写VB程序（界面如图所示），实现下列功能：计算一个大写字母在26个字母中的位次。程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label2上输出其在26个字母中的位次。

（1）在进行应用程序界面设计时，需要添加“计算”按钮，可使用如下左图所示的“控件工具箱”中的________（填写相应编号），并在右图所示的“属性窗口”中，将________属性值设置为“计算”。
   
（2）该程序的源代码如下，请根据题意将代码中划线处补充完整，使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
__________ = Text1.Text
pos = Asc(ch) – 64
Label2.Caption = "第" +______________ + "个字母"
End Sub