电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

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

VB程序设计教程(第3版)课后实验答案_第1页
1/36
VB程序设计教程(第3版)课后实验答案_第2页
2/36
VB程序设计教程(第3版)课后实验答案_第3页
3/36
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!, ...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

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

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部