在考生文件夹下有一个工程文件sjt4.vbp。运:行程序,按下鼠标左键,并在窗体上拖动鼠标时,沿鼠标移动可在窗体上画出一系列圆,如图3-110所示。给出的程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。 注意:考生不得修改窗体文件中

admin2016-01-31  48

问题 在考生文件夹下有一个工程文件sjt4.vbp。运:行程序,按下鼠标左键,并在窗体上拖动鼠标时,沿鼠标移动可在窗体上画出一系列圆,如图3-110所示。给出的程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
    注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
   

选项

答案审题分析 本题源程序在Form MouseDown事件过程中,先判断当前按下的是否为鼠标左键,若为左键,则将全局变量flag的值设置为True,因此该变量类型应该为逻辑型;在Form MouseUp事件过程中,判断若弹起的是鼠标左键,则令flag为False,这样的话如果鼠标左键保持按住不放时flag的值就一直为True。在Form MouseMove事件中,如果flag为Tme(意味着按住鼠标左键),则调用Circle方法画一个圆。 操作步骤 步骤1:打开本题工程文件sjt4.vbp,在代码编辑窗口中,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: Dim Flaa As Boolean Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Sinqlel Circle (X,Y),300 Flaa=False 步骤2:按要求将文件保存至考生文件夹中。 考点链接 键盘和鼠标事件。

解析
转载请注明原文地址:https://jikaoti.com/ti/vwJ0FFFM
0

最新回复(0)