2. 计算机
  3. （1）在名称为Form1的窗体上画一个名称为txtInput 的文本框；画两个标题分别为“对齐方式”、“字体”，名称分别为fraAlign、fraFont 的框架；在fraAlign 框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分

（1）在名称为Form1的窗体上画一个名称为txtInput 的文本框；画两个标题分别为“对齐方式”、“字体”，名称分别为fraAlign、fraFont 的框架；在fraAlign 框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分

admin2019-01-16  34
问题 （1）在名称为Form1的窗体上画一个名称为txtInput 的文本框；画两个标题分别为“对齐方式”、“字体”，名称分别为fraAlign、fraFont 的框架；在fraAlign 框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为optLeft、optCenter、optRight；在 fraFont 框架中画两个单选按钮，标题分别为“宋体”、“黑体”，名称分别为optSt、optHt。
    要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作，如图1－315所示。

    注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。
    （2）在考生文件夹下有一个工程文件vbsj4.vbp。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的Activate事件过程在圆上产生12个刻度点，并完成其他初始化工作；另有长、短2条（红色、蓝色）直线，名称分别为linLong 和 linShort，表示两个指针。程序运行时，单击“开始”按钮，则每隔0.5秒linLong（长指针）顺时针转动一个刻度，linShort（短指针）顺时针转动1/12 个刻度（即长指针转动一圈，短指针转动一个刻度），单击“停止”按钮，两个指针停止转动，如图1－316所示。在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的“?”改为正确的内容。

    提示：程序中的符号常量x0、y0是圆心到窗体左上角的距离，radius是圆的半径。
    注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
    程序源码：
    Const x0＝1200, y0＝1200, radius
    ＝1000
    Dim a, b, len1, len2
    Private Sub cmdStart_Click()
    Timer1.Enabled＝True
    End Sub
    Private Sub cmdStop_Click()
    ’    ?
    End Sub
    Private Sub Form_Activate()
    ’For k＝0 To 359 Step ?
    ’x＝radius * Cos(k * 3.14159 / 180) + ?
    y＝y0 - radius * Sin(k * _ 3.14159 / 180)
    Form1.Circle (x, y), 20
    Next k
    a ＝ 90
    b ＝ 90
    len1 ＝ linLong.Y1 - linLong.Y2
    len2 ＝ linShort.Y1－
    linShort.Y2
    End Sub
    Private Sub Timer1_Timer()
    a ＝ a － 30
    linLong.X2 ＝ len1  *  Cos(a  *
    3.14159／180) ＋ x0
    ’  linLong.? ＝ y0 - len1 * Sin(a
    * _
    3.14159／180)
    ’   b ＝ ? － 30 / 12
    linShort.X2 = len2 * Cos(b * _
    3.14159 / 180) ＋ x0
    linShort.Y2 ＝ y0 － len2 * Sin(b
    * _
    3.14159 / 180)
    End Sub
选项
答案第1小题 【操作步骤】 步骤1：新建一个“标准EXE”工程，按表2－169在窗体中画出控件并设置其相关属性。 [*] 步骤2：在代码编辑窗口，分别编写5个按钮的单击事件过程。 参考代码： Private Sub optLeft_Click() txtInput.Alignment = 0 End Sub Private Sub optCenter_Click() txtInput.Alignment = 2 End Sub Private Sub optRight_Click() txtInput.Alignment = 1 End Sub Private Sub optSt_Click() txtInput.FontName = "宋体" End Sub Private Sub optHt_Click() txtInput.FontName = "黑体" End Sub 步骤3：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件 vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符 “’”，将问号“?”改为正确的内容。 参考代码： Timer1.Enabled = False For k = 0 To 359 Step 30 x = radius * Cos(k * 3.14159/180) + x0 linLong.Y2 = y0 - len1 * Sin(a * _ 3.14159/180) b = b - 30/12 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/Ywm0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)