题目内容

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

A. Private Sub Form_DlagDrop(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.Lefi+X,Picture1.Top+Y End Sub
C. Private Sub Picture1_DmgDrop(Source As Contro1,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、Let+X,banan.Top+Y End Sub

查看答案

搜索结果不匹配？点我反馈

更多问题

【C7】

A. measure
B. register
C. grade
D. weigh

查看答案

在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中；否则光标不动，并弹出对话框“分数错”。下面程序中正确的是______。

A. Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
B. Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End If End If End Sub
C. Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
D. Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub

查看答案

【C6】

A. who
B. which
C. that
D. he

查看答案

More and more families have moved elsewhere because they cannot ______ the noise from the

A. come up with
B. put up with
C. catch up with
D. keep up with

查看答案