2. 计算机
  3. (1)在考生文件夹下有一个工程文件Bjt3．vbp，窗体上有两个名称分别为List1、List2的列表框，在List2中已经预设了内容；两个名称分别为C1、C2的命令按钮，标题分别为“添加”、“清除”，如图所示。程序的功能是在运行时，如果选中右边列表框中的

(1)在考生文件夹下有一个工程文件Bjt3．vbp，窗体上有两个名称分别为List1、List2的列表框，在List2中已经预设了内容；两个名称分别为C1、C2的命令按钮，标题分别为“添加”、“清除”，如图所示。程序的功能是在运行时，如果选中右边列表框中的

admin2015-06-30  54
问题  (1)在考生文件夹下有一个工程文件Bjt3．vbp，窗体上有两个名称分别为List1、List2的列表框，在List2中已经预设了内容；两个名称分别为C1、C2的命令按钮，标题分别为“添加”、“清除”，如图所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中，左边列表框中该内容消失。文件中已经给出了所有控件和程序，但程序不完整，请把它补充完整，并能正确运行。
    要求：去掉程序中的注释符，把程序中的?改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。

    (2)在考生文件夹下有一个工程文件sjt4．vbp，请在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10!”、“11!”、“12!”，Index属性分别为0、1、2；再添加一个名称为C1的命令按钮，标题为“计算”；添加一个名称为Text1的文本框，如图所示。程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出其相应的阶乘值，并在Text1中显示该阶乘值。请按题目要求添加上述控件并编写程序。

    注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub C1_Click() Dim k As Integer k = 0 ’　While (k < List2.？) ’　If ？.Selected(k) = True Then 　　　　　　List1.AddItem List2.Text ’　List2.RemoveItem ? 　　　　End If 　　　　k = k + 1 Wend End Sub Private Sub C2_Click() List2.AddItem List1.Text ’　List1.RemoveItem List1.? End Sub 程序结束 参考答案 第1个？处填入：ListCount 第2个？处填入：List2 第3个？处填入：k 第4个？处填入：ListIndex 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件，建立界面并设置控件属性。程序中涉及的控件及其属性见表3.91和表3.92。 [*] 步骤2：分析并编写程序代码。 程序提供代码 窗体代码 Private Sub Form_Unload(Cancel As Integer) unload sub End Sub 模块代码 Sub unload sub() Dim n As Integer, k As Integer For k = 0 To 2 　　　　If Form1.Op1(k)．Value Then 　　　　　　n = Val(Left$(Form1.Op1(k)．Caption, 2)) 　　　　End If Next k Open "out4.dat" For Output As #1 Print #1, n, Val(Form1.Text1.Text) Close #1 End Sub 程序结束 参考答案 Private Sub C1_Click() Dim s As Integer Dim i As Integer Dim j As Integer temp = 1 For i = 0 To 2 If Op1(i).Value = True Then s = Val(Op1(i).Caption) End If Next i For j = 1 To s temp = temp * j Next j Text1.Text = temp End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/TAQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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