vb实验-程序代码.docxVIP

AP1-2 Private Sub Form_Click() Print Print Print Print 欢迎使用visual basic！ End Sub Private Sub Form_Load() FontSize = 20 FontBold = True ForeColor = vbRed Picture = LoadPicture(App.Path + \image\t1.gif) End Sub P2-1 Private Sub Command1_Click() Label1 = Text1 End Su