[IT认证]国家二级VB题库.doc

第01套 基本操作题（新模14） （1）在名称为Form1的窗体上画一个名称为Picture1的图片框（PictureBox），高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框（Image）。并通过属性窗口把考生目录下的图标文件Point11（香蕉图标）装入图像框Image1中，如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 （2）在名称为Form1的窗体上画一个名称为Command1、标题为“保存文件”的命令按钮，再画一个名称为CommonDialog1的通用对话框。要求： 1）通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2； 2）运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该通用对话框，如图所示。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。 保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 第01套 简单应用题（新模14） （1）在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件（如图1所示）。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置（如图2所示）；若用鼠标右键单击圆的边线，则指针恢复到起始位置（如图1所示）；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上（判断结果略有误差），是则返回True，否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 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事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存