在窗体上建立一个单选钮组Option1和一个图片框Picture1，如下图所示。当选择不同的单选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。

Private Sub Option1_Click(______)

D．im H, W

Picture1.Cls

Picture1.FillStyle. =______

W = Picture1.ScaleWidth/2

H． = Picture1.ScaleHeight/2

Picture1.Circle (W, H), W/2

E．nd Sub

[单选题]在窗体上有2个图片框，名称分别为Picture1和Picture2，Picture2中添加了香蕉图片(见图3)，且将Picture2．DragMode属性设置为1。要求程序运行时，可以用鼠标把Picture2拖拽到Picture1中(见图4)。以下可以实现此功能的事件过程是（ ）。

[单选题]在窗体上先后画2个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片（见图1），且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中（见图2）。能实现此功能的事件过程是（）A．Priate Sub Form_DragDrop（Source As Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y）E．nd Sub

[单选题]在窗体上先后画两个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图1)，且将bananA、DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖曳到Picttne1中(见图2)。能实现此功能的事件过程是______。A．Private Sub Form_DlagDrop(Source As Control,X As Single,Y As Single) bananA、Move Picture1.Left+X,Picture1.Top+Y E

[试题]新建一个工程，在窗体中创建一个单选按钮数组，名称为Option1。该数组含有四个单选按钮，其标题依次为“选项1”、“选项2”、“选项3”和“选项4”，其下标分别为1， 2，3，4。默认选择为“选项3”。运行结果如图10所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp，窗体文件名为ylc2.frm。

[单选题]确定图片框Picture1在窗体上位置的属性是（　　）。A.Width和HeightB.Left和TopC.Width和TopD.Height和Lef

[单选题]（ 26 ）设窗体上有一个图片框 Picture1 ，要在程序运行期间装入当前文件夹下的图形文件 File1.jpg ， 能实现此功能的语句是A． ） Picture1.Picture= ” Flie1.jpgB． ） Picture1.Picture=LoadPicture( “ File1.jpg ” )C．) LoadPicture( “ File1.jpg ” )D． ） Call LoadPicture( “ File1.jpg ” )

[单选题]在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是A．1B．3C．6D．10

[单选题]（22）在窗体上画两个单选按钮，名称分别为Option1和Option2，标题分别为“黑体”和“楷体”；一个复选框，名称为Check1,标题为“粗体”。要求程序运行时，“黑体”单按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是A.Option1.Value=True B.Option1.Value=True Check1.Value=False Check1.Value=TrueC.Option2.Value=False D.Option1.Value=TrueCheck1.Value

[单选题]在窗体上画一个文本框，然后编写如下代码： Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer，Finish As Integer Dim Sum As Integer arr=Array(12，4，8，16) Start=Lbound(arr) Finish=Ubound(arr) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Tex

[试题]在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click（）Text1.Text = "VB程序设计"E．nd SubPrivate Sub Text1_Change（）Picture1.Print "VB Programming"E．nd Sub程序运行后，单击窗体，则在文本框中显示的内容是______，而在图片框中显示的内容是_____。