2. 计算机
  3. (1)在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1框架中添加三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为Option

(1)在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1框架中添加三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为Option

admin2015-06-30  57
问题  (1)在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1框架中添加三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为Option1、Option2、Option3；在Frame2框架中添加两个单选按钮，标题分别为“宋体”、“黑体”，名称分别为Option4、Option5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。
    注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
    存盘时必须存放在考生文件夹下，工程文件名保存为sjt3．vbp，窗体文件名保存为sjt3．frm。

    (2)在考生文件夹下有一个工程文件sjt4．vbp。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的Activate事件过程在圆上产生12个刻度点，并完成其他初始化工作；另有长、短两条(红色、蓝色)直线，名称分别为Line1和Line2，表示两个指针。当程序运行时，单击“开始”按钮，则每隔0．5秒Linel(长指针)顺时针转动一个刻度，Line2(短指针)顺时针转动1／12个刻度(长指针转动一圈，短指针转动一个刻度)，单击“停止”按钮，两个指针停止转动，如图所示。

    在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
    提示：程序中的符号常量x0、y0是圆心到窗体左上角的距离，radius是圆的半径。
    注意：不能修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案(1)【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.117～3.119。 [*] 参考答案 Private Sub Option1_Click() Text1.Alignment = 0 End Sub Private Sub Option2_Click() Text1.Alignment = 2 End Sub Private Sub Option3_Click() Text1.Alignment = 1 End Sub Private Sub Option4_Click() Text1.FontName = "宋体" End Sub Private Sub Option5_Click() Text1.FontName = "黑体" End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Const x0 = 1200, y0 = 1200, radius = 1000 Dim a, b, len1, len2 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_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 = Line1.Y1 - Line1.Y2 len2 = Line2.Y1 - Line2.Y2 End Sub Private Sub Timer1_Timer() a = a - 30 Line1.X2 = len1 * Cos(a * 3.14159 / 180) + x0 ’Line1.? = y0 - len1 * Sin(a * 3.14159 / 180) ’b = ? - 30 / 12 Line2.X2 = len2 * Cos(b * 3.14159 / 180) + x0 Line2.Y2 = y0 - len2 * Sin(b * 3.14159 / 180) End Sub 程序结束 参考答案 第1个？处填入：Timer1.Enabled = False 第2个？处填入：30 第3个？处填入：x0 第4个？处填入：Y2 第5个？处填入：b 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/f0Qp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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