阅读分析以下VB程序,该程序采用的算法是_______。
Private Sub Command1_Click()
Dim x As Integer, c As Integer, i As Integer
x = Val(Text1.Text)
c =" 0"
A.解析 For i =" 1" To x If x Mod i = 0 Then | B.查找 c =" c" + 1:Zxxk.Com List1.AddItem Str(i) | C.排序 End If Next I | D.枚举 |
Text2.Text = Str(c)
End Sub