在窗体上建立一个单选钮组Option1和一个图片框Picture1，如下图所示。当选择不同的单选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。Private Sub Option1_Click(______)Dim H, WPicture1.ClsPicture1.FillStyle. =______W = Picture1.ScaleWidth/2H = Picture1.ScaleHeight/2Picture1.Circle (W, H), W/2End Sub

题目

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

Private Sub Option1_Click(______)

Dim H, W

Picture1.Cls

Picture1.FillStyle. =______

W = Picture1.ScaleWidth/2

H = Picture1.ScaleHeight/2

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

End Sub

相似考题

1.在名为Form1的窗体上绘制一个图片框，名为Pic1，高为2000，宽为1500，并放入文件名为pic1.bmp的图片(如下图所示)。请编写适当的事件过程，使得在运行时，若双击窗体，则图片框中的图片消失。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise28.vbp，窗体文件名为execise28.frm。

2.在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个名为Option1的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图1所示。请选择适合空白处的语句（ ）。A. Option TextB. Index TextC. Index FontD. Option Font

3.在名为Form1的窗体上绘制一个文本框，名为Text1，无初始内容；再绘制—个图片框，名为Pic1。请编写Text1的Change事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。运行时的窗体如下图所示。注意：程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise68.vbp，窗体文件名为execise68.frm。

4.窗体上有一个名称为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．单击标签，在标签中显示一串文字

更多“ 在窗体上建立一个单选钮组Option1和一个图片框Picture1，如下图所示。当选择不同的单选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。Private Sub Option1_Click(_”相关问题

  • 第1题：

    在Form1的窗体上绘制一个图片框，其名称为Pic1。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(250，500)位置处开始显示Visual Basic。程序运行情况如下图所示。

    注意：

    程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise18.vbp，窗体文件名为execise18.frm。


    正确答案：

  • 第2题：

    设窗体上有图片框Picture1和计时器Timer1两个控件，运行程序时，将图片加载到图片框中，然后图片框以每5秒钟一次的速度向窗体的右下方移动，每次向右、向下移动100。请补充程序中的空白处。
    ①Timer1
    ②Static x，y As Integer
    ③x，y
    略

  • 第3题：

    设计一个显示欢迎信息的窗体的程序。要求程序运行后，在窗体上的标签LabA中显示“欢迎您！”（如图），若用户选中单选钮OpA“粗体”时，LabA中以粗体显示文本；用户选中单选钮OpB“正常”时，标签框LabA不再以粗体显示文本。按命令按钮ComA“结束”时，程序终止。

    略

  • 第4题：

    在考生目录下有一个工程文件sjt4．vbp。窗体上已有文本框Textl和图片框Picturel（两者位置重叠），并建立了菜单。要求单击“显示图片”菜单项时，隐藏文本框，在图片框中显示图片Pie4．bmp，同时将该菜单标题改为“清空图片”；单击“清空图片”菜单项时，清除图片框中的图片，同时将菜单标题改为“显示图片”；单击“显示文本”菜单项，则隐藏图片框，并将指定文件的内容显示在文本框中。在给出的窗体文件中已经有了全部控件，但程序不完整。

    要求：去掉程序中的注释符，把程序中的?改为正确的内容。最后把修改后的文件按原文件名存盘。


    正确答案：

    【解题思路】设置控件的可见属性是Visible。根据条件设置相应的Visible属性。打开文件读取文件内容。
    【操作步骤】
    步骤1：打开本题工程文件。
    步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
    参考答案(阴影部分是需考生填入的内容)

    步骤3：调试并运行程序，关闭程序后按题目要求存盘。

  • 第5题：

    在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp，*.gif和*.jpg），则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如下图所示。 程序如下，请补充完整。

    略

相关内容