vb高教版龚沛曾主编课后实验题答案.docVIP

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．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 ???? MsgBox 输