首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。 要
(1)考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。 要
admin
2020-02-27
36
问题
(1)考生文件夹中有工程文件sjt3.vbp。程序运行时,单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:考生不得修改窗体文件中已经存在的程序。最后,程序按原文件名存盘。
(2)在考生目录下有一个工程文件sjt4.vbp。程序的功能是,单击“产牛随机数”按钮可以产生10个随机数放到数组中并显示在图片框中,在文本框中输入一个小丁10的正整数m,单击“移动数据”按钮,可以把数组中的前m个数据移动到后面去,并显示在图片框中。如图所示。
在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题项目工程 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim n As Integer Private Sub Form Click() Timerl.Enabled=True End Sub Private Sub Form Load() Timer1.Interval=黼 Timer1.Enabled=False Text1.ForeC010r=0 n=0 End Sub Private Sub Timerl Timer() n=n+1 If n Mod 5=0 Then Text1.Text=Time() End If If n Nod 8=0 Then If Text1.ForeColor=0 Then Text1.ForeColOr=&HFF ElBe Text1.ForeC010r=0 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘 (2)步骤1:打开本题项目工程 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim a%(1 To 10) Private Sub Comrnandl Click() Randomize For k=1 To 10 a(k)=Int(Rnd*90+10) Picture1.Print a(k); Next k Picturel.Print Picturel.Print"---------------------------------------------------------------" End Sub Prirate Sub Command2 C1ick() m%=Val(Text1) MoveArray a()’誓 For k=1 TO 10 Picturel.Print a(k); Next k Picture1.Print End Sub Sub MoveArray(a()As Integer,m As Integer) n%=UBouncl(a) For k=l To m x=a(1) For j=1 To n-1 a(j)=a(j+1) Next j a(n)=x Next k Enct Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘
解析
(1)程序初始化时,将Timer1控件的Interval属性设置为1000,En8hled属性设置为False,即程序开始时Timer1控件不可用。当程序开始运行时,单击窗体将Timer1的Enabled属性设置为True,在Timer1_Timer事件中通过设置一个计数器变量n,用于实现单击窗体,则开始每隔5秒钟在文本框中显示一次当前时间,及文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。
(2)利用二重For循环对数组中的元素进行移动,将移动的元素个数之后的数组元素依次前移,最后将要移动的前几个元素放到数组最后。
转载请注明原文地址:https://jikaoti.com/ti/ABx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocusEndS
有以下通用过程:Functionfun(NAsInteger)S=0Fork=lToNS=S+k*(k+1)Nextkfun=SEndFunction该过程的功
设窗体上有1个名称为Command1的命令按钮,并编写了下面的事件过程:PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSing
将数据项"Student"添加到名称为List1的列表框中,并使其成为列表框第一项的语句为( )。
数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和()。
A、各子菜单项组成一个名称为mnu1的控件数组B、不论选中菜单项1、2或3,均执行mnu1_Click事件过程C、Case2分支的语句没有必要,因为该菜单项的"复选"属性已被设置D、程序中的Index是系统自动产生的C菜单项1至菜单项3是名称为m
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
结构化程序设计的基本原则不包括()。
下面属于良好程序设计风格的是()。
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是()。
随机试题
地西泮注射液采用HPLC测定含量而不采用紫外分光光度法测定的原因在于
林某为了报复,将卢某价值80万元的轿车砸坏。公安机关在侦查过程中对其取保候审,郑某是林某的保证人。侦查过程中卢某向公安机关提出赔偿请求,要求林某赔偿修理轿车花费的14万元,经公安机关记录在案。在案件起诉到人民法院后,林某逃往外国。因知情没有及时报告,郑某被
沥青混合料的高温稳定性,在实际工作中通过()方法进行评价。
A公司如何才能合法使用该片土地()。开发企业申请拆迁,下列说法正确的是()。
公路工程质量控制关键点要根据哪些文件和资料的要求设置?工程技术总负责人负责对技术文件、报告、报表进行审核和分析是否妥当?如不妥,应由谁负责?
原始凭证是记录经济业务发生和完成情况的书面证明,也是登记账簿的唯一依据。()
决定利息率的基本因素是()。
物质和意识有无同一性,即人们的思维能否认识现实世界,思维能不能正确反映存在的问题。对这方面问题的不同回答,是哲学上划分()的标准。
下列各句中,句意明确,没有语病的一项是( )。
AdaptationofLivingThingsCertainanimalsandplantsdevelopcharacteristicsthathelpthemcopewiththeirenvironmentbetter
最新回复
(
0
)