有一个名称为Fom1的窗体，上面没有控件，设有以下程序(其中方法PSet(X，Y)的功能是在坐标X，Y处画一个点)： Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) cmdmave=True End Sub Private Sub Form_MouseMove(Button AS Integer，Shift As Integer，X AS Single，Y As Single) If cmdmave Then Forml．PSet(X，Y) End lf End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) cmdmave=False End Sub 此程序的功能是。 A．每按下鼠标键一次，在鼠标所指位置画一个点 B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 D．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
有一个名称为Fom1的窗体，上面没有控件，设有以下程序(其中方法PSet(X，Y)的功能是在坐标X，Y处画一个点)： Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) cmdmave=True End Sub Private Sub Form_MouseMove(Button AS Integer，Shift As Integer，X AS Single，Y As Single) If cmdmave Then Forml．PSet(X，Y) End lf End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) cmdmave=False End Sub 此程序的功能是。 A．每按下鼠标键一次，在鼠标所指位置画一个点 B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 D．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
相关考题：
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。A．10 5B．20 5C．20 40D．10 40
（ 33 ）有一个名称为 Form1 的窗体，上面没有控件，设有以下程序（其中方法 Pset(X,Y) 的功能是在坐标X ， Y 处画一个点）：Dim cmdmave As BooleanPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single)cmdmave = TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)If cmdmave ThenForm1.Pset(X,Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)cmdmave = FalseEnd Sub此程序的功能是A ）每按下鼠标键一次，在鼠标所指位置画一个点B ）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C ）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D ）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Pnvate Sub Command1_Click() Dim x As Integer，y As Integer，t As Integer x=10：y=20：t=0 If x=y Then t=x：x=y：y=t Print x；y End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．10 20B．20 0C．20 10D．20 20
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．10 5B．20 5C．20 40D．10 40
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程； Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．10 5B．20 5C．20 40D．10 40
在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As integer Static y As integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef xl As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是A．10 5B．12 5C．10 7D．12 7
设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．10 5B．20 5C．20 40D．10 40
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Public x As IntegerPrivate Sub Command1_Click()Dim y As Integerx=10 : y=5Call f(x, y)Print x; yEnd SubPrivate Sub f(x1 As Integer, y1 As Integer)x1=x+2y1=y+2End Sub程序运行后,单击命令按钮,在窗体上显示的内容是( )。A. 10 5B. 12 7C. 12 2D. 以上都不对
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x = -5If Sgn（x） Then y = Sgn（x ^ 2）Else y = Sgn（x）End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是（ ）。A．-5B．25C．1D．-1