2. 计算机
  3. (1)在考生文件夹下有一个工程文件sj3．vbp。相应的窗体文件名为sj3．frm。请装人该文件．在窗体上画一个列表框和一个文本框，名称分别为Listl和Textl。 编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加

(1)在考生文件夹下有一个工程文件sj3．vbp。相应的窗体文件名为sj3．frm。请装人该文件．在窗体上画一个列表框和一个文本框，名称分别为Listl和Textl。 编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加

admin2009-03-26  57
问题 (1)在考生文件夹下有一个工程文件sj3．vbp。相应的窗体文件名为sj3．frm。请装人该文件．在窗体上画一个列表框和一个文本框，名称分别为Listl和Textl。
    编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加到列表框中(内容任意，不少于3个)，如图17—3所示；如果双击Listl的某一项则将其从列表框中删除，如图17—4所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。

    注意：去掉程序中的注释符“’”，把程序中的“?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sj4．vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n；单击“计算”按钮．则计算1!+2 !+3 !…+n!的值，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生文件夹下的out4．dat文件中。程序运行时的窗体界面如图17—5所示。
    文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编写”计算”按钮的Click事件过程。

    注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后将修改后的文件按原文件名存盘。
选项
答案(1)根据题意，将一个ListBox控件和一个Text控件添加到窗体上，ListBox的名称为Listl，Text的名称为Textl，Text属性为空。双击Listl进入代码窗口，编写如下代码： Private Sub Listl_DblClick() Listl．Removehem(Listl．Listlndex) ’双击删除选中项 End Sub Private Sub Textl_DblClick() ’双击Text调用的函数 If Textl．Text◇""Then Listl.Addhem Textl．Text’当Textl中有内容则添加到Listl中 End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题主要考查Val()函数、InputBox()函数、MsgBox()函数、命令按钮的Enabled属性以及文件操作。根据题意，编写如下代码： Dim n As Integer Private Sub Commandl_Click() n=Val(InputBox("请输入整数(8—12)"，"输入")) If n>12 Or n<8 Then MsgBox("数据错误，请重新输入") Command2．Enabled=False Command3．Enabled=False Else Command2．Enabled=True Command3．Enabled=True End If End Sub Private Sub Command2_Click() Dim S As Long，k As Integer 考生应编写的程序 s=0 For k=1 To n s=s+f(k) Next Textl=S End Sub Function f(n As Integer)As Long s=1 For k=2 To n s=s*k Next f=s End Function Private Sub Command3_Click() Open App．Path&"＼out4．dat"For Output As#1 Print#1，n，Textl Close#1 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/7V1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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