VB程序设计教程(第3版)课后答案解析

A.1

Private Sub Command1_Click( Label3 = Text1 End Sub A.2

Private Sub Form_Load( Timer1.Interval = 0 End Sub

Private Sub Command1_Click( '自动 Timer1.Interval = 200 End Sub

Private Sub Command2_Click( '手动 Timer1.Interval = 0 Call MyMove End Sub

Private Sub Timer1_Timer( Call MyMove End Sub Sub MyMove(

Label1.Move Label1.Left - 50

If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A.3

Private Sub Form_Click( Text1 = V al(Text1 + 1 End Sub

Private Sub Form_Load( Text1 = 0 End Sub A.4

Private Sub Form_Click( Caption = \单击窗体,改变图片\

Picture = LoadPicture(App.Path + \Print \欢迎使用VB\End Sub

Private Sub Form_DblClick( Cls

Caption = \双击窗体,卸去图片\Picture = LoadPicture(\

End Sub

Private Sub Form_Load( Caption = \装入窗体\

Picture = LoadPicture(App.Path + \Print \装入图\End Sub

Private Sub Form_Resize( ' 该事件的作用窗体始终与图一样大 'Caption = \窗体大小不变\

'Form1.Width = 260 * 16 ' 260是Tongji-2.bmp图的宽度,象素单位

'Form1.Height = 260 * 16 + 200 ' 260是图的高度,象素单位,200是窗体的标题栏高度End Sub

A.5

Sub Command1_Click( Text1.FontName = \隶书\Text1.FontSize = 25 End Sub

Sub Command2_Click( Text2.Text = Text1.SelText Text2.FontName = Text1.FontName