单项选择题

有一个名称为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
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) 按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
<上一题 目录 下一题>
热门 试题

单项选择题
以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。 Private Sub Command1_Click() If Not Check(Combo1.Text)Then MsgBox( 输入错误 ) Exit Sub End If For k=0 To Combo1.ListCount-1 If Combo1.Text: Combo1.List(k) Then MsgBox( 添加项目失败 ) Exit Sub End If Next k Combo1.Addltem Combo1.Text MsgBox( 添加项目成功 ) End Sub Private Function Check(ch As String) As Boolean n=Len(ch) For k=1 To n c $=UCase(Mid(ch,k,1)) If C＜ A Or C＞ Z Then Check=False Exit Function End If Next k Check=True End Function 程序运行时，如果在组合框的编辑区中输入 Java ，则单击命令按钮后产生的结果是______。
A) 没有任何显示
B) 显示"输入错误"
C) 显示"添加项目失败"
D) 显示"添加项目成功\
单项选择题
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text= Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Pivate Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入ABC，再单击命令按钮，则文本框中显示的内容为______。
A) abcABC
B) 不显示任何信息
C) ABC
D) 出错
相关试题