VB程序设计教程实验指导与习题解答上机答案

自测1

程序代码

Private Sub Command1_Click()

Label1.FontSize = Label1.FontSize + 3

End Sub

Private Sub Command2_Click() Label1.FontBold = True

End Sub

Private Sub Command3_Click() Label1.FontUnderline = True

End Sub

Private Sub Command4_Click() Label1.FontSize = 10

Label1.FontBold = False

Label1.FontUnderline = False

End Sub

初始窗口：

单机放大之后窗口：

单机下划线之后窗口：

单击加粗之后窗口：

单击还原之后窗口：

自测2

程序代码

Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub

Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub

初始窗口：

爱华网本文地址 » http://www.aihuau.com/a/358251/549350441743.html