首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签,和其他一些控件。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置(如图1-326所示);若用鼠标右键
(1)在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签,和其他一些控件。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置(如图1-326所示);若用鼠标右键
admin
2019-06-11
29
问题
(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全国计算机二级
相关试题推荐
下列关于水平滚动条的叙述中,错误的是
命令按钮不支持的事件为
以下关于命令按钮的叙述中正确的是
某人为计算n!(0<n<=12)编写了下面的函数过程:PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp=1Fork=n-1To2Step-1p=p*kNextkfun=pEn
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(ButtonAnd3
对于文本框Text1,能够获得按键的ASCII码值的事件过程是
以下关于变量作用域的叙述中错误的是
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为
随机试题
桂枝芍药知母汤的主症是()
血栓对机体的危害不包括
判断新生儿有无窒息及窒息的严重程度是胎儿娩出时最先处理的是
一健康女婴,体重8kg,身长68cm,已能抓物,换手,独坐很久,能发复音,其最可能的月龄是
关于路面几何尺寸、平整度、强度及模量、承载能力、抗滑性能测试方法,请回答以下问题。承载板法测试土基回弹模量试验步骤,正确的顺序应为()。①测定土基的压力-变形曲线。②测定总影响量。③用千斤顶开始加载,注视测力环或压力表,至预压
专家们认为,造成老虎数量急剧下降的原因很简单:捕杀野生动物的违法行为仍未被完全禁止,东亚许多国家仍猖狂地进行动物皮毛交易。专家指出,亚洲新的人口增长趋势和经济变化对老虎的生存造成了非常重大的影响。亚洲富有的中产阶级可以承受昂贵的“虎宴”——用老虎身体的各个
A、 B、 C、 D、 C
当用户程序需要调用操作系统所提供的文件读写功能时,该功能首先执行的指令是()。
有如下程序:#include#includeusingnamespacestd;classFather{public:Father(string
ReadthefollowingtextsfromanarticleinwhichpeopletalkedaboutEnglishstudy.Forquestions61to65,matchthenameofe
最新回复
(
0
)