VB程序设计教程(3版)课后实验答案.docVIP

实验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! 声明两个变量 f = Val(Text1) c = 5 / 9 * (f - 32) Text2 = Format(c, 0.00) 保留两位小数 End Sub Private Sub Command2_Click() Dim ff!, cc! 声明两个变量 cc = Val(Text2) ff = 9 / 5 * cc + 32 Text1 = Format(ff, 0.00) 保留两位小数 End Sub B．2 Private Sub Command1_Click() Label2 = Format(Val(Text1) * Val(Text1) * 3.14, 0.00) End Sub Private Sub Command2_Click() Label3 = Format(Val(Text1) * 3.14 * 2, 0.00) End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then