首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签,和其他一些控件。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置(如图1-326所示);若用鼠标右键
(1)在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签,和其他一些控件。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置(如图1-326所示);若用鼠标右键
admin
2019-06-11
27
问题
(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://kaotiyun.com/show/eVUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-b:b=t+a:Fun1=t+b
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNextiCombo1.Text=SumEndSub程
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3:b=2Ifa*b<10Thenb=b+1Elseb=b-1EndIfPrintb-a>0En
鼠标拖放控件要触发两个事件,这两个事件是
下列关于线性链表的叙述中,正确的是
设有如下声明语句OptionBase1Dimart(2,-1To5)AsInteger则数组art中数组元素的个数是
设a=2,b=3,c=4,d=5,表达式Nota<=cOr4*c:b^2Andb<>a+c的值是
下面对对象概念描述正确的是
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
在满足实体完整性约束的条件下
随机试题
WhichofthefollowingisnotincludedintheGermanictribes?()
Allthe______touristsgavetherobbertheirmoney.
精神抑郁,表情淡漠,神识痴呆,举止失常,舌苔白腻,最宜诊断为
关于蒙片的叙述,下列哪一项是错误的
表示工作A开始一定时间后工作B才能开始的是()。
价格调整公式为:下列有关说明正确的有()。
下列各项中,应缴纳城镇土地使用税的有()。
个人出租住房取得的所得,其个人所得税税率是()。
()是建立新型的师生关系的重要途径。
Itwasin1916______theOlympicGameswerestoppedbecauseofWorldWarI.
最新回复
(
0
)