VisualBasic程序设计教程第版实验答案Word文档下载推荐.docx
《VisualBasic程序设计教程第版实验答案Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VisualBasic程序设计教程第版实验答案Word文档下载推荐.docx(72页珍藏版)》请在冰豆网上搜索。
提示:
表2.1.1属性设置
控件名
属性
Label1
Caption="
欢迎学习VisualBasic"
;
Font属性:
字号为二号,字体为隶书,Aligment=2(居中)
Label2
请输入你的姓名"
字体为楷体,有下划线
Label3
"
,BorderStyle=1
Text1
Text="
Command1
你输入的姓名是"
(2)“欢迎学习VisualBasic”要在两行显示,只要将Label1控件的宽度缩小一些。
PrivateSubCommand1_Click()
Label3.Caption=Text1.Text
EndSub
实验1-2
模仿教学篇例1.1,将事件过程中的自上而下移动改为自右向左移动,同时考虑文字超出窗体边界的情况。
各个控件及属性窗口的设置见表2.1.2,背景图形文件可以选择自己喜欢的,按钮上的图标可通过Windows搜索功能查找。
以“学号-1-2”为项目名保存。
表2.1.2属性设置
Form1
实验1.2"
Picture:
选择自己喜欢的图片
我开始学习程序设计"
FontSize=36;
BackStyle=0
Style=1;
Picture="
clock02.ico"
ToolTipText="
自动"
Command2
key04.ico"
手动"
Timer1
Interval=0
注:
因为印刷错误,例题1.1中两个命令按钮的图形与事件过程代码不一致,需要调整。
自定义事件过程MyMove代码应调整为,可实现文字移动方向的改变
SubMyMove()
Label1.MoveLabel1.Left-50,Label1.Top
IfLabel1.Left<
0ThenLabel1.Left=Form1.Width
Timer1.Interval=200
PrivateSubCommand2_Click()
Timer1.Interval=0
CallMyMove
PrivateSubForm_Load()
PrivateSubTimer1_Timer()
实验1-3
“学号-1-3”为项目名保存。
图2.1.2实验1.3运行界面
(1)对窗体编写两个事件:
Form_Load事件中对文本框置初值为空;
Form_Click事件对鼠标单击文本框计数。
(2)对鼠标单击文本框计数计算为:
Text1.Text=Val(Text1.Text)+1
PrivateSubForm_click()
Text1.Text=Val(Text1.Text)+1
Text1.Text="
实验1-4
按照教学篇例2.2对窗体三个事件过程(Load、Click、DblClick)编程,在3个事件中装入不同的图片(自己选择);
在属性窗口练习鼠标指针改变:
MousePointer(值为99,用户自定义)、MouseIcon为Key04.ico图标文件,练习窗体图标(Icon)、边框线类型(BorderStyle)、最大化按钮和最小化按钮的改变,运行观察其效果。
以“学号-1-4”为项目名保存。
例题中Form_Resize事件可以不考虑,Picture属性设置中注意图片文件有后缀名,运行测试前需要先保存项目名,保证图片文件和程序文件在同一个文件夹下,否则会出现图片找不到的错误提示。
PrivateSubForm_Click()
Caption="
单击窗体"
Picture=LoadPicture(App.Path+"
\p2.jpg"
)
Print"
欢迎使用VB"
PrivateSubForm_DblClick()
Cls
双击窗体"
\p3.jpg"
结束使用VB"
装入窗体"
\p1.jpg"
装入图片"
实验1-5
命令按钮、字号、内容和格式的复制练习,效果如下图所示。
有关控件及属性参见下表。
以“学号-1-5”为项目名保存。
图2.1.3实验1.5运行界面
表2.1.3属性设置
实验1.5"
输入文本复制文本"
VB功能强大,但要下功夫学习才能学好"
MultiLine=True;
ScrollBar=2
Text2
MultiLine=True
隶书25磅"
复制=>
(1)Command1:
使得Text1的字体和字号根据命令按钮显示的要求改变
(2)Command2:
要求将Text1选中的内容及其格式复制到Text2。
选中的内容通过Text1的SelText属性获得
为使Text2文本框保持Text1中的字符格式,通过Text2.FontSize=Text1.FontSize和Text2.FontName=Text1.FontName实现
Text1.FontName="
隶书"
Text1.FontSize=25
Text2=Text1.SelText
Text2.FontName=Text1.FontName
Text2.FontSize=Text1.FontSize
实验1-6
图片缩小、还原的设置。
“学号-1-6”为项目名保存。
图2.1.4实验1.6运行界面
(1)单击“缩小一半”按钮,图片纵、横均缩小一半。
(2)单击“还原”按钮,图片与初始装入时同大。
为了实现还原效果,要做以下3件事。
(1)必须在事件过程外,即程序代码最上方声明窗体级变量:
Dimh%,w%‘用户输入的变量声明语句
(2)在Form1_Load事件中保存图像控件的初始值:
w=Image1.Width
h=Image1.Height
(3)在Command2_Click事件中还原为初始值:
Image1.Width=w
Image1.Height=h
缩小一半Command1_Click事件请读者自行完成。
思考:
若要设置图片放大效果,如何修改代码?
Dimh%,w%
Image1.Width=Image1.Width*0.5
Image1.Height=Image1.Height*0.5
Image1.Width=w
Image1.Height=h
w=Image1.Width
h=Image1.Height
实验2-1
图2.2.1实验2.1运行界面
(1)随机数生成某范围内的正整数公式为
Int(Rnd*范围+基数)
其中范围=数的上限-下限+1,基数=数的下限。
例如,要生成2位数,语句为
Int(Rnd*(99-10+1)+10)=Int(Rnd*90+10)
(2)保留两位小数,利用Format函数,形式为Format(要显示的数值,"
0.00"
)。
Text1.Text=Int(Rnd*9+1)
Text2.Text=Int(Rnd*90+10)
Text3.Text=Int(Rnd*900+100)
Text4.Text=Format((Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3,"
0.00"
PrivateSubCommand3_Click()
Text2.Text="
Text3.Text="
Text4.Text="
实验2-2
我国有13亿人口,假定按人口年增长0.8%计算,多少年后我国人口超过26亿。
(1)已知年增长率r=0.8%,求人数超过26亿的年数n公式为:
其中:
Log(x)为对数函数,Log
(2)缘由Log(13/26),0.8%需写成0.008
(2)该题目的界面设计由读者自行设计。
n=Int(Log
(2)/Log(1+0.008)+1)
Text1=n&
"
年后人口超过26亿"
实验2-3
输入一个合法的3位正整数,测试其数值合法性后,逆序输出并显