更多"在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件"的相关试题:
[简答题]
在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”；添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使的在输入密码时，文本框中显示为“*”字符。此外，再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
[简答题]完成下列问题：
在名称为Form1的窗体上画一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器，在属性窗口中将其设置为不可用，时间间隔为0.5s，窗体如图2所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行．计时器即变为可用，且每隔0.5s形状控件向下移动100。
[*]
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
[简答题]在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load（ ）事件过程加载窗体时，执行语句List1.AddItem”AAA，每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次，如图11-20所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sit2.vbp。
[简答题]完成下列问题：
在名称为Form1的窗体上画一个名称为Label1、标题为“滚动条控件”的标签，一个名称为Hscroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最小值为1，最大值为100，滚动条的宽度为3000、高度为300，滚动块的初始位置为20。程序运行后的窗体如图1所示。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.1frm。
[简答题]在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图11-14所示(程序中不能使用任何变量)。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
[填空题]在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的
MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click（ ） 5
Open "d:/test/smtext1.txt" For Input As #1
Do While Not _________
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop
Text1.Text = whole$
Close #1
Open "d:/test/smtext2.txt" For Output As #1
Print #1, _________
Close #1
End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[填空题]在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：
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 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（ ）
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
程序运行后，单击窗体，则在文本框中显示的内容是______，而在图片框中显示的内容是______。
