D.im cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single)
cmdmave = True
E.nd Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)
If cmdmave Then
F.orm1.Pset(X,Y)
E.nd If
E.nd Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)
cmdmave = False
E.nd 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 Intege
[单选题]在以下Form1窗体中没有采用的控件是 ( )A.文本框B.水平滚动条C.框架D.选项按钮
[单选题]在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( )。A.Private Sub Text1_Change()C.ommand1.Caption = "计算机等级考试"E.nd SubB.Private Sub Command1_ Click ()C.aption = "计算机等级考试"E.nd Sub
[单选题]在窗体(名称为Form1)上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是。A.Private Sub Tex1_Change() Command1.Caption="计算机等级考试" End SubB.Private Sub Command1_Click() Caption="计算机等级考试"C.Private Sub Com
[单选题]在窗体(名称为Form1)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是A.Private Sub Tex1_Change() Command1.Caption=“计算机等级考试” EndSubB.Private Sub Command1_Click() Caption="计算机等级考试”C.Private Sub Command1
[单选题]在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。A.Prlvate Sub Text1_Change() Command1. Caption="计算机等级考试" End SubB.Private Sub Command1_Click() Caption="计算机等级考试" End SubC.
[单选题]设一个工程由两个窗体组成,其名称分别为Form1和Form2,其中Form1为启动窗体。在窗体Form1上有一个名称为Command1的命令按钮,Form1的程序代码如下:程序抽行时,单击命令按钮Command1,正确的结果是( )。A. Form2的Caption属性值为-100B. Form1的Caption属性值为100C. Form1的Caption属性值为-100D. Form2的Caption属性值为100
[单选题]一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程,其定义格式为: Form1中定义的过程: Private Sub frmFunctionl() End Sub Form2中定义的过程: Public Sub fimFunction2() End Sub mdlFunc中定义的过程: Public SubA.上述三个过程都可以在工程中的任何窗体或模块中被调用B.frmFunction2
[单选题]一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFune的标准模块。假定在 Forml、Form2和mdlFunc中分别建立了自定义过程,其定义格式为: Forml中定义的过程: Privme Sub frmFunction1( ) …… End Sub Form2中定义的过程: Public Sub frmFunction2( ) End Sub mdlFunc 中定义的过程: PubHc Sub mdl Function( ) End Sub 在调用上述过程的程序中
[单选题]( 25 ) 某人创建了 1 个工程 , 其中的窗体名称为 Form1; 之后又添加了 1 个名为 Form2 的窗体 , 并希望程序执行时先显示 Form2 窗体,那么,他需要做的工作是( )A. )在工程属性对话框中把 “ 启动对象 ” 设置为 Form2B. )在 Form1 的 Load 事件过程中加入语句 Load Form2C. )在 Form2 的 Load 事件过程中加入语句 Form2.ShowD. )在 Form2 的 TabIndex 属性设置为1,把 Form1 的 Ta