2. 计算机
  3. 在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。 Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Sing

在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。 Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Sing

admin2009-02-13  54
问题 在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。
      Sub dlys(ByVal n As Single)
      Dim tl As Single
      Dim t2 As Single
      t1 = Timer
      Do
         t2 = Timer
         If t2 ＜ t1 Then t2 = t2 + 86400
         If t2 - tl ＞ n Then Exit Do
         【  】
     Loop
     End Sub
      Sub main( )
     FormShow
     dlys【  】
     【  】
     Form1.Show
     End Sub
选项
答案DoEvents , 5 , Unload Form2
解析 在空【  】处，为了在闲置循环状态下可响应其他事件，使用语句DoEvents；接下来，在空【  】处，使用延时子程序dlys，因为是延时5秒钟，因此此处n的值为5；在空【  】处，应该将封面窗体form2卸载掉，因为它只是在启动的时候给用户展示一个画面信息，在以后程序运行中将不再用到它，将它从内存中彻底清除，使用语句Unload Form2。
转载请注明原文地址:https://kaotiyun.com/show/FO2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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