在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。 Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Single t1 = Timer Dot2 = TimerIf t2 ＜ t1 Then t2 = t2 + 86400If t2 - tl ＞ n Then Exit Do 【12】 Loop End Sub Sub main( ) Form2. Show dlys 【13】 【14】 Form1. Show End Sub

（2009·北京东城期末检测）南极大地的水陆交接处，全是滑溜溜的冰层或者尖锐的冰棱。企鹅没有可以用来攀爬的前臂，也没有可以飞翔的翅膀，如何从水中上岸？聪明的企鹅是在将要上岸之时，从海面扎入海中，拼力沉潜，一直沉潜到适当的深度，借用水的浮力，迅猛向上，落于陆地之上。企鹅的沉潜是为了蓄势，积聚破水而出的力量，看似笨拙，却富有成效。人生又何尝不是如此？当我们面前困难重重，何不学学企鹅的沉潜？这种沉潜绝非沉沦，而是自强。如果我们在困难面前能沉下气来，不被“冰棱”吓倒，不被浮华迷惑，自强不息，积聚力量，并抓住恰当的机会反弹向上，我们就能成功登陆！反之，总是随波浮沉，或者怨天尤人，注定被命运的风浪所玩弄。甘于沉下去，才可浮出来，企鹅的沉潜原则，也适用于人的生存。

阅读此文后，运用所学人生价值观的知识，说明应如何在逆境中实现人生价值？