下列程序的功能是( )
PRIVATE  SUB   FORM—CLICK（   ）
S=0  :   M=0
FOR  A=1  TO  100
IF  A  MOD  2 = 0   THEN
S=S+A
ELSE
M=M+1
END  IF
NEXT  A
PRINT   S , M
END    SUB

A．统计1---100间的偶数和

B．统计1---100间的偶数个数

C．统计1---100间的偶数和,奇数个数。

D．统计1---100间的偶数个数,奇数和.

统计1～1 000间个位数是4，且能被9整除的数共有多少个，可以采用的算法是(  )

A．查找算法	B．枚举算法
C．解析算法	D．排序算法

为了安排寝室，需要将学生按性别分类。小陈设计了一个VB程序，运行该程序，单击“数据导入”按钮Command1后，左侧列表框List1中显示40位学生的编号和性别；然后单击“数据处理”按钮Command2，中间列表框List2中显示所有女生的信息，右侧列表框List3中显示所有男生的信息，并在相应的列表框下方显示人数。运行结果如下图所示。

实现上述功能的VB程序段如下，分析回答下列问题。
Dim a(1 To 40) As String  '数组a用于存储学生编号
Dim b(1 To 40) As String   '数组b用于存储学生性别
Private Sub Command1_Click
Dim i As Integer
List1.Clear
List2.Clear
List3.Clear
'在列表框List1中显示40位学生的编号和性别
For i＝1 To 40
.AddItem a(i)＋” ”＋b(i) ①
Next i
End Sub
Private Sub Command2_Click
Dim n As Integer   '用于存储女生人数
Dim m As Integer   '用于存储男生人数
Dim i As Integer
List2.Clear
List3.Clear
n＝0: m＝0
For i＝1 To 40
If  b(i)＝”女”  Then
List2.AddItem a(i)    '在列表框List2中显示女生信息
n＝n＋1
Else
List3.AddItem a(i)    '在列表框List3中显示男生信息

②
End If
Next i
Label1.Caption＝”女生人数：”＋Str(n)
Label2.Caption＝”男生人数：”＋Str(m)
End Sub
(1)小陈将学生的编号和性别分别存放在数组a和数组b中，这段代码书写在窗体的加载事件中，下列属于该事件的是（____）

A．Form_Click	B．Command1_Click
C．Form_Load	D．Form_Unload

(2)①和②加边框处分别有误，根据题意修改源代码，①处应修改为________，②处应修改为__________

下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。

Private Sub Command1_Click()

 Dim i As Integer, m As Integer, n As Integer

    Label1.Caption = "1000以内的完全数如下："

    For i = 1 To 1000

n = 0

For m = 1 To i \ 2

   If i Mod m = 0 Then n = n + m

Next

If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)

    Next

End Sub

该过程采用的算法是（   ）

A．枚举

B．查找

C．排序

D．解析

（加试题）一个简单的四则混合运算式子（算式中只包含整数、+、-、*、/、=）的运算规则是先进行“*”或“/”，再进行“+”或“-”，下列是用 VB编写的简单四则混合运算的程序，运行程序时在文本框 Text1 中输入四则运算式子，单击命令按钮 Command1，在标签Label1 中输出结果。程序界面及代码如下。请回答以下问题。
(1) 若在文本框 Text1 中输入式子“12*5-32/4+20=”，则运行程序后在标签 Label1 中显示的内容是_________。

(2) 请在划线①②③处填入合适的代码，让程序能实现计算功能。
Private Sub Command1Click
Dim a(1 To 100) As Single, b(0 To 100) As String
Dim s As String, c As String   
Dim sz As Integer, i As Integer, k As Integer
s = Text1.Text:k = 0
For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

sz = 0
Do While c >= "0" And c <= "9"
sz= ①________
i = i + 1
c = Mid(s, i, 1)
Loop
k = k + 1: a(k) = sz: b(k) = c
End If
Do While k > 1 And ②________
If b(k - 1) = "+" Then a(k - 1) = a(k - 1) + a(k)
If b(k - 1) = "-" Then a(k - 1) = a(k - 1) - a(k)
If b(k - 1) = "*" Then a(k - 1) = a(k - 1) * a(k)
If b(k - 1) = "/" Then a(k - 1) = a(k - 1) / a(k)
b(k-1) = b(k)
k = k - 1
Loop
Next i
Label1.Caption = "运算的结果是：" + Str(a(1))
End Sub
Function yxj(x As String) As Integer

If x = "*" Or x = "/" Then

yxj = 1

ElseIf x = "+" Or x = "-" Then

yxj = 2

Else

 ③________

End If

End Function