题库 高中信息

题干

编写“因子分解”程序,实现如下功能:在文本框 Text1 中输入一个大于 1 的正整数,单击“求因子” 按钮 Command1,在列表框 List1 中显示该数的所有因子,以及所有因子之和。程序运行界面如图所示。

(1)代码“Private  Sub Command1Click()”中的 Command1Click 是________。
(单选,填字母:
A.对象名B.事件名C.事件处理过程名)
(2)实现上述功能的 VB程序如下,请在划线处填入合适的代码。
Private Sub Command1Click()
Dim sum As Integer
Dim n As Integer, i As Integer
n = Val(Text1.Text)
List1.Clear
sum = 1
List1.AddItem Str(sum)
For i = 2 To Int(Sqr(n))
If ①________Then
sum = sum + i
List1.AddItem Str(i)
If i <> n / i Then
sum = ②_____ 
List1.AddItem Str(n / i)
End If
End If
Next i
List1.AddItem Str(n) + "的所有因子之和是" + Str(sum)
End Sub
(3)运行该程序,在文本框中输入 9,单击“求因子”按钮后,所有因子之和是________。
上一题 下一题 0.99难度 填空题 更新时间:2019-04-21 04:12:04

答案(点此获取答案解析)