单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox( 请输入: ) If Flag Then Print f(intNum) End If End Sub Function f(X As Integer) As Integer If X＜10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为

A．0
B．5
C．15
D．无任何输出

单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For j=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是

A．1234
B．12
C．34
D．4321

相关试题