在Visual Basic 程序启动运行中设置一个封面窗口 显示一些有意义的信息 要求显示时间5秒。
在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
在空1处,为了在闲置循环状态下可响应其他事件,使用语句DoEvents;接下来,在空2处,使用延时子程序dlys,因为是延时5秒钟,因此此处n的值为5;在空3处,应该将封面窗体form2卸载掉,因为它只是在启动的时候给用户展示一个画面信息,在以后程序运行中将不再用到它,将它从内存中彻底清除,使用语句UnloadForm2。
相似问题
下列程序的功能是将数组中的奇数相加。给定的程序不完整 请将程序补充完整。 Option Base 1
下列程序的功能是将数组中的奇数相加。给定的程序不完整,请将程序补充完整。 Option Base 1 Private Sub form_Click() Dim k As Integer Dim
二叉树是结点的有限集合 这个有限集合或者为【 】 或者由一个根结点及两棵不相交的二叉树组成 分别作为
二叉树是结点的有限集合,这个有限集合或者为【 】,或者由一个根结点及两棵不相交的二叉树组成,分别作为根的左子树和右子树。请帮忙给出正确答案和分
测试是保证软件质量的重要措施 一般测试过程所产生的文档应包括:测试计划 测试过程和【 】。请帮忙给出
测试是保证软件质量的重要措施,一般测试过程所产生的文档应包括:测试计划、测试过程和【 】。请帮忙给出正确答案和分析,谢谢!
在下面程序的执行过程中 将要进行【 】次循环 而在第3次循环输出的数据是【 】。 Private S
在下面程序的执行过程中,将要进行【 】次循环,而在第3次循环输出的数据是【 】。 Private Sub Command1 Click() Dim b(-1 To 3) For i=LBo
下列过程的功能是:用来计算并输出S=1+1/2+1/3+…+1/100的值 请完善下列程序。 Fur
下列过程的功能是:用来计算并输出S=1+1 2+1 3+…+1 100的值,请完善下列程序。 Furiction SumD (n As Integer)As Single s = 1 i = 1 Do
