一个富翁试图与陌生人做一笔生意用python_VisualBasic程序设计教程(第版)实验答案.doc...

VisualBasic程序设计教程(第版)实验答案.doc

※声明：

实验1-1

编制简单的欢迎界面程序。

要求：在屏幕上显示“欢迎学习Visual Basic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是”，在Label3标签显示在文本框中输入的姓名。

程序运行效果如图2.1.1所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”。(如某同学的学号为所完成的是实验2的第3题，那么程序文件名为“2-3.frm”和“2-3.vbp”)

图

提示：

(1) 实验所用到的控件及属性设置见表2.1.1。

表2.1.1 属 性 设 置

控件名

属 性

Label1

Caption="欢迎学习Visual Basic"；Font属性：字号为二号，字体为隶书，Aligment=2(居中)

Label2

Caption="请输入你的姓名"；Font属性：字体为楷体，有下划线

Label3

Caption=""，BorderStyle=1

Text1

Text=""

Command1

Caption="你输入的姓名是"

(2) “欢迎学习Visual Basic”要在两行显示，只要将Label1控件的宽度缩小一些。

Private Sub Command1_Click()

Label3.Caption = Text1.Text

End Sub

实验1-2

模仿教学篇例1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表2.1.2，背景图形文件可以选择自己喜欢的，按钮上的图标可通过Windows搜索功能查找。以“学号-1-2”为项目名保存。

表2.1.2 属 性 设 置

控件名

属 性

Form1

Caption="实验1.2"；Picture：选择自己喜欢的图片

Label1

Caption="我开始学习程序设计"；FontSize=36；BackStyle=0

Command1

Caption=""；Style=1；Picture="clock02.ico"；ToolTipText＝"自动"

Command2

Caption=""；Style=1；Picture="key04.ico"；ToolTipText＝"手动"

Timer1

Interval=0

注：因为印刷错误，例题1.1中两个命令按钮的图形与事件过程代码不一致，需要调整。

提示： 自定义事件过程MyMove代码应调整为，可实现文字移动方向的改变

Sub MyMove()

Label1.Move Label1.Left - 50, Label1.Top

If Label1.Left < 0 Then Label1.Left = Form1.Width

End Sub

Sub MyMove()

Label1.Move Label1.Left - 50, Label1.Top

If Label1.Left < 0 Then Label1.Left = Form1.Width

End Sub

Private Sub Command1_Click()

Timer1.Interval = 200

End Sub

Private Sub Command2_Click()

Timer1.Interval = 0

Call MyMove

End Sub

Private Sub Form_Load()

Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

Call MyMove

End Sub

实验1-3

图

提示：

(1) 对窗体编写两个事件：Form_Load 事件中对文本框置初值为空；Form_Click事件对鼠标单击文本框计数。

(2) 对鼠标单击文本框计数计算为：Text1.Text=Val(Text1.Text)+1

Private Sub Form_click()

Text1.Text = Val(Text1.Text) + 1

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

实验1-4

提示：

例题中Form_Resize事件可以不考虑，Picture属性设置中注意图片文件有后缀名，运行测试前需要先保存项目名，保证图片文件和程序文件在同一个文件夹下，否则会出现图片找不到的错误提示。

Private Sub Form_Click()

Caption = "单击窗体"

Picture = LoadPicture(App.Path + "\p2.jpg")

Print "欢迎使用VB"