VB程序设计教程(第3版)课后实验答案VIP免费

A ．1 Priv ate Su b Command1_Click() Label3 = Tex t1 End Su b A ．2 Priv ate Su b Form_Load() Timer1.Interv al = 0 End Su b Priv ate Su b Command1_Click() '自动 Timer1.Interv al = 200 End Su b Priv ate Su b Command2_Click() '手动 Timer1.Interv al = 0 Call My Mov e End Su b Priv ate Su b Timer1_Timer() Call My Mov e End Su b Su b My Mov e() Label1.Mov e Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Su b A ．3 Priv ate Su b Form_Click() Tex t1 = Val(Tex t1) + 1 End Su b Priv ate Su b Form_Load() Tex t1 = 0 End Su b A ．4 Priv ate Su b Form_Click() Caption = "单击窗体，改变图片" Pictu re = LoadPictu re(App.Path + "\n_015.bmp") Print "欢迎使用 VB" End Su b Priv ate Su b Form_DblClick() Cls Caption = "双击窗体，卸去图片" Pictu re = LoadPictu re("") ' End Su b 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．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!, ...