正确答案: A

每按下鼠标键一次，在鼠标所指位置画一个点

题目：有一个名称为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

查看原题

举一反三的答案和解析：

[单选题]在Vsual FoxPro中释放和关闭表单的方法是 ______。

RELEASE

解析：解析：表单的RELEASE方法是将表单从内存中释放(清除)。

[单选题]返回指定日期"月"部分的函数是( )

Month()

[单选题]在调试器的“调试”菜单中，为了编辑调试程序，应该使用( )菜单项。

定位修改

解析：解析：在调试器的“调试”菜单中包括菜单项有：“调试”、“运行”、“继续执行”、“取消”、“定位修改”和“调速”等。其中，“定位修改”菜单项可以终止程序的执行，然后在文本编辑窗口打开调试程序。

[单选题]以下是宏m的操作序列设计:条件操作序列操作参数MsgBox消息为"AA"[tt]＞1MsgBox消息为"BB"MsgBox消息为"CC"现设置宏m为窗体frest上名为bTest命令按钮的单击事件属性，打开窗体ffest运行后，在窗体上名为麓的文本框内输入数字1，然后单击命令按钮bTest，则______。

屏幕会先后弹出两个消息框，—分别显示消息"AA"、"CC"

[单选题]关系模型允许定义3类数据约束，下列不属于数据约束的是（ ）。

属性完整性约束

[单选题]下面有一段程序代码，如果从键盘上输入"Computer"，则在文本框内显示的内容是

********

解析：解析：此事件过程是KeyPress事件过程，参数KeyAscii的值是键盘输入的字符的ASCII码值。上述过程对输入的字符进行判断，如果其ASCII码大干65(大写字母“A”) 并小于122(小写字母“s”)，则用星号(ASCII码为42)代替，而运行过程中。题意是要从键盘上输入“Computer”，则应在文本框中显示“********”。

[多选题]通常我们使用( )方法来为一个部件注册事件监听器。

通常我们使用（ ）方法来为一个部件注册事件监听器。

add×××ListenerB． ×××ListenerSX

add×××Listener

解析：本题考查事件监听器的概念。每类事件都有对应的事件监听器，监听器是接口，根据动作来定义方法。AwT的构件类中提供注册和注销监听器的方法。注册监听器：publicvoidadd(listener)；注销监听器：publicvoidremovedListener—Type>(listener)。由此可见，选项A正确。

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click( ) S=0 For i=1 To 15 x=2*i-1 1fx Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是

5

解析：解析：本题如果实际带值计算可能比较麻烦。题意表明，如果遇到x为3的倍数时，s就加1，可见当i取1到15之间的数时，选C、D明显不符合实际情况，选A也不正确，通过计算会发现，i在五种情况下使得x为3的倍数。