首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。请考生在窗体上设置一个计时器,名称为Timerl,并补充完整程序代码,使得程序开始运行后,每隔3秒,用黑色填充四分之一的圆,界面如图64—4所示。 注意:请在
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。请考生在窗体上设置一个计时器,名称为Timerl,并补充完整程序代码,使得程序开始运行后,每隔3秒,用黑色填充四分之一的圆,界面如图64—4所示。 注意:请在
admin
2010-07-13
33
问题
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。请考生在窗体上设置一个计时器,名称为Timerl,并补充完整程序代码,使得程序开始运行后,每隔3秒,用黑色填充四分之一的圆,界面如图64—4所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有工程文件sj4.Vbp及窗体文件sj4.frm,该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时,可以输入4个数值,随后程序对这4个数值进行升序排序,并显示出来,如图64—5所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)计时器控件用以实现在规则的时间间隔触发其Timer事件,执行有关事件过程代码,来完成对应功能。Interval属性用于设置触发计时器的Timer事件的时间间隔,单位为毫秒,值为0时计时器不启用。Enabled属性控制计时器是否开始启用,True为启用,False为不启用。 程序中用到了Circle函数来画圆,其格式为:原点,半径,[颜色],[起始角度],[结束角度]。每隔3秒填充一次,也就是第4秒填充一次,因此,以4为循环周期。根据题意,将一个计时控件添加到窗体中,其名称为Timerl,间隔为3000毫秒,双击Timerl,进入代码编写窗口,补充后的具体代码如下: Dim a As Integer Private Sub Form_Click() a=
0
’初始化计数值 End Sub Private Sub Timerl_Timer() Const rPI As Single=3.14159265358979 ’圆周率 Me.FillStyle=0’填充方式为0 Me.Cls’清空窗口 For i=1 To 600 ’从半径为l到600画圆,即填充颜色 Me.
Circle
(1500,1000),i,vbBlack,360/180*rPI,(90*a+90)/180*rPI Next i Me.
Circle
(1500,1000),600,(90*a+90)/180*rPI,360/180*rPI a=(a+1)Mod 4’以4为周期填充 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题主要考查考生阅读程序的能力,以及对数组、输入函数、IF语句的掌握情况。 根据题意,将两个命令按钮添加到窗体中,名称分别为Commandl和Command2、Caption分别为“输入”和“排序”,设置完成后双击Commandl进入代码窗口,补充后的代码如下: Dim a(4)As Integer Dim i As Integer Dim str As String Dim,tmp As String Private Sub Commandl_Click() str="" For i=1 To 4 a(i)=Val(
InputBox
("请输入:")) ’逐个输入数据 tmp=a(i) str=str+tmp+"" ’将数据放入字符串中 Next i Print str ’在窗口上显示字符串 End Sub Private Sub Command2_Click() str="排序后:" For i=1 To 4 ’升序排列 temp=a(i) For i=0 To i If a(j)>
temp
Then’读取的数据比原位置的数据大则偏移 For k=i To j+1 Step-1 a(k)=a(k-1) ’数据向后偏移一个 Next k a(j)=temp
Exit For
End If Next j Next i For i=1 To 4 tmp=a(i) ’将排序后的数组放人字符串中 str=str+tmp+"" Next i Print str’显示排序后的数组字符串 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/oGmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据结构中,与所使用的计算机无关的是数据的()。
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流、【】和处理过程。
三元条件运算符ex1?ex2:ex3,相当于下面的( )语句。
下列选项中不属于结构化程序设计方法的是( )。
两个或两个以上的模块之间关联的紧密程度称为( )。
下面程序片段的执行中,说法正确的是( )。publicclassTest{publicstaticvoidmain(Stringargs[]){bytey=20;
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={678,45,324,528,439,3
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
下列基本命令中,属于类文件分解器命令的是
随机试题
A、Theproductswillbeon-trial.B、Theservicewillbepermanent.C、Themeetingwon’tlastlong.D、Thepositionwillbesecured.
人生的自我价值,是指个体的人生活动对自己的生存和发展所具有的价值,主要表现为________的满足程度。
期货投资者保障基金管理机构应当定期编报保障基金的筹集、管理、使用报告,经会计师事务所审计后,报送()。[2012年11月真题]
甲公司面临的市场状况如下:消费者对产品认识深刻,挑剔性高,由于利润率下降明显,许多竞争对手开始退出该市场,甲公司必须集中于成本控制以维持正的现金流量。根据以上信息可以判断在产业生命周期的下列阶段中,甲公司处于()。
资产负债表日,企业应将交易性金融资产的公允价值变动计入公允价值变动损益。()
2010年是深圳经济特区建立30周年。中共中央政治局常委、国务院总理温家宝8月在深圳考察工作并听取广东省和深圳市工作汇报。温家宝强调,经济特区30年来的实践充分表明,改革开放是决定当代中国命运的关键抉择,:是实现国家强盛、人民幸福的必由之路。(
物理知识在生活中应用广泛。下列与电磁学不相关的是()。
给定资料1.为了能顺利地给病重的妻子挂上号、看上专家门诊,贵州省大方县的陈涛不得不在周日的晚上就和妻子赶夜路往贵阳走。“城里的医院人太多了,不早点到,哪看得上啊!”他在周一凌晨4点多就赶到贵州省人民医院排队。“每天早上都有一些病人,特别
成本管理分为成本估算、成本预算和成本控制三个过程。以下关于成本预算的叙述中,不正确的是:()。
Followingcomplaintsfromtheemployees,yourChiefExecutiveaskedyoutowriteaproposalintroducingflexibleworkinghours.
最新回复
(
0
)