2. 计算机
  3. (1)考生文件夹中有工程文件sjt3．vbp。程序运行时，单击窗体，则开始每隔5秒钟在文本框中显示一次当前时间，文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件，但程序不完整。 要

(1)考生文件夹中有工程文件sjt3．vbp。程序运行时，单击窗体，则开始每隔5秒钟在文本框中显示一次当前时间，文本框中文字的颜色每隔8秒在红色(颜色值为&HFF)与黑色(颜色值为0)之间切换。在给出的窗体文件中已经有了全部控件，但程序不完整。 要

admin2020-02-27  61
问题 (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://www.kaotiyun.com/show/8PTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)