完整版VB程序设计实验报告Word格式.docx
- 文档编号:13405900
- 上传时间:2022-10-10
- 格式:DOCX
- 页数:33
- 大小:31.10KB
完整版VB程序设计实验报告Word格式.docx
《完整版VB程序设计实验报告Word格式.docx》由会员分享,可在线阅读,更多相关《完整版VB程序设计实验报告Word格式.docx(33页珍藏版)》请在冰豆网上搜索。
程序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
bThen'
再次嵌套,如果a>
b
t=a'
把a的值赋给t
a=b'
b的值赋给a
b=t'
t的值赋给b
EndIf
Printa;
"
、"
;
b;
c'
输出a"
b;
c
EndSub
PrivateSubCommand2_Click()
End'
退出程序
程序2如下:
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
Loop
Ifi>
kThenPrintn;
是素数"
ElsePrintn;
不是素数"
'
如果i大于k,输出n的值是素数,否则输出n的值不是素数
退出程序
程序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
输出空格
Nextm
程序4如下:
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
End'
程序结束
4、实验总结
实验二、窗体和标准控件
1.掌握命令按钮、标签及文本框控件的使用方法
2.掌握复选框、单选按钮及框架控件的使用方法
3.掌握列表框和组合框控件的使用方法
4.掌握滚动条和定时器控件的使用方法
1、命令按钮、标签及文本框控件的使用方法
在窗体上建立两个标签、两个文本框和两个命令按钮,运行界面如左图所示。
要求在运行时,两个文本框中的内容均不允许用户编辑;
如果用户在“原文”的文本框中选定所需的内容,单击“复制”命令按钮,则在“输出”文本框中输出选定的内容;
如果单击“结束”命令按钮,则结束程序的运行。
建立如下图所示的窗体,要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验(性别只允许输入“男”或“女”,邮政编码必须是6位数字,电话号码必须是8位数字)。
如果输入的数据不符号要求,则清空相应的文本框,并将插入点置于该框中。
所有的校验工作可以在单击“退出”按钮后进行,此时,程序检查所有文本框,如有空白或内容错误,要求继续输入,否则结束程序。
2、复选框、单选按钮及框架控件的使用
在窗体中有一个标签,内有若干文字,要求通过窗体中的复选框或单选按钮确定标签中文字的字体(宋体或黑体)、字号(10号或12号)和字形(是否粗体、是否斜体),请建立应用程序。
3、列表框和组合框控件的使用
程序4:
编写程序。
程序运行初期,在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数,单击窗体中“右移”按钮,则左边列表框的10个数移动到右边的列表框中,并由大到小排列,此时“左移”按钮变为有效。
单击“左移”按钮,右边列表框中的数又被移到左边的列表框中。
单击“退出”按钮或按ESC键,可退出程序。
窗体示意图如下。
程序5:
建立应用程序,窗体如下图所示,有一个简单组合框、三个命令按钮、一个文本框和一个标签。
●单击“添加”按钮可将输入的内容添加到组合框中
●单击“删除”按钮可删除组合框中选定的项目
●单击“统计人数”按钮,可将组合框中的项目总数输出到右边的文本框
●单击“退出”或按ESC键退出程序
4、滚动条和定时器控件的使用
程序6:
编写程序,运行时的界面如下图所示。
无论是拖动滚动条上的滚动框,还是单击滚动箭头(数值递增或递减1)或滚动条(数值递增或递减10),均可以在相应的标签中反映当前数值,并动态计算出均值;
单击“Reset”按钮,可将各滚动条上的滚动框复位。
程序7:
利用定时器控件设计一个数字式时钟应用程序。
PrivateSubForm_Load()
Text1.Text="
文本框是一个多功能控件,可以显示或者接收用户输入的文本信息。
给文本框指定内容
Text2.Text=Text1.SelText'
在Text1中选定文本赋给Text2
End'
IfText1="
Then
如果Text1没有输入,当前的激活文本区(焦点)在Text1
Text1.SetFocus
ExitSub'
退出过程
IfText2="
Then
如果Text2没有输入,当前的激活文本区(焦点)在Text2
Text2.SetFocus
IfText3="
如果Text3没有输入,当前的激活文本区(焦点)在Text3
Text3.SetFocus
IfText4="
如果Text4没有输入,当前的激活文本区(焦点)在Text4
Text4.SetFocus
IfText5="
如果Text5没有输入,当前的激活文本区(焦点)在Text5
Text5.SetFocus
PrivateSubText2_LostFocus()
IfText2.Text<
>
Then'
如果Text2有输入
IfText2.Text<
男"
AndText2.Text<
女"
如果Text2输入的内容不是“男”和“女”
Text2.Text="
则Text2不输出
Text2.SetFocus'
当前的激活文本区(焦点)在Text2
PrivateSubText4_LostFocus()
IfText4.Text<
Then'
如果Text4有输入
IfLen(Text4.Text)<
6OrNotIsNumeric(Text4.Text)Then
如果Text4输入的内容不是数值或者字符串的长度不为6
Text4.Text="
则Text4不输出
Text4.SetFocus'
当前的激活文本区(焦点)在Text4
PrivateSubText5_LostFocus()
IfText5.Text<
如果Text5有输入
IfLen(Text5.Text)<
8OrNotIsNumeric(Text5.Text)Then
如果Text5输入的内容不是数值或者字符串的长度不为8
Text5.Text="
则Text5不输出
Text5.SetFocus'
当前的激活文本区(焦点)在Text5
程序3界面设计(程序设计界面和运行结果界面):
PrivateSubOption1_Click()
Text1.FontName="
宋体"
Text1中的内容为宋体
PrivateSubOption2_Click()
黑体"
Text1中的内容为黑体
PrivateSubOption3_Click()
Text1.FontSize=10'
Text1中的内容为字号大小为10号
PrivateSubOption4_Click()
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完整版 VB 程序设计 实验 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)