完整版VB程序设计实验报告.docx
- 文档编号:478195
- 上传时间:2022-10-10
- 格式:DOCX
- 页数:33
- 大小:31.10KB
完整版VB程序设计实验报告.docx
《完整版VB程序设计实验报告.docx》由会员分享,可在线阅读,更多相关《完整版VB程序设计实验报告.docx(33页珍藏版)》请在冰豆网上搜索。
完整版VB程序设计实验报告
湖北文理学院
VB程序设计课程
实验报告
学院物电学院
专业自动化
班级1211
学号
姓名王亮
任课教师王福林
实验一、VB控制结构
一、实验目的
1.掌握选择语句的使用
2.掌握循环语句的使用
二、实验内容
1、选择语句
程序1:
创建应用程序。
要求:
单击窗体可弹出输入框,任意输入三个数,然后按从小到大的顺序输出到窗体上。
程序2:
创建应用程序。
要求:
单击窗体可弹出一输入框,任意输入一个正整数,在窗体上显示该整数是否为素数的字样。
2、循环语句
程序3:
创建应用程序。
要求:
单击窗体可显示一个由“*”组成的平行四边形图案。
程序4:
创建应用程序,其功能是显示所有的水仙花数。
三、实验记录
程序1如下:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger,tAsInteger'定义a,b,c,t为整形变量
Cls'清屏
a=Val(InputBox("请输入第1个数:
"))'给a赋值
b=Val(InputBox("请输入第2个数:
"))'给b赋值
c=Val(InputBox("请输入第3个数:
"))'给c赋值
Ifa>bThent=a:
a=b:
b=t'如果a>b,把a的值赋给t,b的值赋给a,t的值赋给b
Ifb>cThen'嵌套,如果b>c
t=b:
b=c:
c=t'把b的值赋给t,b的值赋给c,t的值赋给c
Ifa>bThen'再次嵌套,如果a>b
t=a'把a的值赋给t
a=b'b的值赋给a
b=t't的值赋给b
EndIf
EndIf
Printa;"、";b;"、";c'输出a"、"b;"、";c
EndSub
PrivateSubCommand2_Click()
End'退出程序
EndSub
程序2如下:
PrivateSubCommand1_Click()
DimiAsInteger,kAsInteger,nAsInteger'定义整形变量i,k,n
n=Val(InputBox("任意输入一个整数:
"))'给n输入值
i=2'i初始值为2
k=Int(n/2)'为整形的二分之一n的值赋给k
DoWhilei<=k'当i小于且等于k
IfnModi=0Then'如果n模除i为0
ExitDo'退出循环
Else
i=i+1'否则i加1
EndIf
Loop
Ifi>kThenPrintn;"是素数"ElsePrintn;"不是素数"'如果i大于k,输出n的值是素数,否则输出n的值不是素数
EndSub
PrivateSubCommand2_Click()
End'退出程序
EndSub
程序3如下:
PrivateSubForm_Click()
DimmAsInteger,nAsInteger'定义整形变量m,n
Cls'清屏
Form=1To6'm赋初始值为1,当m大于6停止
PrintTab(15-m);'第15-m列开始输出
Forn=1To8'n赋初始值为1,当n大于6停止
Print"*";'输出*
Nextn
Print""'输出空格
Nextm
EndSub
程序4如下:
PrivateSubCommand1_Click()
DimiAsInteger,mAsInteger,nAsInteger,kAsInteger,sxhAsIntege
'定义整形变量i,m,n,k,sxk
Fori=100To999'i赋初始值为100,当i大于999,停止循环
m=i\100'i除以100,结果赋给m
n=(iMod100)\10'i模除100后的值再除以10,最后结果赋给n
k=iMod10'i模除10后的值赋给k
sxh=m^3+n^3+k^3'sxh作算术运算
Ifsxh=iThen'如果sxh等于i
Printi,'输出i的值
EndIf
Nexti
EndSub
PrivateSubCommand2_Click()
End'程序结束
EndSub
4、实验总结
实验二、窗体和标准控件
一、实验目的
1.掌握命令按钮、标签及文本框控件的使用方法
2.掌握复选框、单选按钮及框架控件的使用方法
3.掌握列表框和组合框控件的使用方法
4.掌握滚动条和定时器控件的使用方法
二、实验内容
1、命令按钮、标签及文本框控件的使用方法
程序1:
在窗体上建立两个标签、两个文本框和两个命令按钮,运行界面如左图所示。
要求在运行时,两个文本框中的内容均不允许用户编辑;如果用户在“原文”的文本框中选定所需的内容,单击“复制”命令按钮,则在“输出”文本框中输出选定的内容;如果单击“结束”命令按钮,则结束程序的运行。
程序2:
建立如下图所示的窗体,要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验(性别只允许输入“男”或“女”,邮政编码必须是6位数字,电话号码必须是8位数字)。
如果输入的数据不符号要求,则清空相应的文本框,并将插入点置于该框中。
所有的校验工作可以在单击“退出”按钮后进行,此时,程序检查所有文本框,如有空白或内容错误,要求继续输入,否则结束程序。
2、复选框、单选按钮及框架控件的使用
程序3:
在窗体中有一个标签,内有若干文字,要求通过窗体中的复选框或单选按钮确定标签中文字的字体(宋体或黑体)、字号(10号或12号)和字形(是否粗体、是否斜体),请建立应用程序。
3、列表框和组合框控件的使用
程序4:
编写程序。
要求:
程序运行初期,在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数,单击窗体中“右移”按钮,则左边列表框的10个数移动到右边的列表框中,并由大到小排列,此时“左移”按钮变为有效。
单击“左移”按钮,右边列表框中的数又被移到左边的列表框中。
单击“退出”按钮或按ESC键,可退出程序。
窗体示意图如下。
程序5:
建立应用程序,窗体如下图所示,有一个简单组合框、三个命令按钮、一个文本框和一个标签。
要求:
●单击“添加”按钮可将输入的内容添加到组合框中
●单击“删除”按钮可删除组合框中选定的项目
●单击“统计人数”按钮,可将组合框中的项目总数输出到右边的文本框
●单击“退出”或按ESC键退出程序
4、滚动条和定时器控件的使用
程序6:
编写程序,运行时的界面如下图所示。
要求:
无论是拖动滚动条上的滚动框,还是单击滚动箭头(数值递增或递减1)或滚动条(数值递增或递减10),均可以在相应的标签中反映当前数值,并动态计算出均值;单击“Reset”按钮,可将各滚动条上的滚动框复位。
程序7:
利用定时器控件设计一个数字式时钟应用程序。
三、实验记录
程序1如下:
PrivateSubForm_Load()
Text1.Text="文本框是一个多功能控件,可以显示或者接收用户输入的文本信息。
"'给文本框指定内容
EndSub
PrivateSubCommand1_Click()
Text2.Text=Text1.SelText'在Text1中选定文本赋给Text2
EndSub
PrivateSubCommand2_Click()
End'程序结束
EndSub
程序2如下:
PrivateSubCommand1_Click()
IfText1=""Then
'如果Text1没有输入,当前的激活文本区(焦点)在Text1
Text1.SetFocus
ExitSub'退出过程
EndIf
IfText2=""Then
'如果Text2没有输入,当前的激活文本区(焦点)在Text2
Text2.SetFocus
ExitSub'退出过程
EndIf
IfText3=""Then
'如果Text3没有输入,当前的激活文本区(焦点)在Text3
Text3.SetFocus
ExitSub'退出过程
EndIf
IfText4=""Then
'如果Text4没有输入,当前的激活文本区(焦点)在Text4
Text4.SetFocus
ExitSub'退出过程
EndIf
IfText5=""Then
'如果Text5没有输入,当前的激活文本区(焦点)在Text5
Text5.SetFocus
ExitSub'退出过程
EndIf
End'退出程序
EndSub
PrivateSubText2_LostFocus()
IfText2.Text<>""Then'如果Text2有输入
IfText2.Text<>"男"AndText2.Text<>"女"Then
'如果Text2输入的内容不是“男”和“女”
Text2.Text=""'则Text2不输出
Text2.SetFocus'当前的激活文本区(焦点)在Text2
EndIf
EndIf
EndSub
PrivateSubText4_LostFocus()
IfText4.Text<>""Then'如果Text4有输入
IfLen(Text4.Text)<>6OrNotIsNumeric(Text4.Text)Then
'如果Text4输入的内容不是数值或者字符串的长度不为6
Text4.Text=""'则Text4不输出
Text4.SetFocus'当前的激活文本区(焦点)在Text4
EndIf
EndIf
EndSub
PrivateSubText5_LostFocus()
IfText5.Text<>""Then'如果Text5有输入
IfLen(Text5.Text)<>8OrNotIsNumeric(Text5.Text)Then
'如果Text5输入的内容不是数值或者字符串的长度不为8
Text5.Text=""'则Text5不输出
Text5.SetFocus'当前的激活文本区(焦点)在Text5
EndIf
EndIf
EndSub
程序3界面设计(程序设计界面和运行结果界面):
程序3如下:
PrivateSubOption1_Click()
Text1.FontName="宋体"'Text1中的内容为宋体
EndSub
PrivateSubOption2_Click()
Text1.FontName="黑体"'Text1中的内容为黑体
EndSub
PrivateSubOption3_Click()
Text1.FontSize=10'Text1中的内容为字号大小为10号
EndSub
PrivateSubOption4_Click()
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完整版 VB 程序设计 实验 报告