VB程序设计教程实验1答案.doc

41011066付乾峰 资源1103 实验1自测习题1程序. Private Sub Form_Load()Label1.FontBold = FalseLabel1.FontUnderline = FalseLabel1.AutoSize = TrueLabel1.FontSize =15End SubPrivate Sub Command1_Click()Label1.AutoSize = TrueLabel1.FontSize = Label1.FontSize + 15End SubPrivate Sub Command2_Click()Label1.AutoSize = TrueLabel1.FontBold = TrueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click()Label1.FontBold = FalseLabel1.FontUnderline = FalseLabel1.AutoSize = TrueLabel1.FontSize = 15End Sub截图： 自测习题2程序.Private Sub Command1_Click()Label1.Caption = Visual BasicText1.Text = 程序设计题End SubPrivate Sub Command2_Click()Label1.Caption = 程序设计题Text1.Text = Visual BasicEnd Sub截图：自测习题3程序.Private Sub Command1_Click()Label1.FontSize = Label1.FontSize / 2End SubPrivate Sub Command2_Click()Label1.Top = Label1.Top + 300Label1.Left = Label1.Left + 300End SubPrivate Sub Form_Load()Label1.AutoSize = TrueLabel1.FontSize = 30Label1.Top = 300Label1.Left = 300End Sub截图： 自测习题4程序.Private Sub Command1_Click()Label1.Caption = 简单的VB程序设计Form1.Caption = VB学习End SubPrivate Sub Command2_Click()Label1.Caption = Form1.Caption = End SubPrivate Sub Command3_Click()EndEnd Sub截图： 自测习题5程序.Private Sub Command1_Click()Text1.Text = Text2.Text = Label4.Caption = Text1.SetFocusEnd SubPrivate Sub Command2_Click()Label4.Caption = Val(Text1.Text) + Val(Text2