2. 计算机
  3. （1）在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置（如图1－326所示）；若用鼠标右键

（1）在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置（如图1－326所示）；若用鼠标右键

admin2019-06-11  44
问题 （1）在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置（如图1－326所示）；若用鼠标右键单击圆的边线，则指针恢复到起始位置（如图1－327所示）；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。程序中的oncircle 函数的作用是判断鼠标单击的位置是否在圆的边线上（判断结果略有误差），是则返回否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius 是圆的半径。

    注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
    程序源码：
    Const y0& = 1110, x0& = 1100,
    radius& = 750
    Private Function oncircle(X As
    Single, _
    Y As Single) As Boolean
    precision = 55000
    If Abs((X - x0) * (X - x0) + (y0 － Y) _
    * (y0 - Y) － radius * radius)
    ＜_
    precision Then
    oncircle = True
    Else
    oncircle ＝False
    End If
    End Function
    Private Sub Form_MouseDown(Button
    As _
    Integer,  Shift  As  Integer,  X  As
    Single, _
    Y As Single)
    Const LEFT_BUTTON = 1
    If oncircle(X, Y) Then
    Line1.X1 ＝x0
    Line1.Y1 ＝ y0
    If  Button  ＝  LEFT_BUTTON
    Then
    Line1.X2 ＝ X
    ’    Line1.Y2 ＝ ?
    Else
    ’    Line1.X2 ＝ Line1.?
    ’    Line1.Y2 ＝ y0 - ?
    End If
    Label1.Caption ＝ ""
    True
    Else
    End If
    End Sub
    （2）在考生文件夹下有一个工程文件vbsj4.vbp，其窗体如图1－328所示。该程序用来对在上面的文本框中输入的英文字母串（称为“明文”）加密，加密结果（称为“密文”）显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母（“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”），如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。

    注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
    程序源码：
    Private Sub Cmd1_Click()
    Dim n As Integer, k As Integer,
    m As Integer
    Dim c As String, a As String
    For k ＝ 0 To 2
    If Opt1(k).Value Then
    ’    n ＝ Val(Opt1(k). ? )
    End If
    Next k
    m ＝ Len(Txt1.Text)
    a ＝ ""
    ’    For k ＝ 1 To ?
    ’     c ＝ Mid$(Txt1.Text, ? , 1)
    c ＝ String(1, Asc(c) + n)
    If c > "z" Or c > "Z" And c ＜
    "a" Then
    c  ＝  String(1,  Asc(c)  －
    26)
    End If
    ’     ? = a + c
    Next k
    Txt2.Text ＝ a
    End Sub
选项
答案第1小题 【操作步骤】 步骤1：打开本题工程文件vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Line1.Y2 = Y Line1.X2 = Line1.X1 Line1.Y2 = y0 – radius Label1.Caption = "鼠标位置不对" 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： n = Val(Opt1(k).Caption) For k = 1 To m c = Mid$(Txt1.Text, k, 1) a = a + c 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/eVUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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