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

admin2010-09-02  25

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图1-6l(a)是输入53后的结果,如图1-61(b)是输入100的结果。已经给出了全部控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容。不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。

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

选项

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

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

最新回复(0)