● 某企业承担一个大型信息系统集成项目，在项目过程中，为保证项目质量，采取了以下做法，其中（48）是不恰当的。（48）

在窗体上有2个图片框，名称分别为Picture1和Picture2，Picture2中添加了香蕉图片(见图3)，且将Picture2．DragMode属性设置为1。要求程序运行时，可以用鼠标把Picture2拖拽到Picture1中(见图4)。以下可以实现此功能的事件过程是（）。

见图 A-2） ，且将 banana.DragMode 属性设置为 1 。要求程序运行时，可以用鼠标把 banana 拖拽到 Picture1 中（见 图A-3 ）。能实现此功能的事件过程是（）

A ） Priate Sub Form_DragDrop （Source As Control,X As Single,Y As Single banana.Move

Picture1.Left+X,Picture1.Top+Y ）

End Sub

B ） Private Sub banana _DragDrop （Source As Control,X As Single,Y As Single ）

Source.Move Picture1.Left+X.Picture1.Top+Y

End Sub

C ） Private Sub Picture1_DragDrop （Source As Control,X As Single,Y As Single ）

Source.Move Picture1.Left+X.Picture1.Top+Y

End Sub

D ） Private Sub Picture1_DragDrop （Source As Control,X As Single,Y As Single ）

banana.Move banana.Left+X, banana.Top+Y

End Sub

将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中（见图2）。能实现此功能的事件过程是（）

A．Priate Sub Form_DragDrop（Source As Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y）

End Sub

B．Private Sub banana _DragDrop（Source As Control,X As Single,Y As Single ）

Source.Move Picture1.Left+X.Picture1.Top+Y

End Sub

C．Private Sub Picture1_DragDrop（Source As Control,X As Single,Y As Single ）

Source.Move Picture1.Left+X.Picture1.Top+Y

End Sub

D．Private Sub Picture1_DragDrop（Source As Control,X As Single,Y As Single ）

banana.Move banana.Left+X, banana.Top+Y

End Sub

ana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（）。

A.Private 3ub Form—DragDrop(Source As Control，X As Single，Y As Single)

banana．Move Picture1．Left+X，Picture1．Top+Y

End Sub

B.Private Sub banana_DragDrop(Source As Control，X As Single，Y As Single)

Source．Move Picture1．Left+X，Picture 1．Top+Y

End Sub

C.Private Sub Picturei_DragDrop(Source As Control，X As Single，Y As Single)

Source．Move Picture1．Left+X，Picture1．Top+Y

End Sub

D.Private Sub Picture1_DragDrop(Source As Control，X As Single，Y As Single)

banana．Move banana．Left+X，banana．Top +Y

End Sub

ana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（）。

A.Private 3ub Form—DragDrop(Source As Control，X As Single，Y As Single) banana．Move Picture1．Left+X，Picture1．Top+Y End Sub

B.Private Sub banana_DragDrop(Source As Control，X As Single，Y As Single) Source．Move Picture1．Left+X，Picture 1．Top+Y End Sub

C.Private Sub Picturei_DragDrop(Source As Control，X As Single，Y As Single) Source．Move Picture1．Left+X，Picture1．Top+Y End Sub

D.Private Sub Picture1_DragDrop(Source As Control，X As Single，Y As Single) banana．Move banana．Left+X，banana．Top +Y End Sub

在窗体上有2个图片框，名称分别为Picture1和Picture2，Picture2中添加了香蕉图片(见图3)，且将Picture2．DragMode属性设置为1。要求程序运行时，可以用鼠标把Picture2拖拽到Picture1中(见图4)。以下可以实现此功能的事件过程是（）。

A.一个逻辑数据结构只能有一种存储结构

B.逻辑结构属于线性结构，存储结构属于非线性结构

C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率

D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率

”，一个名称为Pic1的图片框。要求程序运行后，每单击一次“显示”按钮，不使用任何变量而直接在图片框中显示“Picture1”；如果单击“删除”按钮，则清除图片框中的文本，如图6-1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为Sj1．vbp。

A．在Picture1中显示Picture2中的图片

B．Picture1、Picture2中原有的图片被交换了

C．Picture1、Picture2中都是原来Picture1中的图片

D．Picture1、Picture2中都是原来Picture2中的图片

窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip。请填空。 Private Sub Form_Load0 Picture1.Picture=LoadPicture("c:\My Docunents\图片\Qian1_Icon02.ico") ______ End Sub Private Sub Timer1_Timer() Static x, y As Integer x=x+300 y=y+300 Picture1.Move x, y End Sub

为Command1、Command2的命令按钮，Caption属性分别为“左移”、“右移”。请编写适当的程序，使得运行程序时，单击“左移”按钮，图片框移至窗体左侧（如图1所示）；单击“右移”按钮，图片框移至窗体右侧（如图2所示，注：可以不考虑窗体边框的影响）。

注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。