单项选择题

有一个名称为Form1的窗体，上面没有控件，没有以下程序(其中方法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
Form1.Pset(X,Y)
End If
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．按下鼠标键并拖动鼠标．则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
<上一题 目录 下一题>
热门 试题

单项选择题
某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a()As Integer)As Integer Dim max% max=1 For k=2 To 10 If a(k)＞a(max) Then max=k End If Next k MaxValue=max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是( )
A．语句max＝1应改为max＝a(1)
B．语句For k=2 To 10应改为For k=1 To 10
C．If语句中的条件a(k)＞a(max)应改为a(k)＞max
D．语句MaxValue=max应改为MaxValue=a(max)
单项选择题
在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Dim n%,b,t t=1:b=1:n=2 Do b=b*n t=t+b n=n+1 Loop Until n＞9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是( )
A．9!
B．10!
C．1! +2! +…+9!
D．1! +2! +…+10!
相关试题