应用题

在考生文件夹下有一个工程文件 sjt4.vbp。 请在窗体上添加一个组合框,名称为 cb1, 并输入 3 个列表项: “3” 、 “7” 、 “11” ( 列表项的顺序不限,但必须是这 3 个数字) ; 添加一个名为 Text1 的文本框; 再添加一个标题为“计算” 、 名称为 C1 的命令按钮, 如图所示。 请编写适当的事件过程, 使得在程序运行时, 在组合框中选定一个数字后, 单击“计算” 按钮, 则计算 5000 以内能够被该数整除的所有数之和, 并放入 Text1 中。 最后, 按原文件名存盘。
提示: 由于计算结果较大, 应使用长整型变量。
注意: 考生不得修改窗体文件中已经存在的程序, 在结束程序运行之前, 必须至少进行一次计算。 并且必须用窗体右上角的关闭按钮结束程序, 否则无成绩。

【正确答案】

步骤 1: 打开本题工程文件, 按照题目要求建立控件并设置组合框控件属性, 如图 3 所示。 程序中用到的控件及属性见表 4。


                                图 3

表 4

控件 文本框 组合框 命令按钮
属性 Name Name list Name Caption
设置值 Text1 cb1 11, 3, 7 C1 计算

步骤 2: 打开代码编辑窗口, 在代码编辑窗口指定位置编写以下代码:

【答案解析】