VB在线求答案啊3、在“第3题”文件夹中写入适当的语...

优质解答

Option Explicit

Dim Fsize%, Lleft%, i%

Private Sub Command1_Click() '扩大

Label1.Font.Size = Fsize * 2

End Sub

Private Sub Command2_Click() '加黑

Label1.Font.Bold = True

End Sub

Private Sub Command3_Click() '下划线

Label1.Font.Underline = True

End Sub

Private Sub Command4_Click() '还原

With Label1.Font

.Size = Fsize

.Bold = False

.Underline = False

End With

End Sub

Private Sub Form_Load() '窗体装载准备

Fsize = Label1.Font.Size

Lleft = Label1.Left

Label1.AutoSize = True

Form1.AutoRedraw = True

End Sub

Private Sub Label1_Click() '标签左称

If i >= 5 Then Exit Sub

Label1.Move Label1.Left - Lleft / 5

End Sub