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

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

admin2019-03-14  22
问题 (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=0 Then fun=s 步骤2：按要求将文件保存至考生文件夹中。 (2)步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码： For k=List1．ListCount-1 To 0 Step -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/keN0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)