更多"假定在图片框Picture1中装入了一个图片,在程序运行中,为了清除该"的相关试题:
[单项选择]窗体上有一个图片框和一个命令按钮(拖动模式为自动),执行程序后,拖动按钮经过图片框时输出结果为
Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Static a As Boolean
If Not a Then
Print"AA"
a=True
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Shingle, Y As Single)
Static b As Boolean
If Not b Then
Print"BB"
b=True
End If
End Sub
A. AABB
B. BBAA
C. AA
D. BB
[填空题]在窗体上绘制一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click( )
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change( )
Picturel.Print"VB Programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是 ______,而在图片框中显示的内容是 ______。
[填空题]在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click( )
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change( )
Picture1.Print"VB programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是 【7】 ,而在图片框中显示的内
容是 【8】 。
[填空题]在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click( )
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change( )
Picture1.Print"VB Programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是______,而在图片框中显示的内容是______
[填空题]在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click( ) Text1.Text="VB程序设计"End SubPrivate Sub Text1_Change( ) Picturel.Print"VB Programming"End Sub程序运行后,单击窗体,则在文本框中显示的内容是(),而在图片框中显示的内容是()。
[填空题]在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:
Private Sub Form_C1ick( )
Textl.Text="VB Programming"
End Sub
Private SubText1_change( )
Picture1.Print"VB程序设计"
End SUb
程序运行后,单击窗体,则在文本框中显示的内容是______,而在图片框中显示的内容是______。
[多项选择]将一个段落的格式复制到另一个段落,然后清除该段落格式。
[填空题]窗体中有图片框(Pieture1)和计时器(Timer1)两个控件。运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向左,向右移动100twip。请填空。
Private Sub Form_ Load( )
Picture1_icture=LoadPicture(“c:/pic/mouth.ico”)
【6】 .Interval=2000
End Sub
Private Sub Timer1_ Timer( )
Static x,y As Integer
x=x+100
y=y+100
Pictuer1.Move [x, y]
End Sub
[单项选择]窗体上有一个名称为Picturel的图片框控件,一个名称为Label1的标签控件,如下图所示。 现有如下程序: Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption="计算机等级考试" Else x.Picture=LoadPicture("pic.jpg") End If End Sub Private Sub Labell_Click( ) Call display(Labell) End Sub Private Sub Picture1_Click( ) Call display(Picture1) End Sub 对以上程序,下列叙述中错误的是( )。
A. 程序运行时会出错
B. 单击图片框,在图片框中显示一幅图片
C. 过程中的x是控件变量
D. 单击标签,在标签中显示一串文字
[单项选择]要求当鼠标在图片框Pl中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。
A. Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
B. Private Sub P1_MouseMove(Button As Integer,Sluft As Integer,X As Single,Y As Single)
C. Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
D. Private Sub P1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
[单项选择]要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是
A)Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print X,Y
End Sub
B)Private Sub P1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Picture.Print X,Y
End Sub
C)Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
P1.Print X,Y
End Sub
D)Private Sub Form_MouseMove(Button As Integer,Shift As Integer,x As Single,Y As Single)
P1.Print X,Y
End Sub