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"