在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合框,名称为Cbl,并输入三个列表项:”3”、”7”、”11”(列表项的顺序不限,但必须是这三个数字);画一个名为Textl的文本框;再画一个标题为”计算”、名称为Cl的命令按钮,如图2-16

admin2013-10-18  28

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

选项

答案步骤1:打开考生文件夹下的本题工程文件sjt4.vbp。步骤2:在窗体Forml中加入一个组合框、一个文本框和一个命令按钮,分别设置它们的相关属性,其属性及值如表3-96所示。 [*] 步骤3:双击窗体Forml中的”计算”按钮,打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Cl_Click( ) Dim n As Integer,k As Integer,s As Long n=Val(Cbl.Text) s=0 For k=n To 50 00 If k/n= Int(k/n)Then s = s + k End If Next k Textl.Text=s End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键键运行程序,从列表框中选择一项,单击”计算”按钮,单击程序右上角的关闭按钮结束程序。

解析
转载请注明原文地址:https://jikaoti.com/ti/LS60FFFM
0

最新回复(0)