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

自测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 初始窗口： 单击显示之后窗口： 单击交换之后的窗口： 自测题3 Private Sub Command1_Click() Label1.FontSize =