vb实习练习卷.docx
- 文档编号:24650179
- 上传时间:2023-05-29
- 格式:DOCX
- 页数:14
- 大小:20.13KB
vb实习练习卷.docx
《vb实习练习卷.docx》由会员分享,可在线阅读,更多相关《vb实习练习卷.docx(14页珍藏版)》请在冰豆网上搜索。
vb实习练习卷
Vb程序设计实习任务书
专业:
________________________
班级:
________________________
姓名:
________________________
指导教师:
________________________
江苏广播电视大学宜兴分院
2005年6月
星期一:
移动文字
说明:
本实例将学习使用CaptionBackColorForeColorFontTopLeft等常用属性。
该程序运行后,在屏幕的中央显示一个窗体,窗体的画面如图1.29所示。
单击窗体中的“文字移动”标签向上方移动。
同样,单击其他按钮,则可使“文字移动”标签向相应方向移动。
1.创建工程
首先,按本章前面1.3.1节所学过的方法创建一个“标准.EXE”工程。
然后,参照图1.29为窗体Form1添加上述的标签控件和命令按钮。
2设置对象的属性
“文字移动”程序中共有7个对象,窗体的名称为Form1,标签的名称为Label1,5个按钮的名称分别是(从左到右):
Command1Command2Command3Command4Command5,它们的Caption属性设置如表1。
4所示(不包括Command5按钮,该按钮与“窗体变化”实例中的Command4按钮的设置一样)。
表1。
4“文字移动”程序中各对象的Caption属性设置
对象名称Caption值
对象名称Caption值
对象名称Caption值
Form1文字移动
Command2向右移动
Label1文字移动
Command3向下移动
Command1向左移动
Command4向上移动
在窗体的“属性”窗口内,单击Icon右边的按钮,弹出“加载图片”对话框。
利用该对话框导入一幅图标图象,作为窗体窗口左上角的图标图象。
单击标签Label1,在其“属性”窗口内,单击BackColor属性值右边的箭头按钮,弹出调色板,设置背景色为黄色。
单击ForeColor属性右边的箭头按钮,弹出调色板,设置标签的文字颜色为红色。
单击Font属性右边的箭头按钮,弹出“字体”对话框,利用该对话框,设置字体为楷体,字号为三号字,字体为粗体。
然后,单击“确定”按钮,完成字体设置,退出“字体”对话框。
3程序代码编辑
打开“代码”窗口,在其中输入以下程序代码。
程序代码:
PrivateSubCommand1_Click()
Label1.Left=Label1.Left-50
EndSub
PrivateSubCommand2_Click()
Label1.Left=Label1.Left+50
EndSub
PrivateSubCommand3_Click()
Label1.Top=Label1.Top+50
EndSub
PrivateSubCommand4_Click()
Label1.Top=Label1.Top-50
EndSub
PrivateSubCommand5_Click()
End
EndSub
程序运行后,将得到如图1。
29所示的结果。
星期二:
窗体变化
说明:
本实例将学习使用一些常用对象属性,如CaptionPictureIconStartUpPositionBackColorForeColorFontwindowStated等,此外还学习使用窗体,标签控件和命令按钮的基本方法。
该程序运行后的画面如图1.28(a)所示。
窗体在屏幕的中,窗体背景是一幅图像。
单图1.28(a)所示击窗体中的“最小化”按钮,可使窗体最小化,在windows的状态栏中显示程序最小化后的按钮(按钮上有最小化图标),如图1.28(a)所示;单击“最大化”按钮,可使窗体最大化,此时窗体没有边框;单击“正常“按钮,可使窗体恢复原状,窗体有边框;单击”退出“按钮或按ALT+E,可关闭窗体,退出程序的运行。
1创建工程
首先,按本章前面1.3.1节所学过的方法创建一个“标准.EXE“工程。
然后,参照图1.28(a)为窗体Form1标签控件和命令按钮。
2设置对象的属性
本实例中共用到6个对象,窗体的名称为Form1标签的名称为Label1,4个按钮的名称分别是(从左到右从上到下);Command1Command2Command3Command4。
按下面的步设置各个对象的属性。
(1)设置对象标题的文字
先将各对象的Caption属性设置如表1.3所示
对象名称Caption值
对象名称Caption值
对象名称Caption值
Form1窗体变化
Command2最大化
Label1窗体变化
Command3正常
Command1最小化
Command4退出&E
(2)设置窗体背景图片
单击工具箱中的Pointre按钮,再单击窗体,使其成为当前对象。
然后在“属性“窗口内,单击Picture属性值右边的按钮,弹出”加杂图片“对话框。
利用该对话框给窗体一幅蓝天的图象,作为窗体的背景图象。
(3)设置窗体图标
在窗体的“属性“窗口内,单击Icon右边的按钮,弹出”加载图片“对话框。
利用该对话框一幅图标图象,作为窗体最小化的图象。
2.程序代码编辑
程序代码:
PrivateSubCommand1_Click()
Form1.WindowState=vbMinimized
EndSub
PrivateSubCommand2_Click()
Form1.WindowState=vbMaximized
EndSub
PrivateSubCommand3_Click()
Form1.WindowState=Normal
EndSub
PrivateSubCommand4_Click()
End
EndSub
PrivateSubForm_Load()
EndSub
3.运行程序
单击标准工具栏内的启动或F5按键,可运行本程序。
程序三:
编程求出最大公约数和最小公倍数
程序运行后的画面如图2。
27所示。
在3个文本框中输入3个数字后,单击
“计算”按钮,即可算出这3个数的最大公约数和最小公倍数。
新建一个“标准。
EXE”工程,在窗体上添加6个标签,3个文本框和2个
按钮。
它们的名称属性均采用默认值,标签Label5和Label6的BorderStyle属性
设置为1-FixedSingle。
其他属性读者可根据图2。
27设置,。
它们的次序是从上
到下,从左到右。
窗体对象的StartUpPosition属性设置为(2-屏幕中间)
在代码窗口中输入如下程序代码。
程序代码:
PrivateSubCommand1_Click()
DimAAsInteger,BAsInteger,CAsInteger,RAsInteger,PAsInteger
DimQAsInteger,S,S1AsLong
A=Val(Text1.Text)
B=Val(Text2.Text)
C=Val(Text3.Text)
Rem求A和B的最大公约数QI
R=1
WhileR<>0
P=Int(A/B):
R=A-B*P
IfR<>0ThenA=B:
B=R
Wend
Q=B
Rem求A和B的最小公倍数SI
S1=Val(Text1.Text)*Val(Text2.Text)/Q
Rem求Q1和C的最大公约数,即求A`B和C的最大公约数
R=1
WhileR<>0
P=Int(C/Q)
R=C-Q*P
IfR<>0Then
C=Q:
Q=R
End if
Wend
Label5.Caption=Q
Rem求S1和C的最小公倍数,即求A`B和C的最小公倍数
S=S1
R=1
WhileR<>0
P=Int(S1/C)
R=S1–C*P
IfR<>0ThenS1=C:
C=R
Wend
S=Val(S)*Val(Text3.Text)/C
Label6.Caption=S
EndSub
PrivateSubCommand2_Click()
End
EndSub
程序四:
多窗体使用
说明:
本例将学习如何在程序中使用多个窗体,以及窗体的Show方法。
“选择窗体”程序运行后的画面如图1。
32所示。
单击“窗体变化”按扭,即可调出“窗体变化”程序,并运行该程序,单击该程序窗口右上角的叉字按扭,即可回到1。
32所示的画面;单击“移动文字”按扭,即可调出“移动文字”程序,并运行该程序;单击该程序;单击“趣味文本”按扭,即可调出“趣味文本”程序并运行该程序;单击“退出”按扭,即可“退出”按扭,即可退出程序的运行。
可以有多种方法来制作多窗体程序,在这里,我们选择以下两种方法来制作“选择窗体”程序。
1、直接创建具有多个窗体的工程项目
(1)创建工程主调用窗体
参看图1。
32,创建6个对象:
1个窗体对象,名字为Form4;1个标签对象,名字为Label1;4个按扭对象,名字(从左到右)分别为Command1、Command2、Command3、和Command4。
Form4窗体对象的属性设置Caption属性为“选择窗体”,BackColor属性为浅灰色,StartUpositilon属性设置为“2-屏幕中间”。
Label1标签对象的属性设置:
Caption属性为“选择窗体”;BackColor属性为浅黄色,ForeColor属性为红色;字体属性设置为宋体,字号为16,字形为粗体。
4个按扭对象的属性设置:
Caption属性分别为(从左到右)“窗体变化”、“移动文字”、“趣味文字”和“退出”;其他属性采用默认值。
(2)输入主调用窗体的程序代码
按前面所学的方法,在Form4窗体的“代码”窗口内输入以下程序代码。
程序代码:
PrivateSubCommand1-Click()
Form1.Show
Endsub
PrivateSubCommand2-Click()
Form2.Show
EndSub
PrivateSubCommand3-Click()
Form3.Show
EndSub
PrivateSubCommand4-Click()
End
EndSub
(3)添加新窗体
单击“工程”——“添加窗体”菜单命令,调出“添加窗体”对话框。
在“新建”选择框中选取“窗体”,再单击“打开”按扭,即可在当前工程中创建一个新的窗体,窗体的名称自动设置为Form1。
然后按照前面实例所述方法创建“移动文字”程序。
然后再创建一个名字为Form3的窗体,按照前面所述方法创建“趣味文字”程序。
保存该工程中各窗体文件和工程文件。
此时的工程资源管理如图1。
33所示。
(4)设置启动窗体
单击“工程”——“工程1属性”菜单命令,调出“工程1。
工程属性”对话框,再在“启动对象”下拉列表中选择Form4选项,然后单击“确定”按扭。
以后,单击标准工具栏内的按扭或F5按键,程序运行时将首先显示出Form4窗体。
运行程序,将得到图1。
32所示的结果。
程序五:
计算闰年
说明:
本实例将输入的某练习逻辑运算和IF语句的应用。
程序中,将对输入的某个年份,判断它是否为闰年。
程序运行效果如图2.32所示。
判断闰年的条件是:
能被4整除但不能被100整除;或者能被100整除,同时也能被400整除的年份。
(1)新建一个“标准。
EXE”工程,在窗体中增加1个文本框,1个命令按钮和2个标签控件,按图2.23进行设置。
(2)在“代码”窗口中输入如下代码。
程序代码:
PrivateSubCommand1_Click()
Dimf1AsBoolean,f2AsBoolean,f3AsBoolean
DimyearAsInteger
year=Val(Text1.Text)
IfInt(year/4)*4=yearThenf1=True
IfInt(year/100)*100=yearThenf2=True
IfInt(year/400)*400=yearThenf3=True
Iff1AndNotf2Orf2Andf3Then
Label2.Caption=Text1.Text+"是闰年"
Label2.ForeColor=RGB(255,0,0)
Label2.FontSize=20
Else
Label2.Caption=Text1.Text+"不是闰年"
Label2.ForeColor=RGB(0,0,255)
Label2.FontSize=20
EndIf
EndSub
程序六:
一元二次方程的根
说明:
本实例将学习使用自定义函数过程和多分支选择语句Select…Case来完成一元二次方程的根的计算。
一元二次方程的求根公式是数学中最常见的公式之一,本实例将求根公式程序化,只要输入a\b\c的值,就可以自动求出方程的根。
(1)新建一个标准.EXE工程,按照在窗体上添加5个标签、三个文本框和1个按扭,添加顺序为从上到下,从左到右。
(2)按照图对各个对象进行属性设置,各对象名称均取默认名称。
(3)在代码窗口中输入如下程序。
程序代码:
PrivateSubCommand_Click()
DimaAsInteger,bAsInteger,cAsInteger,x1AsSingle,x2AsSingle
DimstrLabAsString
A=Val(Text1.Text)
B=val(text2.text)
C=val(text3.text)
Selectcasefund(a,b,c)
Caseis<0
Strlab=”该方程无根!
”
Caseis=0
X1=(-b)/(2*a)
Strlab=” 该方程有一个实数根:
”+chr(13)+”x1=”+str(x1)
Caseis>0
X1=(-b+sqr(fund(a,b,c)))/(2*a)
X2=(-b-sqr(fund(a,b,c)))/(2*a)
Strlab=””该方程有两个不同实数根:
+chr(13)+”X1=”+Str(x1)+”x2=”+str(x2)
Endselect
Label5.caption=strlab
Endsub
Privatefunctionfund(aasinteger,basinteger,casinteger)
Fund=b*b-4*a*c
Endfunction
其中,自定义函数过程fun()用于求公式中的值。
程序中的sqr()是一个visualbasic系统定义函数,用于求表达式的平方根,chr()函数用于返回给定ASCII码值对应的字符,chr (13)为回车符,在这里用于换行,str()函数用于将数值表达式转化为字符串。
程序七:
选择答案
说明:
本实例将学习焦点、Tab键顺序和控件数组在程序中的应用。
给出一个电子试卷的选择题界面应用,程序运行后效果。
(1)新建一个标准。
EXE工程,在窗体上添加一个文本框控件和1个命令按扭控件。
按照前面所学的方法,将控件进行复制、捏添的方式来创建按扭控件数组,再设置文本框控件的Tabstop属性为False使得文本框不能接收焦点;设置文本框Locked属性为True,使文本框的内容不可改变。
最后,在代码窗口内输入以下程序代码。
程序代码:
Privatesubcommand1_click(indexasinteger)
Selectcaseindex
Case0
Msgbox”回答错误!
正确答案为C”
Case1
Msgbox“回答错误!
正确答案C”
Case2
Msgbox“回答正确!
”
Case3
Msgbox”回答错误!
正确答案为C”
Endselect
Endsub
运行程序时。
程序八:
复制与移动
说明:
本实例将演示Downpicture、disabledpicture和enable等属性。
本实例将实现文本框的复制、移动与删除等功能,程序运行效果如下
在程序中,移动、复制按钮在正常、按下和无效时都以不同的图象来表示、使按钮的行为更具有动态效果。
(1)新建一个标准。
EXE工程,在窗体上添加2个文本框和4个命令按钮控件,文本框各项属性取默认值,命令按钮属性按表进行设置;
名称
Caption
Style
Picture
DownPicture
DisablePicture
Cmdmove
复制
1-graphical
复制.bmp
复制.bmp
停用.bmp
Cmdcopy
移动
1-graphical
移动.bmp
移动.bmp
停用.bmp
Cmddel
删除
1-graphical
删除.bmp
停用.bmp
Cmdstop
停用按钮
0-standard
其他各项属性取默认值
(2)最后,在代码窗口内输入以下程序代码。
程序代码:
dimfasBoolean
privatesubcmdcopy_click()
text2.text=text1.text
endsub
privatesubcmddel_click()
text1.text=””
endsub
privatesubcmdmove_click()
text2.text=text1.text
text1.text=””
endsub
privatesubcmdstop_click()
iff=falsethen
cmdmove.enable=false
cmdcopy.enabled=false
cmddel.enabled=false
cmdstop.caption=”启用按钮”
f=true
else
cmdmove.enabled=true
cmdcopy.enabled=true
cmddel.enabled=true
cmdstop.capton=” 停用按钮”
f=false
endif
endsub
privatesubform_load()
f=false
endsub
实习小结:
教师评语:
成绩:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实习 练习
![提示](https://static.bdocx.com/images/bang_tan.gif)