2014计算机等级《二级VB》上机考试预测题及答案1

　　三、简单应用题

　　42

　　(1)在考生文件夹下有一个工程文件sj3.vbp，相应的窗体文件名为sj3.frm，请装入该文件，在窗体上画一个列表框和一个文本框，名称分别为List1和Text1。

　　编写适当的事件过程。程序运行后，如果在文本框中输入要添加的项并双击，则将该项添加到列表框中(内容任意，不少于3个)，如图3-3所示;如果双击list1的某一项则将其从列表框中删除，如图3-4所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。

图3-3

图3-4

　　要求：去掉程序中的注释符"'"，把程序中的"?"改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

　　(2)在考生文件夹下有一个工程文件sj4.vbp，窗体如图所示。其功能是单击"输入数据"按钮，则可输入一个整数n(要求： ;单击"计算"按钮，则计算1!+2!+3!…+n!的值，并将计算结果显示在文本框中;单击"存盘"按钮，则把文本框中的结果保存到考生文件夹下的out4.dat文件中。

　　文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编写"计算"按钮的Click事件过程。

　　注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用"存盘"按钮存储计算结果，否则无成绩。最后将修改后的文件按原文件名存盘。

　　图3-5

　　要求：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

　　参考答案:请参考解析 系统解析:(1)根据题意，将一个ListBox控件和一个Text控件添加到窗体上，ListBox的名称为List1，Text的名称为Text1，Text属性为空。双击List1进入代码窗口，编写如下代码：

　　Private Sub List1_DblClick()

　　List1.RemoveItem (List1.ListIndex) '双击删除选中项

　　End Sub

　　Private Sub Text1_DblClick() '双击Text调用的函数

　　If Text1.Text <> "" Then

　　List1.AddItem Text1.Text '当Text1中有内容则添加到List1中

　　End If

　　End Sub

　　单击 按钮运行程序，并按要求保存。

　　(2)本题主要考查Val()函数、InputBox()函数、MsgBox()函数、命令按钮的Enabled属性以及文件操作。

　　根据题意，编写如下代码：

　　Dim n As Integer

　　Private Sub Command1_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

　　Text1 = 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, Text1

　　Close #1

　　End Sub

　　单击

　　按钮运行程序，并按要求保存。

　　相关推荐：

　　2014年全国计算机二级VB上机考试试题汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题