执行下列程序后,鼠标单击窗体,输出结果为 。Private Sub Form_Click()Print "Click";End SubPrivate Sub Form_MouseDown(Button As Integer, Shift _As Integer, X As Single, Y As Single)Print "Donw"End SubPrivate Sub Form_MouseUp(Button As Integer, Shift _As Integer, X As Single, Y As Single)Print " Up"End Sub( )。A.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownClick

执行下列程序后,鼠标单击窗体,输出结果为 。

Private Sub Form_Click()

Print "Click";

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift _

As Integer, X As Single, Y As Single)

Print "Donw"

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift _

As Integer, X As Single, Y As Single)

Print " Up"

End Sub( )。

A.DownUpClick

B.ClickDownUp

C.DownClickUp

D.UpDownClick


相关考题:

在窗体的单击事件中有如下程序:privatesubform_click()forj=1to15a=a+jnextjPrintaendsub程序运行后单击鼠标左键,输出的结果是( )A.1B.15C.90D.120

下面对程序段运行结果叙述正确的是( )PrivateSubForm_Click()Caption="鼠标单击鼠标单击Picture=LoadPicture(App.Path+\window.jpg)Print欢迎使用VBEndSubPrivateSubForm_DblClick()Caption=鼠标双击Picture=LoadPicture()Print结束使用VBEndSubA.单击窗体时窗体的标题为鼠标单击,窗体上显示结束使用VBB.双击窗体时窗体的标题为鼠标双击,窗体上显示结束使用VBC.双击窗体时窗体的图片还在D.单击窗体时窗体的图片删除

( 8 )有如下程序:Private Sub Form_Click ()n=10i=0Doi=i+nn=n-2Loop While n2Print iEnd Sub程序运行后,单击窗体,输出结果为 【 10 】 。

执行下列程序后,鼠标单击窗体,输出结果为Private Sub Form_Click()Print "Click";End SubPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Print "Donw"End SubPrivate Sub Form_MouseUp(ButtonAs Integer,Shift As Integer,X As Single,Y As Single)Print "Up"End SubA.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownCliek

执行下列程序后,鼠标单击窗体,输出结果为A.DownUpCliekB.CliekDownUpC.DownCliekUpD.UpDownClick

执行下列程序后,鼠标单击窗体,输出结果为Private Sub Form_Click()Print "Click";End SubPrivate Sub Form_mouseDown(Button As Integer,ShiftAs Integer, X As Single, Y As Single)Print "Donw"End SubPrivate Sub Form_MouseUp(ButtonAsInteger,ShiftAs Integer, X As Single, Y As Single)Print "Up"End SubA.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownClick

执行下列程序后,鼠标单击窗体,输出结果为 Private Sub Form_Click() Print"Click": End Sub Private Sub Form_MouseDown(Button As Integer,Shift_As Integer,X As Single,Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer,Shift_As Integer,X As Single,Y As Single) Print"Up" End SubA.DownUpClickB.CfickDownUpC.DownClickUpD.UpDownClick

执行下列程序后,鼠标单击窗体,输出结果为。 Private Sub Form_Click() Print“Click”; End Sub Private Sub Form_MouseDown(Button As Integer,Shift_ As Integer,X As Single,Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer,Shift_ As Integer,X As Single,Y As Single) Print“Up” End SubA.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownClick

运行下列程序,单击窗体后显示结果为()。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" k; Spc(3); Next End SubA.31 31 4 31B.31 31 32 32C.4 31 5 32D.32 32 5 32