Question

VB 每隔1秒标签交替隐藏或显示一次 RT

在名称为Form1的窗体上，画一个名称为Label1的标签，其标题为“程序设计”，能根据标题内容自动调整标签的大小，外观如图所示。画一个名称为Timer1的计时器，其Interval属性设置为0，Enable属性设置为True。
要求：编写窗体的Load事件过程和计时器的事件过程，使得程序运行时，每隔1秒标签交替隐藏或显示一次。
注意：存盘时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句（不得使用选择语句或循环语句）。

Answer 1

Private Sub Form_Load()
Label1.Caption = "程序设计"
Label1.AutoSize = 1
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Visible = IIf(Label1.Visible = -1, 0, -1)
End Sub