首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称足Linel,还有一个名称为Label1的标签,和其他一些控件,如图2.118(a)所示。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的何置,如图2.1
(1)在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称足Linel,还有一个名称为Label1的标签,和其他一些控件,如图2.118(a)所示。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的何置,如图2.1
admin
2016-12-29
37
问题
(1)在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称足Linel,还有一个名称为Label1的标签,和其他一些控件,如图2.118(a)所示。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的何置,如图2.1 18(b)所示:若用鼠标右键单击圆的边线,则指针恢复到起始位置,如图2一118(a)所示;若鼠标左键或右键单击其他位置,则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。程序中的oncircle函数的作用足判断鼠标单击的位置是否在圆的边线上(判断结果略有误筹),是则返回True,否则返回False。符号常量x0、y0是圆心距窗体左上角的距离;符号常量radius是圆的半径。
注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生目录下有一个工程文件sjt4.vbp,窗体如图2.119所示。其功能是单击“输入数据”按钮,则可输入一个整数n(要求:8≤n≤12);单击“计算”按钮,则计算1!+2!+3!+…+n!,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果保存到考生目录下的out4.dat文件中。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,并编写“计算”按钮的Click事件过程。
注意:不得修改已经存在的内容和控件属性,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1.打开本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“”’,将问号“?”改为正确的内容。 参考代码: Line2.Y2=Y Linel..X2一Linel.X1 Linel..Y2=y0—750 Labe11.Caption=“鼠标位置不对” 步骤2:按要求将文件保存至学生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“”’,将问号“?”改为止确的内容。 参考代码: s=1 f=s 步骤2:双击“计算”按钮,编写该按钮的单击事件过程。 参考代码: PriVate Sub Command2一Click() Dim s As Long, k AsInteger ‘考生应编写的程序 s=0 For k=1 To n s=s+f(k) Next Text1=s End Sub 步骤3:按
键键运行程序,单击“输入数据”按钮,通过输入框输入一个8一12之间的整数,然后单击“计算”按钮计算结果,最后单击“存盘”按钮保存结果。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/e9Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据独立性分为逻辑独立性和物理独立性。当总体逻辑结构改变时,其局部逻辑结构可以不变,从而根据局部逻辑结构编写的应用程序不必修改,称为_________。
设有如下程序:OptionBase1PrivateSubFormClick()Dima(5)AsString,iAsIntegerFori=1TO5a(i)=Chr(Asc("A")+i)
以下关于函数过程的叙述中错误的是()。
在程序运行时,可以通过______方法来移动滚动条的位置。
下列程序中,a,b,c代表一个三角形的三条边,程序的作用是判断一个三角形是否成立,请填写空白处。Ifa+b<c______b+c<a______a+c<bThenMsgBox("这三条边不能构成一个三角形")EndIf
为了保存一个VisualBasic应用程序,下列说法中正确的是
不能打开菜单编辑器的操作是______。
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsIntegerOpen【】As#1Fori=1To10
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填()。SubEnSure()DimyearAsIntegeryear=Val(InputBox("请输入年份:"))
能够将Picture对象Pic1加载当前目录中的face.bmp的语句是
随机试题
在几种胶结类型中,接触胶结的孔隙度()孔隙胶结。
斯巴达教育的目的是培养()
女性,62岁,乏力、易疲倦,活动后气短3个月,大、小便正常。偏吃素食。查体:面色苍白,皮肤干燥、指甲变平,心肺正常。血象:WBC4.9×109/L,RBC3.5×1012/L,Hb62g/L,PLT390×109/L,铁蛋白3μg/L,诊断为缺铁性贫血,口
患者,男,30岁。腹部砸伤5小时。查体:四肢湿冷,腹肌紧张,全腹压痛,反跳痛,有移动性浊音,肠鸣音消失。该患者目前应进行的处理不包括
(2006年)下列分子中,键角最大的是()。
采用组态方式编写程序的语言称为( )。
下列关于贷款的说法,正确的是()。
甲公司的经营杠杆系数为3,财务杠杆系数为2,固定的财务费用为20万元,无优先股。则甲公司的固定生产经营成本为()万元。
下列成语中,没有错别字的一项是()。
RogerRosenblatt’sbookBlackFiction,inattemptingtoapplyliteraryratherthansociopoliticalcriteriatoitssubject,succe
最新回复
(
0
)