(1)在名称为Forml的窗体上画一个名称为Textl的文本框;画两个标题分别为“对齐方式”、“字体”,名称分别为Framel、Frame2的框架;在Framel框架中画三个单选按钮,标题分别为“左对齐”、“居中”、“右对齐”,名称分别为Optionl、O

admin2010-09-02  14

问题 (1)在名称为Forml的窗体上画一个名称为Textl的文本框;画两个标题分别为“对齐方式”、“字体”,名称分别为Framel、Frame2的框架;在Framel框架中画三个单选按钮,标题分别为“左对齐”、“居中”、“右对齐”,名称分别为Optionl、Option2、Option3在Frame2框架中画两个单选按钮,标题分别为“宋体”、“黑体”,名称分别为Option4、Option5。
要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的文字实现相应的操作(如图1-51所示)。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。

(2)在考生文件夹下有一个工程文件sit4.vbp。其窗体上有一个圆,相当于一个时钟,当程序运行时通过窗体的Activate事件过程在圆上产生1两个刻度点,并完成其他初始化工作;另有长、短2条(红色、蓝色)直线,名称分别为Linel和Line2,表示两个指针。程序运行时,单击“开始”按钮,则每隔0.5秒Linel(长指针)顺时针转动一个刻度,Line2(短指针)顺时针转动1/1两个刻度(即长指针转动一圈,短指针转动一个刻度),单击“停止”按钮,两个指针停止转动,如图1-52所示。在窗体文件中已经给出了全部控件,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。
提示:程序中的符号常量x0、y0是圆心到窗体左上角的距离,radius是圆的半径。
注意:不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。

选项

答案 第1小题 【操作步骤】 步骤l:新建一个“标准EXE”工程,如表2-27在窗体中画出控件并设置其相关属性。 步骤2:在代码编辑窗口,分别编写5个按钮的单击事件过程。 参考代码: Private Sub Optionl_Click() Textl.Alignment=0 End Sub Private Sub Option2_C1ick() Textl.Alignment=2 End Sub Private Sub Option3_Click() Textl.Alignment=1 End Sub Private Sub Option4_Click() Textl.Font="宋体" End Sub Private Sub Option5 Click() Textl.Font="黑体" End Sub 步骤3:按要求将文件保存至考生文件夹中。 [*] 第2小题 【操作步骤】 步骤l:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符们“’”,将问号“?”改为正确的内容。 参考代码: Timerl.Enabled=False For k=0 To 359 Step 30 x=radius*Cos(k*3.14159/180) +x0 Linel.Y2=y0-lenl*Sin(a*- 3.14159/180) b=b-30/12 步骤2:按要求将文件保存至考生文件夹中。

解析  第1小题
   ①框架控件(Frame)是一个容器控件,常用于将界面上的控件分组,框架内的控件将随框架一起移动或隐藏,框架的Caption属性用于设置其显示的标题。②容器(如窗体和框架)中的单选按钮(OptionButton)组常用于提供多个选项间的唯一选择,其Value属性用于设置或返回每个单选按钮的选中状态;值为False表示未选,值为True表示选中。Alignment属性用于确定文本框中文本的放置方式,其值可以设置为0(靠左,默认)、l(靠右)或2(居中)。④FontName属性用于设置程序运行时在控件中显示文本的字体,FontSize属性、FontBold属性、FontItalic属性、FontStrikethru属性和FontUnderline属性可分别用来设置字体的大小和样式。
    本题需分别在五个单选按钮的Click事件过程中,设置文本框Textl的Alignment属性或FontName属性为对应值。
第2小题
    ①Activate(活动)、Deactivate(非活动)事件:当一个窗体成为活动窗口时发生Activate事件:当一个对象不再是活动窗口时发生Deactivate事件。②Circle语句的常用语法格式为:对象.Circle(x,y),R,Color[,Start][,End][,p]。其功能是在对象指定位置上画圆或椭圆。其中,(x,y)是圆心坐标,R是圆半径;Start、End这两个参数表示圆弧的开始和结束(可省略参数,但逗号不能省略,例Circle((1000,1000),500,,,,2);p参数指定了椭圆水平长度和垂直长度比。另外,Circle方法还可以画出圆弧(圆的一部分)和楔形饼块。
  本题原程序要通过窗体的Activate事件过程在圆上产生1两个刻度点,其中For循环的步长值应设置为:360/12=30。由于VB窗体的坐标原点位于窗体最左上角,因此每个刻度点距圆心的横向距离(radius*Cos( k*3.14159/180))需加上圆心的x坐标值(x0),才是该刻度点的x坐标值。而该刻度点的y坐标值则应是圆心的y坐标值(y0)减去刻度点距圆心的纵向距离(radius*Sin(k*3.14159/1801)。
    计时器Timerl的Timer事件每隔0.5秒触发一次,在Timer事件过程中,长指针Linel的终点(X2,Y2)顺时针每次转动一个刻度,其坐标值通过计算得出(其中,Lenl为长指针的长度;a为长指针与圆心所在水平线形成的夹角度数,初值为90,每次减少30),故该事件过程中第一个?处应改为:Y2。短指针Line2的终点每次顺时针每次转动1/1两个刻度,其坐标值通过计算得出(其中,Len2为短指针的长度,b为短指针与圆心所在水平线形成的夹角度数,初值为90,每次减少30/12),故该事件过程中第两个?处应改为:b。
    “开始”按钮用于启动计时器,而“停止”按钮则用于停止计时器,语句为:‘Timerl.Enabled=False。
转载请注明原文地址:https://jikaoti.com/ti/0Ng0FFFM
0

最新回复(0)