首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。 要
(1)考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。 要
admin
2018-05-08
27
问题
(1)考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。最后,程序按原文件名存盘。
(2)在考生目录下有一个工程文件sjt4.vbp。程序的功能是,单击“产生随机数”按钮可以产生10个随机数放到数组中并显示在图片框中,在文本框中输入一个小于10的正整数m,单击“移动数据”按钮,可以把数组中的前m个数据移动到后面去,并显示在图片框中。如图3.39所示。
在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容。最后把修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Timerl.Enabled=True Timerl.Interval=1000 n=n+1 If Text1.ForeColor=0 Then 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: MoveArray a(),m For k=1 To m a(j) =a(j + 1) a(n) =x 步骤2:按要求将文件保存至考生文件夹中。
解析
(1)题目要求5秒显示一次当前时间,8秒改变一次颜色,但是程序中之使用了一个定时器,因此必须在这个定时器里面做两个事情:刷新时间和改变颜色。分析代码,根据“If n Mod 5=0 Then”和“If n Mod8=0 Then”可知,定时器的周期为1秒;题目要求在单击窗体时开始更新时间和改变颜色,因此在窗体的Click事件代码里面需要使能定时器,即把定时器的Enabled属性设置为True;在定时器的Timer事件代码里面,根据n的值去显示时间和改变颜色,因此n记录了程序运行了多少秒,即每次Timer事件处理n的值应该加1;第四个“?”处是判断文本框当前的颜色,如果是0则改变成&HFF,否则改成0,实现颜色的切换。
(2)题目要求对一列数据进行移动,分析程序可知,在“产生随机数”命令按钮的事件代码里面,生成的随机数保存在数组a当中。在“移动数据”命令按钮的事件代码里面,调用过程MoveArray对数组数据进行移动。MoveArray过程通过一个嵌套的循环来移动数组数据,移动的方法是每次取出第一个数据,然后把后面的数据往前移动,再把取出来的第一个数据放到最后,如此完成一个数据的移动。第一个“?”处是补充函数调用的参数,MoveArray过程有两个参数,第一个参数是数组,第二个参数是Integer类型参数,表示把前面多少个数据移动到后面,即第二个参数为m;第二个“?”处是补充循环的结束条件,内层循环是从把数据往前面移动,因此外层循环是控制前面移出多少个数据,即循环的次数由入参m决定;第三个“?”处的循环把数据从后往前移,即把后面的一个数据赋值给前面一个,完成一格移动;最后一个“?”处是把取出来的a(1)放到最后一个元素位置。
转载请注明原文地址:https://jikaoti.com/ti/ouy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Optionl的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOptionl_Click(IndexAsInteger)EndSub下面关于此过程的参数I
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandl_Click()Dimarr_x(5,5)AsIntegerFori=1To3
编写如下程序:PrivateSubCommandl_Click()DimnAsLong,sAsStringn=InputBox(”输入一个数”)DOWhilen<>
有下面程序代码:PrivateSubCommandl_Click()DimsignAsIntegersign=1a=1:b=2Fork=1To5
在VisualBasic中,所有标准控件都具有的属性是
能够存放组合框的所有项目内容的属性是
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是
以下关系表达式中,其值为True的是()。
如果在列表框List1中没有选中项目,则List1.ListIndex的值为
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
随机试题
简述处理政府公众的艺术。
下列选项中,属于消化性溃疡常见的并发症有
甲因邻里纠纷失手致乙死亡,甲被批准逮捕。案件起诉后,双方拟通过协商达成和解。对于此案的和解,下列哪一选项是正确的?(2014年试卷二第40题)
客户信用证券账户为证券公司客户信用交易担保证券账户的()证券账户。
我国现行法律规定,会计师事务所和注册会计师如果工作失误或犯有欺诈行为,应对委托人或依赖已审计会计报表的第三人承担法律责任。 ( )
以下有关合同的说法中,错误的是()。
计算简答题:根据所给材料回答问题。(需计算后回答的问题须列出算式;每个问题计算过程中的小数均保留实际位数,计算结果有小数的,小数保留2位。)甲出版社拟出版一本文学新书《不曾有的记忆》。助理技术编辑小王为该书拟订的整体设计方案内容,包括采用小16开
根据听觉位置理论,耳蜗对高频声波反应的敏感区域位于()。(2011年)
如果你父母每年年初给你10000元钱,存款年利率为6%,到第三年年末你父母给你的钱一共值多少?()
Unless______,Iwillnotgototheparty.
最新回复
(
0
)