问答题
在考生文件夹中有一个工程文件sj3.vbp和一个窗体文件sj3.frm；窗体上有一个名为Text1的文件框，一个标题为“计算”，名称为Command1的命令按钮和一个组合框。请在名为Combo1的组合框中输入3个列表项：“5”、“9”、“13”(列表项的顺序不限，但必须是这3个数字)，程序运行情况如下图所示。
请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算4000以内能够被该数整除的所有数之和，并放人Text1中。最后按原文件名存盘(提示：由于计算结果较大，应使用长整型变量)。
注意：不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。
请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算4000以内能够被该数整除的所有数之和，并放人Text1中。最后按原文件名存盘(提示：由于计算结果较大，应使用长整型变量)。
注意：不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。
【正确答案】组合框(ComboB0x)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可以在设计阶段通过其List属性加入，加入时注意每输入完一项后，按＜Ctrl+Enter＞组合键换行再输入下一项，也可以通过代码设置，AddItem方法用来向组合框中添加一个表项，其格式为：组合框．Additem列表项[索引]。
题目给出的源程序中已设计好窗体，只需在Combo1的List属性中添加“5”、“9”、“13”三个列表项，添加完成后，双击Command1进入代码窗口，补充后的代码如下：
Private Sub Command1_Click()
If Combo1.Text=5 Then
divide(5)
Else If Combo1.Text=9 Then
divide(9)
Else
divide(13)
End If
End Sub
Private Sub divide(X As Integer)
Dim i As Integer
Dim temp As Long
For i=1 To 4000
If i Mod x=0 Then
temp=temp+i
End If
Next i
Text1.Text=temp
End Sub
单击
题目给出的源程序中已设计好窗体，只需在Combo1的List属性中添加“5”、“9”、“13”三个列表项，添加完成后，双击Command1进入代码窗口，补充后的代码如下：
Private Sub Command1_Click()
If Combo1.Text=5 Then
divide(5)
Else If Combo1.Text=9 Then
divide(9)
Else
divide(13)
End If
End Sub
Private Sub divide(X As Integer)
Dim i As Integer
Dim temp As Long
For i=1 To 4000
If i Mod x=0 Then
temp=temp+i
End If
Next i
Text1.Text=temp
End Sub
单击
【答案解析】