现在位置: > > 高等教育 > 工学

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

实验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 = "双击窗体,卸去图片"

相关文档
VB程序设计教程(第3版)课后实验答案
VB程序设计教程(第3版)课后实验答案_理学_高等教育_教育专区。VB程序设计教程(第3版)课后实验答案安徽大学实验A A.1 Private Sub Command1_Click() Label3 =...
VB程序设计教程(第3版)课后实验答案
() List1.Clear List1.AddItem "大学计算机基础" List1.AddItem "C/C++程序设计" List1.AddItem "VB 程序设计" List1.AddItem "Web 程序设计" List1....
VB程序设计教程(第3版)课后实验答案
VB程序设计教程(第3版)课后实验答案 隐藏>> A.1 . Private Sub Command1_Click() Label3 = Text1 End Sub A.2 . Private Sub Form_Load() Timer1....
VB程序设计教程(第3版)课后实验答案最新版2
VB程序设计教程(第3版)课后实验答案最新版2_工学_高等教育_教育专区。课后实验答案1、完成实验 A(P.259)中的第 1、2、3、5 题。 2、参照第 2 章例 2...
VB程序设计教程(第3版)课后实验答案
实验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_...
VB程序设计教程(第3版)课后实验答案
() List1.Clear List1.AddItem "大学计算机基础" List1.AddItem "C/C++程序设计" List1.AddItem "VB 程序设计" List1.AddItem "Web 程序设计" List1....
vb程序设计教程课后答案(第三版)
vb程序设计教程课后答案(第三版)_管理学_高等教育_教育专区。vb程序设计教程课后答案(第三版)习题 答案在教材上找。 习题二 1.对象指现实世界中的实体。...
vb程序设计教程课后答案实验答案 (第三版)
vb程序设计教程课后答案实验答案 (第三版)_工学_高等教育_教育专区。习题一 答案在教材上找。 习题二 1.对象指现实世界中的实体。每个对象有自己的特征(...
VB程序设计教程(第3版)课后实验答案[1]
VB程序设计教程(第3版)课后实验答案[1] 隐藏>> 实验A A.1 . Private Sub Command1_Click() Label3 = Text1 End Sub A.2 . Private Sub Form_Load(...
相关主题
返回顶部
热门文档