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

admin2015-06-30  31

问题  (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://kaotiyun.com/show/TAQp777K
0

随机试题
最新回复(0)