单项选择题

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

A．Private Sub Form_DlagDrop(Source As Control,X As Single,Y As Singl bananMove Picture1.Left+X,Picture1.Top+Y End Sub
B．Private Sub banana_DragDrop(Source As Control,X As Single,Y As Singl SourcMove Picture1.Lefi+X,Picture1.Top+Y End Sub
C．Private Sub Picture1_DmgDrop(Source As Contro1,X As Single,Y AS Singl SourcMove Picture1.Left+X,Picture1.Top+Y End Sub
D．Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Singl bananMove bananLet+X,banaTop+Y End Sub

<上一题目录下一题>

热门试题

单项选择题

为了计算1+3+5+…+99的值，某人编程如下： k=1 s=0 While k＜=99 k=k+2:s=s+k Wend Print s 在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（）。

A．Whil..Wend循环语句错误，应修改为For k=-1 T0 99…Next k
B．循环条件错误，应改为While k＜99
C．循环前的赋值语句K=1错误，应改为k=0
D．循环中两条赋值语句的j顷序错误，应改为s=s+k:k=k+2

单项选择题

窗体上有一个名称为Text1的文本框和—个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到原有内容之后。下面能够正确实现上述功能的程序是（）。

A．Private Sub Command1_Click() Open "outxt" For Input As#1 Print #1,Text1.Text Close #1 End Sub
B．Private Sub Command1_Click() Open "outxt" For Output AS #1 Print #1,Text1.Text Close #1 End Sub
C．Private Sub Command1_Click() Open "outxt" For Append As #1 Print #1,Text1.Text Close #1 End Sub
D．Private Sub Command1_Click() Open "outxt" For Random As #1 Print #1,Text1.Text Close #1 End Sub