(1)在名称为Form1的窗体上画一个计时器,其名称为Timerl;再画一个图像框,其名称为Image1,在该图像框中装入一个图形文件.pic.icol然后画一个水平滚动条,其名称为HScrolll,Min属性值为100,Max属性值为1200,Large

admin2010-09-02  14

问题 (1)在名称为Form1的窗体上画一个计时器,其名称为Timerl;再画一个图像框,其名称为Image1,在该图像框中装入一个图形文件.pic.icol然后画一个水平滚动条,其名称为HScrolll,Min属性值为100,Max属性值为1200,LargeChange属性值为100,SmallChange属性值为25,编写适当的事件过程。程序运行后,可以使图像框闪烁,其闪烁速度可以通过滚动条调节。
要求:图像框的闪烁可以通过图像框交替地显示和隐藏来实现。程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。
(2)在考生目录下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图1-93所示。要求如下:
①利用属性窗口设置适当的属性:为Listl列表框添加三个项目:宋体、黑体、楷体GB2312;Textl文本框设置初始值为“计算机”;Hscrolll水平滚动条设置最小值和最大值分别为10、50。
②去掉程序中的注释符,把程序中的?改为正确的内容,完成以下功能:如果在列表框中选择一种字体,然后移动滚动条中的滚动框,则可使文本框中的文字按所选择的字体显示,并可随着滚动框的移动放大或缩小:如果不选择字体直接移动滚动框,则显示一个信息框,提示“请选择字体”。
注意:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

选项

答案 第1小题 【操作步骤】 步骤l:新建一个“标准EXE”工程,如表2-50在窗体中画出控件并设置其相关属性。 步骤2:打开代码编辑窗口,分别编写计时器的Timer事件过程和滚动条的Change事件过程。 参考代码: PriVate Sub HScroll1_Change() Timerl.Interva1=HScroll1.Value End Sub Private Sub Timer1 Timer() Image2.Visible=Not Imaqel.Visible End Sub [*] 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp,如表2-51设置控件的相关属性。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Textl.FontSize=HScrolll.Value Textl.FontName=Listl.Text 步骤3:按要求将文件保存至考生文件夹中。

解析  第1小题
    图像框的闪烁可在计时器的Timer事件过程中,通过对图像框的Visible属性值进行逻辑非运算来实现;通过水平滚动条改变图像框闪烁速度的功能,可以在滚动条的Change事件过程中通过将滚动条的Value属性值赋给计时器的Interval属性来实现。
第2小题
    ①在程序设计时通过属性设置窗口中的Font属性可设置控件标题文本的字体、字号、字形等。②FontName属性用于设置程序运行时在控件中显示文本的字体,FontSize属性、FontBold属性、FontItalic属性、FontStrikethru属性和FontUnderline属性可分别用来设置字体的大小和样式。
  要实现本题所要求的功能,应在水平滚动条的Change事件过程中,通过代码设置文本框的FontSize属性值等于水平滚动条的Value属性值。
转载请注明原文地址:https://jikaoti.com/ti/Jmg0FFFM
0

最新回复(0)