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

(1)在考生文件夹下有一个工程文件sjt3．Vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。 要求：请

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

    (2)在考生文件夹下有一个工程文件sjt4．vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项(如图1所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序，但程序不完整。
    要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim n As Integer Cls ’　？ = InputBox("请输入一个整数") Print "因子数＝"； fun(n) End Sub Function fun(m As Integer) Dim s As Integer s = 0 For k = 1 To Abs(m) / 2 ’　If m Mod k = ? Then 　　　　　　s = s + 1 　　　　　　Print k 　　　　End If Next k ’　？ End Function 程序结束 参考答案 第1个？处填入：n 第2个？处填入：0 第3个？处填入：fun = s 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim k% ’　For k =List1.ListCount - 1 To 0 ? 　　　　If List1.Selected(k) = True Then ’　List2.AddItem ? ’　List1.RemoveItem ? 　　　　End If Next k End Sub Private Sub Command2_Click() Dim k% Text1 = "已经选中的城市有：" For k = 0 To List2.ListCount - 1 Step 1 ’　Text1 = ? & " " & List2. List (k) Next k End Sub 程序结束 参考答案 第1个？处填入：Step －1 第2个？处填入：List1.List(k) 第3个？处填入：k 第4个？处填入：Text1或Text1.Text 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/bbS0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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