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
当双击列表框中的某个项目时,在标签Label1中显示所选中的项目,如图16-1所示。请在【 】和【 】处填入适当的内容,将程序补充完整。(2002年9月) Private Sub Form_load() List1. AddItem"北京" List1. AddItem"上海" List1. AddItem"河北" End Sub Private Sub【 】 () Label1. Caption=【 】 End Sub