(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3—158(a)是输入53后的结果,如图3—158(b)是输入100的结果。已经给出了全部控件

admin2017-03-27  46

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3—158(a)是输入53后的结果,如图3—158(b)是输入100的结果。已经给出了全部控件和程序,但程序不完整。

要求:请去掉程序中的注释符,把程序中的?改为正确的内容。不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图3—159(a)所示,单击“选中”按钮则把选中的项目移到List2中;单击“显示”按钮,则在Text1文本框中显示这些选中的城市,如图3—159(b)所示。已经给出了所有控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

选项

答案第1小题 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: n=InputBox("请输入一个整数") If m Mod k=0Then fun=s 步骤2:按要求将文件保存至考生文件夹中。 第2小题 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: For k=List1.ListCount-1To0Step-1 List2.AddItem List1.List(k) List1.RemoveItem k Text1=Text1&" "&List2.List(k) 步骤2:按要求将文件保存至考生文件夹中。

解析 第1小题:本题源程序在“输入整数”按钮的单击事件过程中,将接收到的数值赋给变量n,并通过调用函数fun,在窗体上显示其所有约数因子,并返回约数因子的个数。函数fun利用一个For循环逐一判断参数m能否被1~Abs(m)/2间的整数整除,若能整除,则其为m的一个约数,将其刚Print方法显示在窗体上,并将记录约数因子个数的变量s加1。循环结束时将s作为函数返回值。
第2小题:在“选中”按钮的单击事件中,由List1的最后一项依次向前进行遍历判断是否被选中,最后一项的索引值是ListCount-1,第一项的索引值是0,所以应该是反向循环,步长为-1:在循环体中如果该项被选中,则将其加入List2中,同时在List1中删除这一项。
在“显示”按钮的单击事件中,通过一个For循环依次取出List2中的每一项并将其连接到Text1中。
转载请注明原文地址:https://jikaoti.com/ti/Ygy0FFFM
0

最新回复(0)