上机考试不用愁,年全国计算机二级VB上机考试题库及答案word版本.doc

第一、Const y0 = 1110, x0 = 1100, radius = 750 Private Function oncircle(X As Single, Y As Single) As Boolean precision = 55000 If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) precision Then oncircle = True Else oncircle = False End If End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Const LEFT_BUTTON = 1 If oncircle(X, Y) Then Line1.X1 = x0 Line1.Y1 = y0 If Button = LEFT_BUTTON Then Line1.X2 = X Line1.Y2 = ? ***** Y ***** Else Line1.X2 = Line1.? ***** X1 ***** Line1.Y2 = y0 - ? ***** radius ***** End If Label1.Caption = Else ? = 鼠标位置不对 ***** label1.caption ***** End If End Sub （2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n（要求：8=n=12）；单击“计算”按钮，则计算1!+2!+3!+…….+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容，并编写“计算”按钮的Click事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。 Dim n As Integer Private Sub Command1_Click() n = Val(InputBox(请输入整数（8-12）, 输入)) If n ? Or n 8 Then ***** 12 ***** 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=1 For k=2 to n S=s+f(k) Next k Text1.text=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 第01套 综合应用题（新模14） 在考生文件夹下有一个工程文件sjt5.vbp，含三个