应用题
2. 在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框，名称为cb1，并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这三个数字)；添加一个名为Text1的文本框；再添加一个标题为“计算”、名称为C1的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。
提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
【正确答案】【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图所示。程序中用到的控件及属性见表。
步骤1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图所示。程序中用到的控件及属性见表。
【答案解析】[考点] 本题考点有：文本框的Name属性、组合框的Name和List属性、命令按钮的Name和Caption属性、Val()函数以及Mod取模运算。
本题主要考查组合框的属性及For循环语句的使用。
Mod取模运算就是求余数，例如10 mod 3=1，因为10除以3等于3余1，结果就是余数。如果a mod b=0，则说明a能被b整除，反之如果a rood b＜＞0，则a不能被b整除。
组合框(ComboBox)将文本框与列表框的特性组合在一起，既可以在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可在设计阶段通过其List属性添加，每输入完一项后按＜Ctrl+Enter＞键换行再输入下一项；其Text属性用于设置或返回其文本框部分当前的文本。
根据题意，用For逐一循环5000内的整数，通过If语句的条件表达式：i Mod n=0，判断各个数是否能被n整除，把能被整除的数累加到变量sum。i为循环变量，n的值为Val(Cb1.Text)。
本题主要考查组合框的属性及For循环语句的使用。
Mod取模运算就是求余数，例如10 mod 3=1，因为10除以3等于3余1，结果就是余数。如果a mod b=0，则说明a能被b整除，反之如果a rood b＜＞0，则a不能被b整除。
组合框(ComboBox)将文本框与列表框的特性组合在一起，既可以在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可在设计阶段通过其List属性添加，每输入完一项后按＜Ctrl+Enter＞键换行再输入下一项；其Text属性用于设置或返回其文本框部分当前的文本。
根据题意，用For逐一循环5000内的整数，通过If语句的条件表达式：i Mod n=0，判断各个数是否能被n整除，把能被整除的数累加到变量sum。i为循环变量，n的值为Val(Cb1.Text)。