VB程序设计教程(第3版)高等教育龚沛曾杨志强陆慰民课后实验答案.doc

目录 实验A 1 A．1 1 A．2 1 A．3 1 A．4 2 A．5 2 实验B 2 B．1 2 B．2 3 B．3 4 B．4 4 B．5 4 B．6 4 B．7 5 B．8 5 实验C 5 C．1 5 C．2 6 C．3 6 C．4 7 C．5 7 C．6 8 C．7 9 C．8 9 实验D 10 D．1 10 D．2 10 D．3 10 D．4 11 D．5 11 D．6 11 D．7 12 D．8 12 D．9 12 实验E 13 E．1 13 E．2 13 E．3 14 E．4 14 E．5 15 E．6 16 E．7 16 E．8 17 E．9 18 E．10 18 实验F 19 F．1 19 F．2 19 F．3 20 F．4 20 F．5 21 F．6 22 F．7 22 F．8 23 实验G 23 G．1 23 G．2 24 G．3 24 G．4 25 G．5 26 G．6 26 G．7 27 G．8 27 G．9 27 G．10 28 实验H 30 H．1 30 H．2 31 H．3 31 H．4 31 H．5 33 H．6 36 H．7 37 实验A 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 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．4 Private Sub Form_Click() Caption = 单击窗体，改变图片 Picture = LoadPicture(App.Path + \n_015.bmp) Print 欢迎使用VB End Sub Private Sub Form_DblClick() Cls Caption = 双击窗体，卸去图片 Picture = LoadPicture() End Sub Private Sub Form_Load() Caption = 装入窗体 Picture = LoadPicture(App.Path + \n_016.bmp) 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 Text2.FontSize = Text1.FontSize End Sub 实验B B．1 Private Sub Command1_Click() Text2 = Format(5 / 9 * (Val(Text1) - 32), 0.00) End Sub Private Sub Command2_Click() Text1 = Format(9 / 5 * Val(Text2) + 32, 0.00) End Sub 或 Private Sub Command1_Click() Dim f!, c!