vb实验第四版答案_VisualBasic程序设计教程（第4版）实验
答案.doc
您所在位置：⽹站⾸页 > 海量⽂档
 > 计算机 > Visual Basic
Visual Basic程序设计教程(第4版)实验答案.doc129页
本⽂档⼀共被下载：次，您可全⽂免费在线阅读后下载本⽂档。
下载提⽰
1.本站不保证该⽤户上传的⽂档完整性，不预览、不⽐对内容⽽直接下载产⽣的反悔问题本站不予受理。
2.该⽂档所得收⼊(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，⽴即⾃动返⾦币，充值渠道很便利
※声明：
实验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
visual basic pdfCaption=""；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"
发表评论
请⾃觉遵守互联⽹相关的政策法规，严禁发布⾊情、暴⼒、反动的⾔论。
⽤户名:
验证码:
匿名?
发表评论

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。